perl-5.22
|
Last change
on this file since b4abfab 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
100755
|
|
File size:
403 bytes
|
| Rev | Line | |
|---|
| [c5c522c] | 1 | #!/bin/bash |
|---|
| 2 | cd /var/spool/asterisk/monitor/ |
|---|
| 3 | for i in `find ./ -maxdepth 1 -type f`; do |
|---|
| 4 | YEARDATE="`date -r $i +%Y`"; |
|---|
| 5 | MONTHDATE="`date -r $i +%m`"; |
|---|
| 6 | QUARTERDATE=`echo "($MONTHDATE-1)/3" | bc`; |
|---|
| 7 | WEEKDATE="`date -r $i +%W`"; |
|---|
| 8 | DAYDATE="`date -r $i +%u`"; |
|---|
| 9 | |
|---|
| 10 | mkdir -p "y$YEARDATE/q$QUARTERDATE/m$MONTHDATE/w$WEEKDATE/wd$DAYDATE"; |
|---|
| 11 | mv $i "y$YEARDATE/q$QUARTERDATE/m$MONTHDATE/w$WEEKDATE/wd$DAYDATE"; |
|---|
| 12 | done |
|---|
Note: See
TracBrowser
for help on using the repository browser.
