/[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 4 by dpavlin, Tue Aug 15 16:03:16 2006 UTC revision 5 by dpavlin, Tue Aug 15 16:56:49 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/books',  
         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');
Legend:
Removed from v.4  
changed lines
  Added in v.5
  ViewVC Help
Powered by ViewVC 1.1.26