/[bfilter]/trunk/bfilter.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bfilter.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Wed Sep 8 17:32:20 2004 UTC revision 10 by dpavlin, Fri Sep 10 12:16:21 2004 UTC
# Line 11  my $min_len = 3; Line 11  my $min_len = 3;
11  # if more than x elements, warn to increase min_len  # if more than x elements, warn to increase min_len
12  my $increase_at = 500;  my $increase_at = 500;
13    
14    # name of generated index
15    my $headlines = 'headlines';
16    
17  my $debug = 1;  my $debug = 1;
18    
19  sub print_file {  sub print_file {
# Line 23  sub print_file { Line 26  sub print_file {
26  }  }
27    
28  print qq{  print qq{
29  var headlines = Array();  var $headlines = new Object();
30  };  };
31    
32  my @part_arr;  my @part_arr;
# Line 65  while(<STDIN>) { Line 68  while(<STDIN>) {
68          if ($part ne $last_part) {          if ($part ne $last_part) {
69                  print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug && $#part_arr > $increase_at);                  print STDERR $last_part,"\t",$#part_arr+1,"\n" if ($debug && $#part_arr > $increase_at);
70                  $max_elements = $#part_arr if ($#part_arr > $max_elements);                  $max_elements = $#part_arr if ($#part_arr > $max_elements);
71                  print "headlines['$last_part'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);                  print "${headlines}['$last_part'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);
72                  $total += $#part_arr;                  $total += $#part_arr;
73                  @part_arr = ();                  @part_arr = ();
74                  $last_part = $part;                  $last_part = $part;
# Line 76  while(<STDIN>) { Line 79  while(<STDIN>) {
79          last if ($max && $total > $max);          last if ($max && $total > $max);
80  }  }
81    
82  print "headlines['$last_part'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);  print "${headlines}['$last_part'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);
83  print qq{  print qq{
84    
85  var min_len = $min_len;  ${headlines}.min_len = $min_len;
86  var html_pre = '<div><a href="../';  ${headlines}.length = $total;
 var html_mid = '">';  
 var html_post = '</a></div>';  
   
 // index elements: $total  
87    
88  };  };
89    
Legend:
Removed from v.9  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26