/[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 10 by dpavlin, Wed Aug 16 01:02:00 2006 UTC revision 14 by dpavlin, Wed Aug 16 17:57:28 2006 UTC
# Line 72  if (defined($nres)) { Line 72  if (defined($nres)) {
72                  return $out;                  return $out;
73          }          }
74    
75            sub attr_regex {
76                    my ($rdoc,$attr) = @_;
77                    my $text = $rdoc->attr( $attr );
78                    return unless defined($text);
79    
80                    if (my $r = $config->{estraier}->{attr_regex}->{$attr} ) {
81                            my $do = '$text =~ ' . $r . ';';
82                            eval $do;
83                            if ($@) {
84                                    warn "eval $do failed: $@\n";
85                            }
86                    }
87                    return $text;
88            }
89    
90          # for each document in results          # for each document in results
91          for my $i ( 0 ... $nres->doc_num - 1 ) {          for my $i ( 0 ... $nres->doc_num - 1 ) {
# Line 81  if (defined($nres)) { Line 95  if (defined($nres)) {
95                  print "<li>";                  print "<li>";
96    
97                  print "<h1>", $rdoc->attr('@title'),"</h1>\n";                  print "<h1>", $rdoc->attr('@title'),"</h1>\n";
98                  print "<h2>", $rdoc->attr('source'),"</h2>\n";                  print "<h2>", attr_regex( $rdoc, 'source' ),"</h2>\n";
                 print "<h3>", $rdoc->attr('@mdate'),"</h3>\n";  
99                  print "<p>", html_snippet( $rdoc->snippet ),"</p>\n";                  print "<p>", html_snippet( $rdoc->snippet ),"</p>\n";
100                  print "[", $skip + $i, "] ";                  my $uri = attr_regex( $rdoc, '@uri' );
101                  print "<tt>", $rdoc->attr('@uri'),"</tt>";                  print qq{<a href="$uri"><tt>$uri</tt></a> },
102                            attr_regex( $rdoc, '@mdate' );
103                    print " [", $skip + $i + 1, "]";
104                  print "</li>";                  print "</li>";
105          }          }
106  } else {  } else {
# Line 116  print qq{ Line 131  print qq{
131          $f .= '.html';          $f .= '.html';
132          open(my $s, $f)  || die "$f: $!";          open(my $s, $f)  || die "$f: $!";
133          while(<$s>) {          while(<$s>) {
                 no strict 'vars';  
134                  s/<%(.+?)%>/eval "$1"/ge;                  s/<%(.+?)%>/eval "$1"/ge;
135                  print;                  print;
136          }          }
Legend:
Removed from v.10  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26