25 |
}; |
}; |
26 |
|
|
27 |
my $node = new Search::Estraier::Node( |
my $node = new Search::Estraier::Node( |
28 |
url => 'http://localhost:1978/node/cpan', |
url => 'http://localhost:1978/node/books', |
29 |
user => 'admin', |
user => 'admin', |
30 |
passwd => 'admin', |
passwd => 'admin', |
31 |
croak_on_error => 1, |
croak_on_error => 1, |
71 |
|
|
72 |
my $rdoc = $nres->get_doc($i); |
my $rdoc = $nres->get_doc($i); |
73 |
|
|
74 |
print "<ul>"; |
print "<li>"; |
75 |
|
|
76 |
print "<h1>", $rdoc->attr('@title'),"</h1>\n"; |
print "<h1>", $rdoc->attr('@title'),"</h1>\n"; |
77 |
print "<h2>", $rdoc->attr('source'),"</h2>\n"; |
print "<h2>", $rdoc->attr('source'),"</h2>\n"; |
78 |
print "", html_snippet( $rdoc->snippet ),"<br/>\n"; |
print "", html_snippet( $rdoc->snippet ),"<br/>\n"; |
79 |
print "[", $skip + $i, "] "; |
print "[", $skip + $i, "] "; |
80 |
print "<tt>", $rdoc->attr('@uri'),"</tt>"; |
print "<tt>", $rdoc->attr('@uri'),"</tt>"; |
81 |
print "</ul>"; |
print "</li>"; |
82 |
} |
} |
83 |
} else { |
} else { |
84 |
die "error: ", $node->status,"\n"; |
die "error: ", $node->status,"\n"; |
108 |
$f .= '.html'; |
$f .= '.html'; |
109 |
open(my $s, $f) || die "$f: $!"; |
open(my $s, $f) || die "$f: $!"; |
110 |
while(<$s>) { |
while(<$s>) { |
111 |
s/<%(.*?)%>/eval "$1"/ge; |
no strict 'vars'; |
112 |
|
s/<%(.+?)%>/eval "$1"/ge; |
113 |
print; |
print; |
114 |
} |
} |
115 |
close($f); |
close($f); |