gcc484perl-5.22
Last change
on this file since 128fde4 was
c5c522c,
checked in by Edwin Eefting <edwin@datux.nl>, 8 years ago
|
initial commit, transferred from cleaned syn3 svn tree
|
-
Property mode set to
100644
|
File size:
585 bytes
|
Rev | Line | |
---|
[c5c522c] | 1 | #!/bin/bash +x |
---|
| 2 | #rick@datux.nl |
---|
| 3 | |
---|
| 4 | FAXSPOOLDIR="/var/spool/asterisk/fax/"; |
---|
| 5 | FAXQUARANTINE="/var/spool/asterisk/faxquarantine/"; |
---|
| 6 | |
---|
| 7 | KEEPDAYSINSPOOLDIR=1; |
---|
| 8 | KEEPDAYSINQUARANTINE=28; |
---|
| 9 | |
---|
| 10 | mkdir -p "$FAXSPOOLDIR" |
---|
| 11 | mkdir -p "$FAXQUARANTINE" |
---|
| 12 | |
---|
| 13 | #Move files older than KEEPDAYSINSPOOLDIR to FAXQUARANTINE |
---|
| 14 | cmd="find $FAXSPOOLDIR -mtime +$KEEPDAYSINSPOOLDIR -printf %p\n"; |
---|
| 15 | for fax in `$cmd`; |
---|
| 16 | do |
---|
| 17 | mv "$fax" "$FAXQUARANTINE"; |
---|
| 18 | done |
---|
| 19 | |
---|
| 20 | #Delete faxes older than KEEPDAYSINQUARANTINE from FAXQUARANTINE |
---|
| 21 | cmd="find $FAXQUARANTINE -mtime +$KEEPDAYSINQUARANTINE -printf %p\n"; |
---|
| 22 | for qfax in `$cmd`; |
---|
| 23 | do |
---|
| 24 | rm "$qfax"; |
---|
| 25 | done |
---|
Note: See
TracBrowser
for help on using the repository browser.