/[swish]/trunk/html/swish.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 /trunk/html/swish.cgi

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

revision 60 by dpavlin, Thu Jan 29 18:25:55 2004 UTC revision 73 by dpavlin, Tue Apr 6 19:21:07 2004 UTC
# Line 20  my $config=XMLin(undef, Line 20  my $config=XMLin(undef,
20    
21  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});  my $from_utf8 = Text::Iconv->new('UTF8', $config->{charset});
22  sub x {  sub x {
23            return if (! defined $_[0]);
24          return $from_utf8->convert($_[0]);          return $from_utf8->convert($_[0]);
25  }  }
26    
# Line 71  print STDERR "##: $_->{limit}",x($_->{co Line 72  print STDERR "##: $_->{limit}",x($_->{co
72          $path_label{$_->{limit}} = x($_->{content});          $path_label{$_->{limit}} = x($_->{content});
73  }  }
74    
75  my @properties = split(/\s+/,x($config->{properties}));  my @properties = split(/\s+/,x($config->{properties})) if ($config->{properties});
76    
77  if ($config->{charset}) {  if ($config->{charset}) {
78          print header(-charset=>x($config->{charset}));          print header(-charset=>x($config->{charset}));
# Line 258  if (param('search')) { Line 259  if (param('search')) {
259                          }                          }
260                  }                  }
261    
262                    my $title = e($result->Property("swishtitle")) || 'untitled';
263                    my $rank = $result->Property("swishrank");
264                    my $host = $result->Property("swishdocpath");
265                    $host = "http://".virtual_host().x($config->{url}).$result->Property("swishdocpath") if ($config->{url});
266                  print $tr_pre,$i,". ";                  print $tr_pre,$i,". ";
267                  if ($config->{url}) {                  # print collection name which is not link
268                          printf($hit_fmt, "http://".virtual_host().x($config->{url}).$result->Property("swishdocpath"),                  if ($title =~ s/^(.+? :: )//) {
269                                  e($result->Property("swishtitle")) || 'untitled',                          print $1;
                                 $result->Property("swishrank"),  
                                 @arr);  
                 } else {  
                         printf($hit_fmt, $result->Property("swishdocpath"),  
                                 e($result->Property("swishtitle")) || 'untitled',  
                                 $result->Property("swishrank"),  
                                 @arr);  
270                  }                  }
271                    printf($hit_fmt, $host, $title || 'untitled', $rank, @arr);
272                  print $tr_post;                  print $tr_post;
273    
274          }          }
Legend:
Removed from v.60  
changed lines
  Added in v.73
  ViewVC Help
Powered by ViewVC 1.1.26