https://origsvn.digium.com/svn/asterisk/branches/1.4 ................ r77844 | murf | 2007-07-31 14:59:10 -0600 (Tue, 31 Jul 2007) | 9 lines Merged revisions 77842 via svnmerge from https://origsvn.digium.com/svn/asterisk/branches/1.2 ........ r77842 | murf | 2007-07-31 13:19:35 -0600 (Tue, 31 Jul 2007) | 1 line This probably isn't super-general, but it's a first stab at using kill -11 to generate a core file instead of gcore. ........ ................ git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@77847 65c4cc65-6c06-0410-ace0-fbb531ad65f3 |
||
---|---|---|
.. | ||
agents.php | ||
ast_grab_core | ||
astgenkey | ||
astgenkey.8 | ||
autosupport | ||
autosupport.8 | ||
iax-friends.sql | ||
loadtest.tcl | ||
lookup.agi | ||
managerproxy.pl | ||
meetme.sql | ||
messages-expire.pl | ||
postgres_cdr.sql | ||
qview.pl | ||
README.messages-expire | ||
realtime_pgsql.sql | ||
retrieve_extensions_from_mysql.pl | ||
retrieve_extensions_from_sql.pl | ||
retrieve_sip_conf_from_mysql.pl | ||
safe_asterisk | ||
safe_asterisk.8 | ||
safe_asterisk_restart | ||
sip-friends.sql | ||
vmail.cgi | ||
vmdb.sql |
messages-expire.pl messages-expire finds messages more than X days old and deletes them. Because the older messages will be the lower numbers in the folder (msg0000 will be older than msg0005), just deleting msg0000 will not work. expire-messages then runs a routine that goes into every folder in every mailbox to reorganize. If the folder contains msg0000, no action is taken. If the folder does not, the rename routine takes the oldest message and names it msg0000, the next oldest message and names it msg0001 and so on. The file deletion is done by the -exec parameter to 'find'. It would be far more efficient to take the output from 'find' and just reorganize the directories from which we deleted a file. Something for the future... Keep in mind that messages are deleted at the beginning of the script you will have mailbox trouble if you check messages before the script reorganizes your mailbox. To use it, make sure the paths are right. Adjust $age (originally set to 31) if necessary.