perl-5.22
|
Last change
on this file since df958d5 was
c5c522c,
checked in by Edwin Eefting <edwin@datux.nl>, 9 years ago
|
|
initial commit, transferred from cleaned syn3 svn tree
|
-
Property mode set to
100644
|
|
File size:
585 bytes
|
| Line | |
|---|
| 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.