/[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 25 by dpavlin, Wed Sep 15 15:30:04 2004 UTC revision 26 by dpavlin, Wed Sep 15 16:48:24 2004 UTC
# Line 36  my $total = 0; Line 36  my $total = 0;
36  my $max_elements = 0;  my $max_elements = 0;
37    
38  sub escape_js {  sub escape_js {
39          my $t = shift || return;          my $t = shift || return 'undef';
40            # escape single quote and backspace
41          $t =~ s/(['\\])/\\$1/g && print STDERR "ESCAPED '$t'\n";          $t =~ s/(['\\])/\\$1/g && print STDERR "ESCAPED '$t'\n";
42            # quote string if not number
43            $t = "'$t'" unless ($t =~ m/^\d+$/);
44          return $t;          return $t;
45  }  }
46    
# Line 71  while(<STDIN>) { Line 74  while(<STDIN>) {
74          if ($part ne $last_part) {          if ($part ne $last_part) {
75                  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);
76                  $max_elements = $#part_arr if ($#part_arr > $max_elements);                  $max_elements = $#part_arr if ($#part_arr > $max_elements);
77                  print "${headlines}['",escape_js($last_part),"'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);                  print "${headlines}[",escape_js($last_part),"] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);
78                  $total += $#part_arr;                  $total += $#part_arr;
79                  @part_arr = ();                  @part_arr = ();
80                  $last_part = $part;                  $last_part = $part;
81          }          }
82          push @part_arr, "['".escape_js($headline)."','".join("','",map { escape_js($_) } @data)."']";          push @part_arr, "[".escape_js($headline).",".join(",",map { escape_js($_) } @data)."]";
83    
84          # break out?          # break out?
85          last if ($max && $total > $max);          last if ($max && $total > $max);
86  }  }
87    
88  print "${headlines}['",escape_js($last_part)."'] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);  print "${headlines}[",escape_js($last_part)."] = [\n ",join(",\n ",@part_arr),"];\n" if (@part_arr);
89  print qq{  print qq{
90    
91  ${headlines}.min_len = $min_len;  ${headlines}.min_len = $min_len;

Legend:
Removed from v.25  
changed lines
  Added in v.26

  ViewVC Help
Powered by ViewVC 1.1.26