--- trunk/httpd.pl	2004/05/08 00:54:16	21
+++ trunk/httpd.pl	2004/05/08 14:27:54	24
@@ -11,6 +11,7 @@
 use CGI::Lite;
 use Template;
 use MWS;
+use URI::Escape;
 
 use Data::Dumper;
 
@@ -23,7 +24,6 @@
 	INCLUDE_PATH => $mws->{config}->val('global', 'templates'),
 	FILTERS => {
 		'body5' => \&body5_filter,
-		'subject_search' => \&subject_search_filter,
 	},
 	EVAL_PERL => 1,
 });
@@ -132,6 +132,10 @@
 				push @search, "date:\"$date_limit\"";
 			}
 
+			if ($param->{sort_by}) {
+				push @search, "sort:".$param->{sort_by};
+			}
+
 			print STDERR "search: ",join(" ",@search),"\n";
 
 			my $results = $mws->search(@search);
@@ -192,15 +196,3 @@
 	return $text;
 }
 
-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;
-}