PAL.C.T MINI SHELL
do 'virtualmin-svn-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
my ($d) = grep { &virtual_server::can_edit_domain($_) &&
$_->{$module_name} } &virtual_server::list_domains();
if ($cgi =~ /^edit_(dump|email|load).cgi$/) {
return 'none' if (!$d);
my @reps = &list_reps($d);
return 'none' if (!@reps);
return 'dom='.$d->{'id'}.'&rep='.&urlize($reps[0]->{'rep'});
}
elsif ($cgi eq 'index.cgi') {
return $d ? 'show='.&urlize($d->{'dom'}) : '';
}
return undef;
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`