/[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 6 by dpavlin, Tue Aug 15 21:12:31 2006 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4    
5  use CGI::Simple;  use CGI::Simple;
6  use CGI::Carp qw(fatalsToBrowser);  use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
7  use Search::Estraier;  use Search::Estraier;
8    use YAML::Syck;
9    use Data::Dump qw/dump/;
10    
11  my $q = new CGI::Simple;  my $q = new CGI::Simple;
12  print qq{Content-type: text/html\n\r\n\r};  print qq{Content-type: text/html\n\r\n\r};
13    
14    my $config = LoadFile('config.yml');
15    
16    #warn "config = ", dump($config);
17    
18  if ($q->path_info() eq '/snippet') {  if ($q->path_info() eq '/snippet') {
19    
20  print qq{  print qq{
# Line 24  print qq{ Line 30  print qq{
30          <ul>          <ul>
31  };  };
32    
33  my $node = new Search::Estraier::Node(  my $node = new Search::Estraier::Node(%{ $config->{estraier} });
         url => 'http://localhost:1978/node/cpan',  
         user => 'admin',  
         passwd => 'admin',  
         croak_on_error => 1,  
 );  
34    
35  my $o = $q->param('index') || 0;  my $o = $q->param('index') || 0;
36  my $search = $q->param('q');  my $search = $q->param('q');
# Line 42  $cond->set_phrase( $search ); Line 43  $cond->set_phrase( $search );
43  $cond->set_max( $on_page );  $cond->set_max( $on_page );
44  $cond->set_skip( $skip );  $cond->set_skip( $skip );
45    
46  my $nres = $node->search($cond, 0);  my $nres = $node->search($cond, ( $config->{estraier}->{depth} || 0 ) );
47    
48  my $max = 0;  my $max = 0;
49    
# Line 71  if (defined($nres)) { Line 72  if (defined($nres)) {
72    
73                  my $rdoc = $nres->get_doc($i);                  my $rdoc = $nres->get_doc($i);
74    
75                  print "<ul>";                  print "<li>";
76    
77                  print "<h1>", $rdoc->attr('@title'),"</h1>\n";                  print "<h1>", $rdoc->attr('@title'),"</h1>\n";
78                  print "<h2>", $rdoc->attr('source'),"</h2>\n";                  print "<h2>", $rdoc->attr('source'),"</h2>\n";
79                  print "", html_snippet( $rdoc->snippet ),"<br/>\n";                  print "", html_snippet( $rdoc->snippet ),"<br/>\n";
80                  print "[", $skip + $i, "] ";                  print "[", $skip + $i, "] ";
81                  print "<tt>", $rdoc->attr('@uri'),"</tt>";                  print "<tt>", $rdoc->attr('@uri'),"</tt>";
82                  print "</ul>";                  print "</li>";
83          }          }
84  } else {  } else {
85          die "error: ", $node->status,"\n";          die "error: ", $node->status,"\n";
# Line 108  print qq{ Line 109  print qq{
109          $f .= '.html';          $f .= '.html';
110          open(my $s, $f)  || die "$f: $!";          open(my $s, $f)  || die "$f: $!";
111          while(<$s>) {          while(<$s>) {
112                  s/<%(.*?)%>/eval "$1"/ge;                  no strict 'vars';
113                    s/<%(.+?)%>/eval "$1"/ge;
114                  print;                  print;
115          }          }
116          close($f);          close($f);
Legend:
Removed from v.2  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26