mirror of
https://github.com/webmin/webmin.git
synced 2025-07-23 00:30:33 +00:00
26 lines
524 B
Perl
Executable File
26 lines
524 B
Perl
Executable File
|
|
do 'software-lib.pl';
|
|
|
|
sub cgi_args
|
|
{
|
|
my ($cgi) = @_;
|
|
if ($cgi eq 'search.cgi') {
|
|
# Example search
|
|
return 'search=ssh';
|
|
}
|
|
elsif ($cgi eq 'edit_pack.cgi' || $cgi eq 'list_pack.cgi') {
|
|
# Package for /bin/ls
|
|
local %file;
|
|
&installed_file('/bin/ls');
|
|
my @pkgs = split(/\s+/, $file{'packages'});
|
|
my @vers = split(/\s+/, $file{'versions'});
|
|
return 'package='.&urlize($pkgs[0]).
|
|
'&version='.&urlize($vers[0]);
|
|
}
|
|
elsif ($cgi eq 'file_info.cgi') {
|
|
# Info on file /bin/ls
|
|
return 'file=/bin/ls';
|
|
}
|
|
return undef;
|
|
}
|