Viewing file:  delete_tmpls.cgi (1.85 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Delete one or more server templates
require './virtual-server-lib.pl';
&ReadParse();
&error_setup($in{'default'} || $in{'defaultsub'} ? $text{'tdelete_err2'}
: $text{'tdelete_err'});
&can_edit_templates() || &error($text{'newtmpl_ecannot'});
@d = split(/\0/, $in{'d'});
@d || &error($text{'tdelete_enone'});
# Get selected templates
@tmpls = &list_templates();
foreach $tid (@d) {
($tmpl) = grep { $_->{'id'} == $tid } @tmpls;
if ($tmpl) {
push(@deltmpls, $tmpl);
push(@users, &get_domain_by("template", $tmpl->{'id'}));
}
}
if ($in{'default'} || $in{'defaultsub'}) {
# Just changing the default template
&lock_file($module_config_file);
$tmpl = $deltmpls[0];
if ($in{'default'}) {
$tmpl->{'id'} == 1 && &error($text{'tdelete_edefsub'});
$config{'init_template'} = $tmpl->{'id'};
}
else {
$tmpl->{'id'} == 0 && &error($text{'tdelete_edeftop'});
$config{'initsub_template'} = $tmpl->{'id'};
}
&unlock_file($module_config_file);
&save_module_config();
&webmin_log("default", "templates", $tmpl->{'name'});
&redirect("edit_newtmpl.cgi");
}
elsif ($in{'confirm'}) {
# Do the deletion
foreach $tmpl (@deltmpls) {
$tmpl->{'standard'} && &error($text{'newtmpl_edelete'});
&delete_template($tmpl);
}
&run_post_actions_silently();
&webmin_log("delete", "templates", scalar(@d));
&redirect("edit_newtmpl.cgi");
}
else {
# Ask first
&ui_print_header(undef, $text{'tdelete_title'}, "");
print &ui_confirmation_form(
"delete_tmpls.cgi",
&text('tdelete_warn',
join(", ", map { $_->{'name'} } @deltmpls)),
[ [ 'delete', 1 ],
(map { [ "d", $_ ] } @d) ],
[ [ "confirm", $text{'tdelete_confirm'} ] ],
undef,
@users ? &text('tdelete_users',
join(" ", map { &show_domain_name($_) } @users))
: '');
&ui_print_footer("edit_newtmpl.cgi", $text{'newtmpl_return'},
"", $text{'index_return'});
}
|