--- no_pager/index.cgi	2006/08/16 01:02:00	10
+++ no_pager/index.cgi	2006/08/16 17:57:28	14
@@ -72,6 +72,20 @@
 		return $out;
 	}
 
+	sub attr_regex {
+		my ($rdoc,$attr) = @_;
+		my $text = $rdoc->attr( $attr );
+		return unless defined($text);
+
+		if (my $r = $config->{estraier}->{attr_regex}->{$attr} ) {
+			my $do = '$text =~ ' . $r . ';';
+			eval $do;
+			if ($@) {
+				warn "eval $do failed: $@\n";
+			}
+		}
+		return $text;
+	}
 
 	# for each document in results
 	for my $i ( 0 ... $nres->doc_num - 1 ) {
@@ -81,11 +95,12 @@
 		print "<li>";
 
 		print "<h1>", $rdoc->attr('@title'),"</h1>\n";
-		print "<h2>", $rdoc->attr('source'),"</h2>\n";
-		print "<h3>", $rdoc->attr('@mdate'),"</h3>\n";
+		print "<h2>", attr_regex( $rdoc, 'source' ),"</h2>\n";
 		print "<p>", html_snippet( $rdoc->snippet ),"</p>\n";
-		print "[", $skip + $i, "] ";
-		print "<tt>", $rdoc->attr('@uri'),"</tt>";
+		my $uri = attr_regex( $rdoc, '@uri' );
+		print qq{<a href="$uri"><tt>$uri</tt></a> },
+			attr_regex( $rdoc, '@mdate' );
+		print " [", $skip + $i + 1, "]";
 		print "</li>";
 	}
 } else {
@@ -116,7 +131,6 @@
 	$f .= '.html';
 	open(my $s, $f)  || die "$f: $!";
 	while(<$s>) {
-		no strict 'vars';
 		s/<%(.+?)%>/eval "$1"/ge;
 		print;
 	}