kenmirrors/asterisk
1
0
Fork 0
mirror of https://github.com/asterisk/asterisk.git synced 2025-10-31 02:37:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add message expiry from cron (bug #388)

Browse Source 
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@1652 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Mark Spencer
2003-10-22 03:58:58 +00:00
parent ada63fbb4f
commit adb1122f72
4 changed files with 186 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

73
contrib/scripts/messages-expire.pl Executable file
View File

@@ -0,0 +1,73 @@
#!/usr/bin/perl
#
# Script to expire voicemail after a specified number of days
# by Steve Creel <screel@turbs.com>
#
# Directory housing the voicemail spool for asterisk
$dir = "/var/spool/asterisk/voicemail";
# Context for which the script should be running
$context = "default";
# Age (Delete files older than $age days old)
$age = 31;
# Delete all files older than $age (but named msg????.??? to be sure
# we don't delete greetings or the user's name)
system('find '.$dir.'/'.$context.' -name msg????.??? -mtime +'.$age.' -exec rm {} \; -exec echo Deleted {} \;');
# For testing - what number to we start when we renumber?
$start = "0";
# Rename to msg and a 4 digit number, 0 padded.
$fnbase = sprintf "msg%04d", $start;
# Make $dir include the context too
$dir.="/".$context;
( -d $dir ) || die "Can't read list of mailboxes ($dir): $!\n";
@mailboxes = `ls -A1 $dir`;
chomp(@mailboxes);
$save_fnbase = $fnbase;
foreach $mailbox (@mailboxes) {
( -d $dir."/".$mailbox) || die "Can't read list of folders (".$dir."/".$mailbox."): $!\n";
@folders = `ls -A1 $dir/$mailbox`;
chomp(@folders);
foreach $folder (@folders) {
if (-d $dir."/".$mailbox."/".$folder) {
( -d $dir."/".$mailbox."/".$folder) || die "Can't read list of messages (".$dir."/".$mailbox."/".$folder.") $!\n";
@files = `ls -A1 $dir/$mailbox/$folder/`;
# Sort so everything is in proper order.
@files = sort @files;
chomp(@files);
# If there is still (after deleting old files earlier in the
# script) a msg0000.txt, we don't need to shuffle anything
# in this folder.
if (-f $dir."/".$mailbox."/".$folder."/msg0000.txt") { next; }
foreach $ext (("WAV", "wav", "gsm", "txt")) {
# Reset the fnbase for each file type
$fnbase = $save_fnbase;
foreach $file (@files) {
if ( $file =~ /$ext/ ) {
chdir($dir."/".$mailbox."/".$folder."/") || die "Can't change folder: $!";
print "Renaming: ".$dir."/".$mailbox."/".$folder."/".$file." to ".$fnbase.".".$ext."\n";
rename($file, $fnbase.".".$ext) || die "Cannot rename: $!";
$fnbase++;
}
}
}
}
}
}
__END__