Parent Directory | Revision Log | Patch
revision 123 by dpavlin, Mon Apr 9 19:23:05 2007 UTC | revision 124 by dpavlin, Sat Apr 28 22:51:43 2007 UTC | |
---|---|---|
# | Line 69 sub search_uri { | Line 69 sub search_uri { |
69 | my $search = shift; | my $search = shift; |
70 | ||
71 | my $uri = $self->uri or die "no uri?"; | my $uri = $self->uri or die "no uri?"; |
72 | $uri =~ s/^https:/http:/; | |
73 | $uri =~ s/\Q|!|\E/;/g; | $uri =~ s/\Q|!|\E/;/g; |
74 | $uri =~ s/{x!(26|3b)}/chr(hex($1))/gei; | $uri =~ s/{x!(26|3b)}/chr(hex($1))/gei; |
75 | return sprintf( $uri, $search ); | return sprintf( $uri, $search ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |