/[mws]/trunk/httpd.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/httpd.pl

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

revision 15 by dpavlin, Thu May 6 19:46:58 2004 UTC revision 16 by dpavlin, Thu May 6 23:06:08 2004 UTC
# Line 81  while ( my $c = $d->accept ) { Line 81  while ( my $c = $d->accept ) {
81    
82                  if ($param->{'search_val'} && $param->{'search_fld'} && !$param->{'search'}) {                  if ($param->{'search_val'} && $param->{'search_fld'} && !$param->{'search'}) {
83                          $param->{'search'} = $param->{'search_fld'}.":".$param->{'search_val'};                          $param->{'search'} = $param->{'search_fld'}.":".$param->{'search_val'};
84                    } elsif ($param->{'search'}) {
85                            ($param->{'search_fld'}, $param->{'search_val'}) = split(/:/,$param->{'search'},2);
86                  }                  }
87    
88                  my $tpl_var = {                  my $tpl_var = {
# Line 146  sub body5_filter { Line 148  sub body5_filter {
148  sub subject_search_filter {  sub subject_search_filter {
149          my $s = shift;          my $s = shift;
150          # remove re: fdw: [list] preffixes from e-mail          # remove re: fdw: [list] preffixes from e-mail
151          while ( $s =~ s/^\s*\[(?:re|fwd):\s+(.+)\]\s*$/$1/ig ||          while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig ||
152                  $s =~ s/^\s*(?:re|fwd):\s+(.+?)\s*$/$1/ig ||                  $s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig ||
153                  $s =~ s/^\[\w+\]\s*//ig                  $s =~ s/^\[\S+\]\s*//ig ||
154                    $s =~ s/^\[[^@]+@\w+\.\w+\s*:\s+(.+)\s*\]\s*$/$1/g
155          ) { };          ) { };
156          return $s;          return $s;
157  }  }
Legend:
Removed from v.15  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26