--- no_pager/index.cgi	2006/08/15 15:43:31	2
+++ no_pager/index.cgi	2006/08/15 16:03:16	4
@@ -25,7 +25,7 @@
 };
 
 my $node = new Search::Estraier::Node(
-	url => 'http://localhost:1978/node/cpan',
+	url => 'http://localhost:1978/node/books',
 	user => 'admin',
 	passwd => 'admin',
 	croak_on_error => 1,
@@ -71,14 +71,14 @@
 
 		my $rdoc = $nres->get_doc($i);
 
-		print "<ul>";
+		print "<li>";
 
 		print "<h1>", $rdoc->attr('@title'),"</h1>\n";
 		print "<h2>", $rdoc->attr('source'),"</h2>\n";
 		print "", html_snippet( $rdoc->snippet ),"<br/>\n";
 		print "[", $skip + $i, "] ";
 		print "<tt>", $rdoc->attr('@uri'),"</tt>";
-		print "</ul>";
+		print "</li>";
 	}
 } else {
 	die "error: ", $node->status,"\n";
@@ -108,7 +108,8 @@
 	$f .= '.html';
 	open(my $s, $f)  || die "$f: $!";
 	while(<$s>) {
-		s/<%(.*?)%>/eval "$1"/ge;
+		no strict 'vars';
+		s/<%(.+?)%>/eval "$1"/ge;
 		print;
 	}
 	close($f);