Viewing file:  delete_list.cgi (3.32 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# delete_list.cgi
# Delete a mailing list, after asking the user if he is sure
require './majordomo-lib.pl';
&ReadParse();
$name = $in{'name'};
($namere = $name) =~ s/\./\\./g;
%access = &get_module_acl();
&can_edit_list(\%access, $name) || &error($text{'delete_ecannot'});
# find aliases and files
$conf = &get_config();
$aliases_files = &get_aliases_file();
&foreign_call($aliases_module, "lock_alias_files", $aliases_files)
if ($in{'confirm'});
@aliases = &foreign_call($aliases_module, "list_aliases", $aliases_files);
foreach $a (@aliases) {
if ($a->{'name'} eq $name && $a->{'value'} =~ /-digestify/i) {
&error($text{'delete_edigest'});
}
if ($a->{'name'} =~ /-digestify$/i && $a->{'value'} =~ /\s$namere\s/i) {
$digestify = $a;
}
if ($a->{'name'} eq $name) {
foreach $v (@{$a->{'values'}}) {
$real_list = $1
if ($v =~ /^\|\S*wrapper\s+resend.*\s(\S+)$/);
}
}
}
@daliases = grep { $_->{'name'} =~ /^$namere$/i ||
$_->{'name'} eq $real_list ||
$_->{'name'} =~ /^$namere-(list|owner|approval|outgoing|request|archive)$/i ||
$_->{'name'} =~ /owner-$namere-outgoing$/i ||
$_->{'name'} =~ /$namere-outgoing-(list|owner|approval)$/i ||
$_ eq $digestify ||
$_->{'name'} =~ /^owner-$namere$/i } @aliases;
$ldir = &perl_var_replace(&find_value("listdir", $conf), $conf);
opendir(LDIR, $ldir);
while($f = readdir(LDIR)) {
if ($f eq $name || $f =~ /^$namere\./) {
push(@files, "$ldir/$f");
}
}
closedir(LDIR);
if ($in{'confirm'}) {
# do the deletion
foreach $f (@files) { &lock_file($f); }
foreach $f (@files) {
system("rm -rf \"$f\"");
}
foreach $f (@files) { &unlock_file($f); }
@daliases = sort { $b->{'line'} <=> $a->{'line'} } @daliases;
foreach $a (@daliases) {
&foreign_call($aliases_module, "delete_alias", $a,
$aliases_file, $a ne $daliases[$#daliases]);
}
if ($digestify) {
# delete the digestify alias from the 'parent' list
foreach $a (@aliases) {
$idx = &indexof($digestify->{'name'},@{$a->{'values'}});
if ($idx >= 0) {
splice(@{$a->{'values'}}, $idx, 1);
&foreign_call($aliases_module,
"modify_alias", $a, $a);
}
}
}
&foreign_call($aliases_module, "unlock_alias_files", $aliases_files);
# remove from ACLs
&read_acl(undef, \%wusers);
foreach $u (keys %wusers) {
%uaccess = &get_module_acl($u);
$uaccess{'lists'} = join(' ', grep { $_ ne $name }
split(/\s+/, $uaccess{'lists'}));
&save_module_acl(\%uaccess, $u) if ($uaccess{'lists'} ne '*');
}
&webmin_log("delete", "list", $name);
&redirect("");
}
else {
# ask the user if he is sure
&ui_print_header(undef, $text{'delete_title'}, "");
print "<form action=delete_list.cgi>\n";
print "<input type=hidden name=name value=\"$name\">\n";
print "<input type=hidden name=confirm value=1>\n";
print "<b>",&text('delete_rusure', "<tt>".&html_escape($name)."</tt>"),
"</b><br>\n";
print "<ul>\n";
foreach $f (@files) {
print "<tt>",&html_escape($f),"</tt><br>\n";
}
print "</ul>\n";
print "<b>$text{'delete_aliases'}</b><br>\n";
print "<ul>\n";
foreach $a (@daliases) {
print "<tt>",&html_escape("$a->{'name'}: $a->{'value'}"),
"</tt><br>\n";
}
print "</ul>\n";
print "<center><input type=submit ",
"value='$text{'delete_ok'}'></center>\n";
print "</form>\n";
&ui_print_footer("edit_list.cgi?name=$name", $text{'edit_return'});
}
|