PAL.C.T MINI SHELL
#!/usr/bin/perl
# delete.cgi
# Delete a bunch of voicemail messages
require './vgetty-lib.pl';
&ReadParse();
@conf = &get_config();
$mdir = &messages_dir(\@conf);
@del = split(/\0/, $in{'del'});
$index = &messages_index(\@conf);
&lock_file($index);
open(INDEX, "<$index");
@index = map { chomp; $_ } <INDEX>;
close(INDEX);
if (!@index) {
$bak = &find_value("backup_message", \@conf);
push(@index, $bak) if (-r "$mdir/$bak");
}
if ($in{'move'}) {
$rdir = &receive_dir(\@conf);
foreach $f (@del) {
$f =~ /\.\./ && &error($text{'delete_efile'});
rename("$rdir/$f", "$mdir/$f");
}
push(@index, @del);
&open_tempfile(INDEX, ">$index");
&print_tempfile(INDEX, map { "$_\n" } @index);
&close_tempfile(INDEX);
&unlock_file($index);
&webmin_log("move", undef, undef, { 'del' => \@del });
&redirect("list_received.cgi");
}
else {
$dir = $in{'mode'} ? &messages_dir(\@conf) : &receive_dir(\@conf);
foreach $f (@del) {
$f =~ /\.\./ && &error($text{'delete_efile'});
unlink("$dir/$f");
}
if ($in{'mode'}) {
@index = grep { &indexof($_, @del) < 0 } @index;
&open_tempfile(INDEX, ">$index");
&print_tempfile(INDEX, map { "$_\n" } @index);
&close_tempfile(INDEX);
}
&unlock_file($index);
&webmin_log("delete", $in{'mode'}, undef, { 'del' => \@del });
&redirect($in{'mode'} ? "list_messages.cgi" : "list_received.cgi");
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`