PAL.C.T MINI SHELL
do 'virtualmin-registrar-lib.pl';
sub cgi_args
{
my ($cgi) = @_;
my ($d) = grep { &virtual_server::can_edit_domain($_) &&
$_->{$module_name} } &virtual_server::list_domains();
if ($cgi eq 'edit_contact.cgi' || $cgi eq 'edit_dereg.cgi' ||
$cgi eq 'edit_ns.cgi' || $cgi eq 'edit_renew.cgi') {
# Domain-based form
return $d ? 'dom='.&urlize($d->{'dom'}) : 'none';
}
elsif ($cgi eq 'edit.cgi') {
# Show first account
my @accounts = &list_registrar_accounts();
return !$access{'registrar'} ? 'none' :
@accounts ? 'id='.$accounts[0]->{'id'} :
'registrar=rcom';
}
elsif ($cgi eq 'list.cgi') {
# Works with no args
return '';
}
elsif ($cgi eq 'create_form.cgi') {
return 'registrar=rcom';
}
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`