PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show a list of accounts, and a menu to add a new one
require 'virtualmin-registrar-lib.pl';
if (!$access{'registrar'}) {
# Non-admin users who access this page should be shown a list
# of their registered domains instead
&redirect("list.cgi");
exit;
}
&ui_print_header(undef, $text{'index_title'}, "", "intro", 0, 1);
# Build table of existing accounts
@accounts = &list_registrar_accounts();
@table = ( );
foreach $a (sort { $a->{'desc'} cmp $b->{'desc'} } @accounts) {
$dfunc = "type_".$a->{'registrar'}."_desc";
$desc = &$dfunc($a);
@links = ( );
$msg = &text('index_msg', "<i>$a->{'desc'}</i>");
$nonemsg = &text('index_nonemsg', "<i>$a->{'desc'}</i>");
push(@links, "<a href='../virtual-server/search.cgi?".
"field=registrar_account&what=$a->{'id'}&".
"msg=".&urlize($msg)."&".
"nonemsg=".&urlize($nonemsg)."'>".
"$text{'index_actvirts'}</a>");
push(@links, "<a href='list.cgi?id=$a->{'id'}'>".
"$text{'index_actdoms'}</a>");
push(@links, "<a href='edit_auto.cgi?id=$a->{'id'}'>".
"$text{'index_actauto'}</a>");
$cfunc = "type_".$a->{'registrar'}."_list_contacts";
if (defined(&$cfunc)) {
push(@links, "<a href='list_contacts.cgi?id=$a->{'id'}'>".
"$text{'index_actcontacts'}</a>");
}
if ($a->{'autodays'} || $a->{'autowarn'}) {
$links[$#links] = "<i>".$links[$#links]."</i>";
}
push(@table, [
{ 'type' => 'checkbox', 'name' => 'd', 'value' => $a->{'id'} },
"<a href='edit.cgi?id=$a->{'id'}'>".
($a->{'desc'} || $a->{'account'})."</a>",
$desc,
$a->{'enabled'} ? "<font color=#00aa00>$text{'yes'}</font>"
: "<font color=#ff0000>$text{'no'}</font>",
&ui_links_row(\@links),
]);
}
# Print table of accounts
print &ui_form_columns_table(
"delete.cgi",
[ [ "disable", $text{'index_disable'} ],
[ "enable", $text{'index_enable'} ],
undef,
[ "delete", $text{'index_delete'} ], ],
1,
[ [ "list.cgi", $text{'index_listall'} ] ],
undef,
[ "", $text{'index_desc'}, $text{'index_registrar'},
$text{'index_enabled'}, $text{'index_acts'} ],
100,
\@table,
undef,
0,
undef,
$text{'index_none'});
# Form to add existing registrar account
print &ui_hr();
print "<table>\n";
print &ui_form_start("edit.cgi");
print "<tr> <td><b>$text{'index_add'}</b></td>\n";
print "<td>".&ui_select("registrar", undef,
[ map { [ $_->{'name'}, $_->{'desc'} ] }
grep { !$_->{'disabled'} } @registrar_types ])."</td>\n";
print "<td>".&ui_submit($text{'index_addok'})."</td> </tr>\n";
print &ui_form_end();
# Form to create new registrar account, if any support it
# Disabled, as this only worked for Register.com and was pretty sketchy
#foreach $r (@registrar_types) {
# $cfunc = "type_".$r->{'name'}."_create_inputs";
# push(@create_types, $r) if (defined(&$cfunc) && !$r->{'disabled'});
# }
#if (@create_types) {
# print &ui_form_start("create_form.cgi");
# print "<tr> <td><b>$text{'index_create'}</b></td>\n";
# print "<td>".&ui_select("registrar", undef,
# [ map { [ $_->{'name'}, $_->{'desc'} ] } @create_types ])."</td>\n";
# print "<td>".&ui_submit($text{'index_createok'})."</td> </tr>\n";
# print &ui_form_end();
# }
print "</table>\n";
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`