--- trunk/bfilter.pl	2004/09/07 08:37:33	3
+++ trunk/bfilter.pl	2004/09/07 09:16:06	4
@@ -7,7 +7,9 @@
 # maximum entries
 my $max = 0;
 # minimum letters to search by
-my $min_len = 3;
+my $min_len = 2;
+# if more than x elements, warn to increase min_len
+my $increase_at = 500;
 
 my $debug = 1;
 
@@ -28,6 +30,8 @@
 my $last_part = '';
 my $total = 0;
 
+my $max_elements = 0;
+
 while(<STDIN>) {
 	chomp;
 
@@ -45,6 +49,7 @@
 	# new part?
 	if ($part ne $last_part) {
 		print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug);
+		$max_elements = $#part_arr if ($#part_arr > $max_elements);
 		print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);
 		$total += $#part_arr;
 		@part_arr = ();
@@ -59,3 +64,5 @@
 print "headlines['$last_part'] = Array(\n ",join(",\n ",@part_arr),");\n" if (@part_arr);
 print "var min_len = $min_len;\n";
 print "// index elements: $total\n";
+
+print STDERR "You have more than $increase_at elements in one array,\nyou whould probably increase min_len to ",$min_len+1," or higher.\n" if ($max_elements > $increase_at);