diff options
author | markster <markster@f38db490-d61c-443f-a65b-d21fe96a405b> | 2003-10-22 03:58:58 +0000 |
---|---|---|
committer | markster <markster@f38db490-d61c-443f-a65b-d21fe96a405b> | 2003-10-22 03:58:58 +0000 |
commit | 4f3f03787fcf01729aadb4e01099177d512c5071 (patch) | |
tree | 56404b11987661fec11933c526b886e22b6c247d /messages-expire.pl | |
parent | 7f2e4db808b09cc9b77f27807422f6ce98d74946 (diff) |
Add message expiry from cron (bug #388)
git-svn-id: http://svn.digium.com/svn/asterisk/trunk@1652 f38db490-d61c-443f-a65b-d21fe96a405b
Diffstat (limited to 'messages-expire.pl')
-rwxr-xr-x | messages-expire.pl | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/messages-expire.pl b/messages-expire.pl new file mode 100755 index 000000000..bb4fec5b3 --- /dev/null +++ b/messages-expire.pl @@ -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__
\ No newline at end of file |