/[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 7 by dpavlin, Tue Sep 7 17:44:56 2004 UTC revision 9 by dpavlin, Wed Sep 8 17:32:20 2004 UTC
# Line 7  use locale; Line 7  use locale;
7  # maximum entries  # maximum entries
8  my $max = 0;  my $max = 0;
9  # minimum letters to search by  # minimum letters to search by
10  my $min_len = 2;  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    
# Line 35  my $max_elements = 0; Line 35  my $max_elements = 0;
35  while(<STDIN>) {  while(<STDIN>) {
36          chomp;          chomp;
37    
38            if (!m/\t/ || m/\t$/) {
39                    print STDERR "SKIP '$_': no tab\n";
40                    next;
41            }
42    
43          my ($path,$headline) = split(/\t+/,$_,2);          my ($path,$headline) = split(/\t+/,$_,2);
44    
45          # escape single quote          if (length($headline) < $min_len) {
46          $headline =~ s/'/\\'/g;                  print STDERR "SKIP '$_': too short\n";
47                    next;
48            }
49    
50    
51          # split into min_len part and rest          # split into min_len part and rest
52          my ($part,$rest) = ( substr($headline,0,$min_len), substr($headline,$min_len) );          my ($part,$rest) = ( substr($headline,0,$min_len), substr($headline,$min_len) );
53    
54            # escape special chars
55            $part =~ s/(['\\])/\\$1/g && print STDERR "ESCAPED part '$part'\n";
56            $rest =~ s/(['\\])/\\$1/g && print STDERR "ESCAPED rest '$rest'\n";
57            $headline =~ s/(['\\])/\\$1/g;
58    
59          # make part lowercase          # make part lowercase
60          $part = lc($part);          $part = lc($part);
61    
# Line 67  print "headlines['$last_part'] = [\n ",j Line 80  print "headlines['$last_part'] = [\n ",j
80  print qq{  print qq{
81    
82  var min_len = $min_len;  var min_len = $min_len;
83  var html_pre = '<br/><a href="../';  var html_pre = '<div><a href="../';
84  var html_mid = '">';  var html_mid = '">';
85  var html_post = '</a>';  var html_post = '</a></div>';
86    
87  // index elements: $total  // index elements: $total
88    
Legend:
Removed from v.7  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26