1 17e662e9 2005-07-13 devnull #!/usr/local/plan9/bin/rc
5 82d3a08d 2005-12-18 devnull smon='s/Jan/01/
10 82d3a08d 2005-12-18 devnull s/Jun/06/
11 82d3a08d 2005-12-18 devnull s/Jul/07/
12 82d3a08d 2005-12-18 devnull s/Aug/08/
13 82d3a08d 2005-12-18 devnull s/Sep/09/
14 82d3a08d 2005-12-18 devnull s/Oct/10/
15 82d3a08d 2005-12-18 devnull s/Nov/11/
16 82d3a08d 2005-12-18 devnull s/Dec/12/'
19 17e662e9 2005-07-13 devnull fn usage {
20 17e662e9 2005-07-13 devnull echo 'usage: yesterday [-cd] [-[[yy]yy]mm]dd] [-n daysago] file ...' >[1=2]
25 17e662e9 2005-07-13 devnull echo cp $1 $2
29 17e662e9 2005-07-13 devnull fn Xcarefulcp {
30 17e662e9 2005-07-13 devnull if(! cmp -s $1 $2) Xcp $1 $2
33 17e662e9 2005-07-13 devnull fn Xdiff {
34 17e662e9 2005-07-13 devnull echo diff -c $1 $2
35 17e662e9 2005-07-13 devnull diff -c $1 $2
38 17e662e9 2005-07-13 devnull fn Xecho {
42 17e662e9 2005-07-13 devnull year=`{date|sed 's/.* //'}
43 17e662e9 2005-07-13 devnull copy=Xecho
45 17e662e9 2005-07-13 devnull while(! ~ $#* 0 && ~ $1 -* && ! ~ $1 --){
46 17e662e9 2005-07-13 devnull switch($1){
51 17e662e9 2005-07-13 devnull copy=Xdiff
54 17e662e9 2005-07-13 devnull copy=Xcarefulcp
57 17e662e9 2005-07-13 devnull if(~ $1 -n){
58 17e662e9 2005-07-13 devnull if(~ $#* 1)
64 17e662e9 2005-07-13 devnull days=`{echo $1 | sed 's/^-.//'}
65 82d3a08d 2005-12-18 devnull last=`{date `{hoc -e `{date -n} ^ '-'$days'*60*60*24'} | \
66 82d3a08d 2005-12-18 devnull sed -e 's%... (...) (..) ..:..:.. ... (....)%\3/\1\2%' -e 'y/ /0/' -e $smon}
68 17e662e9 2005-07-13 devnull case -[0-9]
69 17e662e9 2005-07-13 devnull mon=`{date|9 sed 's/^....(...).*/\1/' -e $smon}
70 17e662e9 2005-07-13 devnull last=$year/$mon ^`{echo $1|sed 's/^-/0/'}
72 17e662e9 2005-07-13 devnull case -[0-9][0-9]
73 17e662e9 2005-07-13 devnull mon=`{date|9 sed 's/^....(...).*/\1/' -e $smon}
74 17e662e9 2005-07-13 devnull last=$year/$mon ^`{echo $1|9 sed 's/^-//'}
76 17e662e9 2005-07-13 devnull case -[0-9][0-9][0-9][0-9]
77 17e662e9 2005-07-13 devnull last=$year/ ^ `{echo $1|9 sed 's/^-//'}
79 17e662e9 2005-07-13 devnull case -[0-9][0-9][0-9][0-9][0-9][0-9]
80 17e662e9 2005-07-13 devnull last=`{echo $year|9 sed 's/..$//'} ^ `{echo $1|9 sed 's/^-(..)/\1\//'}
82 17e662e9 2005-07-13 devnull case -[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]
83 17e662e9 2005-07-13 devnull last=`{echo $1|9 sed 's/^-(....)/\1\//'}
89 17e662e9 2005-07-13 devnull if(! ~ $#* 0 && ~ $1 --)
92 17e662e9 2005-07-13 devnull if(~ $#* 0)
95 17e662e9 2005-07-13 devnull dir=`{pwd}
96 17e662e9 2005-07-13 devnull if(! ~ $status ''){
97 17e662e9 2005-07-13 devnull echo 'yesterday: can''t find directory' >[1=2]
98 17e662e9 2005-07-13 devnull exit 'pwd failed'
101 17e662e9 2005-07-13 devnull h=`{hostname}
102 17e662e9 2005-07-13 devnull switch($h){
103 17e662e9 2005-07-13 devnull case amsterdam
104 17e662e9 2005-07-13 devnull xdump=/dump/am
106 17e662e9 2005-07-13 devnull if(! test -d /dump/$h){
107 17e662e9 2005-07-13 devnull echo 'no dumps on '^`{hostname} >[1=2]
110 17e662e9 2005-07-13 devnull xdump=/dump/$h
114 17e662e9 2005-07-13 devnull xpath=$i
115 17e662e9 2005-07-13 devnull if(! ~ $xpath /*)
116 17e662e9 2005-07-13 devnull xpath=`{9 cleanname -d `{pwd} $i}
117 17e662e9 2005-07-13 devnull dumppath=$xpath
118 17e662e9 2005-07-13 devnull if(~ $#last 0)
119 17e662e9 2005-07-13 devnull xlast=`{9 ls -t $xdump/$year|sed 1q}
121 17e662e9 2005-07-13 devnull xlast=$xdump/$last
122 17e662e9 2005-07-13 devnull $copy $xlast^$dumppath $xpath