/[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 21 by dpavlin, Tue Mar 18 20:20:11 2003 UTC revision 22 by dpavlin, Tue Mar 18 20:24:57 2003 UTC
# Line 95  if (param('search')) { Line 95  if (param('search')) {
95          $s=~tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;          $s=~tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;
96          $s=~s/\*\*+/*/g;          $s=~s/\*\*+/*/g;
97    
98            my %params;     # optional parametars for swish
99    
100          my @properties = split(/\s+/,x($config->{properties}));          my @properties = split(/\s+/,x($config->{properties}));
101            $params{properties} = \@properties if (@properties);
102    
103          my $sh = SWISH->connect('Fork',          my $sh = SWISH->connect('Fork',
104                  prog     => x($config->{prog}),                  prog     => x($config->{prog}),
105                  indexes  => x($config->{index}),                  indexes  => x($config->{index}),
                 properties  => \@properties,  
106                  results  => sub {                  results  => sub {
107                          my ($sh,$hit) = @_;                          my ($sh,$hit) = @_;
108    
# Line 119  if (param('search')) { Line 121  if (param('search')) {
121  #                       print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields;  #                       print "Field '$_' = '", $hit->$_, "'<br>\n" for sort @fields;
122                  },                  },
123                  maxhits => param('max_hits') || $max_hits,                  maxhits => param('max_hits') || $max_hits,
124                    \%params,
125          );          );
126    
127          die $SWISH::errstr unless $sh;          die $SWISH::errstr unless $sh;
Legend:
Removed from v.21  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26