/[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 21 by dpavlin, Sat May 8 00:54:16 2004 UTC revision 24 by dpavlin, Sat May 8 14:27:54 2004 UTC
# Line 11  use IO::String; Line 11  use IO::String;
11  use CGI::Lite;  use CGI::Lite;
12  use Template;  use Template;
13  use MWS;  use MWS;
14    use URI::Escape;
15    
16  use Data::Dumper;  use Data::Dumper;
17    
# Line 23  my $tt = Template->new({ Line 24  my $tt = Template->new({
24          INCLUDE_PATH => $mws->{config}->val('global', 'templates'),          INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
25          FILTERS => {          FILTERS => {
26                  'body5' => \&body5_filter,                  'body5' => \&body5_filter,
                 'subject_search' => \&subject_search_filter,  
27          },          },
28          EVAL_PERL => 1,          EVAL_PERL => 1,
29  });  });
# Line 132  while ( my $c = $d->accept ) { Line 132  while ( my $c = $d->accept ) {
132                                  push @search, "date:\"$date_limit\"";                                  push @search, "date:\"$date_limit\"";
133                          }                          }
134    
135                            if ($param->{sort_by}) {
136                                    push @search, "sort:".$param->{sort_by};
137                            }
138    
139                          print STDERR "search: ",join(" ",@search),"\n";                          print STDERR "search: ",join(" ",@search),"\n";
140    
141                          my $results = $mws->search(@search);                          my $results = $mws->search(@search);
# Line 192  sub body5_filter { Line 196  sub body5_filter {
196          return $text;          return $text;
197  }  }
198    
 sub subject_search_filter {  
         my $s = shift;  
         # remove re: fdw: [list] preffixes from e-mail  
         while ( $s =~ s/^\s*\[(?:re|fwd|fw):\s+(.+)\]\s*$/$1/ig ||  
                 $s =~ s/^\s*(?:re|fwd|fw):\s+(.+?)\s*$/$1/ig ||  
                 $s =~ s/^\[\S+\]\s*//ig ||  
                 $s =~ s/^\[[^@]+@\w+\.\w+\s*:\s+(.+)\s*\]\s*$/$1/g ||  
                 $s =~ s/\(fwd\)\s*$//ig ||  
                 $s =~ s/\"//g  
         ) { };  
         return $s;  
 }  
Legend:
Removed from v.21  
changed lines
  Added in v.24
  ViewVC Help
Powered by ViewVC 1.1.26