tmove to bin - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
DIR commit 6eaf9471a7883ae0e7dca0a274a64816ec2c6e3b
DIR parent 18baaf44d433ab9055436853decf2e60e66c5b2c
HTML Author: rsc <devnull@localhost>
Date: Wed, 13 Jul 2005 14:04:48 +0000
move to bin
Diffstat:
D src/cmd/vbackup/vmount.rc | 19 -------------------
D src/cmd/vbackup/yesterday.rc | 109 -------------------------------
2 files changed, 0 insertions(+), 128 deletions(-)
---
DIR diff --git a/src/cmd/vbackup/vmount.rc b/src/cmd/vbackup/vmount.rc
t@@ -1,19 +0,0 @@
-#!/usr/local/plan9/bin/rc
-
-if(! ~ $#* 2){
- echo 'usage: vmount server mtpt' >[1=2]
- exit usage
-}
-
-server=$1
-mtpt=$2
-
-switch(`{uname}){
-case Linux
- exec mount -o 'ro,timeo=100,rsize=8192,retrans=5,port=12049,mountport=12049,mountvers=3,nfsvers=3,nolock,soft,intr,udp' \
- $server:/dump $mtpt
-case *
- echo 'cannot mount on' `{uname} >[1=2]
- exit usage
-}
-
DIR diff --git a/src/cmd/vbackup/yesterday.rc b/src/cmd/vbackup/yesterday.rc
t@@ -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
-}