diff options
author | rsc <devnull@localhost> | 2005-07-13 14:04:48 +0000 |
---|---|---|
committer | rsc <devnull@localhost> | 2005-07-13 14:04:48 +0000 |
commit | 6eaf9471a7883ae0e7dca0a274a64816ec2c6e3b (patch) | |
tree | 0216415ece7869c1f020f454e3af2adf7752f41b /src/cmd/vbackup/yesterday.rc | |
parent | 18baaf44d433ab9055436853decf2e60e66c5b2c (diff) | |
download | plan9port-6eaf9471a7883ae0e7dca0a274a64816ec2c6e3b.tar.gz plan9port-6eaf9471a7883ae0e7dca0a274a64816ec2c6e3b.tar.bz2 plan9port-6eaf9471a7883ae0e7dca0a274a64816ec2c6e3b.zip |
move to bin
Diffstat (limited to 'src/cmd/vbackup/yesterday.rc')
-rwxr-xr-x | src/cmd/vbackup/yesterday.rc | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/src/cmd/vbackup/yesterday.rc b/src/cmd/vbackup/yesterday.rc deleted file mode 100755 index bf31dac6..00000000 --- a/src/cmd/vbackup/yesterday.rc +++ /dev/null @@ -1,109 +0,0 @@ -#!/usr/local/plan9/bin/rc - -path=($path $PLAN9/bin) - -fn usage { - echo 'usage: yesterday [-cd] [-[[yy]yy]mm]dd] [-n daysago] file ...' >[1=2] - exit 1 -} - -fn Xcp { - echo cp $1 $2 - cp $1 $2 -} - -fn Xcarefulcp { - if(! cmp -s $1 $2) Xcp $1 $2 -} - -fn Xdiff { - echo diff -c $1 $2 - diff -c $1 $2 -} - -fn Xecho { - echo $1 -} - -year=`{date|sed 's/.* //'} -copy=Xecho -last=() -while(! ~ $#* 0 && ~ $1 -* && ! ~ $1 --){ - switch($1){ - case -c - copy=Xcp - shift - case -d - copy=Xdiff - shift - case -C - copy=Xcarefulcp - shift - case -n* - if(~ $1 -n){ - if(~ $#* 1) - usage - shift - days=$1 - } - if not - days=`{echo $1 | sed 's/^-.//'} - last=`{date -r `{perl -e 'print time() - '$days'*60*60*24'} | - 9 sed -e 's%... (...) (..) ..:..:.. ... (....)%\3/\1\2%' -e 'y/ /0/' -e $smon} - shift - case -[0-9] - mon=`{date|9 sed 's/^....(...).*/\1/' -e $smon} - last=$year/$mon ^`{echo $1|sed 's/^-/0/'} - shift - case -[0-9][0-9] - mon=`{date|9 sed 's/^....(...).*/\1/' -e $smon} - last=$year/$mon ^`{echo $1|9 sed 's/^-//'} - shift - case -[0-9][0-9][0-9][0-9] - last=$year/ ^ `{echo $1|9 sed 's/^-//'} - shift - case -[0-9][0-9][0-9][0-9][0-9][0-9] - last=`{echo $year|9 sed 's/..$//'} ^ `{echo $1|9 sed 's/^-(..)/\1\//'} - shift - case -[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9] - last=`{echo $1|9 sed 's/^-(....)/\1\//'} - shift - case * - usage - } -} -if(! ~ $#* 0 && ~ $1 --) - shift - -if(~ $#* 0) - usage - -dir=`{pwd} -if(! ~ $status ''){ - echo 'yesterday: can''t find directory' >[1=2] - exit 'pwd failed' -} - -h=`{hostname} -switch($h){ -case amsterdam - xdump=/dump/am -case * - if(! test -d /dump/$h){ - echo 'no dumps on '^`{hostname} >[1=2] - exit 1 - } - xdump=/dump/$h -} - -for(i){ - xpath=$i - if(! ~ $xpath /*) - xpath=`{9 cleanname -d `{pwd} $i} - dumppath=$xpath - if(~ $#last 0) - xlast=`{9 ls -t $xdump/$year|sed 1q} - if not - xlast=$xdump/$last - $copy $xlast^$dumppath $xpath -} |