wehub-resource-sync
15 lines
197 B
Perl
Executable File
15 lines
197 B
Perl
Executable File
|
|
do 'man-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'search.cgi') {
|
|
return 'for=ssh&type=1§ion=man';
|
|
}
|
|
elsif ($cgi eq 'view_man.cgi') {
|
|
return 'page=ssh&sec=1';
|
|
}
|
|
return undef;
|
|
}
|