/[jquery]/no_pager/index.cgi
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 /no_pager/index.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Tue Aug 15 15:43:31 2006 UTC revision 4 by dpavlin, Tue Aug 15 16:03:16 2006 UTC
# Line 25  print qq{ Line 25  print qq{
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,
# Line 71  if (defined($nres)) { Line 71  if (defined($nres)) {
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";
# Line 108  print qq{ Line 108  print qq{
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);
Legend:
Removed from v.2  
changed lines
  Added in v.4
  ViewVC Help
Powered by ViewVC 1.1.26