Plan 9 from Bell Labs 2009-06-15

sys/lib/backup/backuparenas

@@ -21,7 +21,7 @@ cd $fsroot/dev/fs
 for (name) {
 	grep next /mnt/cd/ctl
 	if (! {venti/rdarena arena0 $name |
-	    pump -b 65536 -k 51200 >/mnt/cd/wd/$name})
+	    pump -i 65536 -o 1048576 -k 51200 -d 10 >/mnt/cd/wd/$name})
 		exit
 #	ls -l /mnt/cd
 	if (test -e '/env/fn#dumpdone' -a -e '/env/set')

sys/lib/backup/dupdisc

@@ -15,7 +15,7 @@ cdfs -d /dev/$2 -m /n/copy || exit
 for (t in `{ls -p /mnt/cd | grep '^d'}) {
 	echo $t:
 	grep next /n/copy/ctl
-	pump -b 81920 -k 51200 </mnt/cd/$t >/n/copy/wd/$t
+	pump -b 1048576 -k 51200 -d 10 </mnt/cd/$t >/n/copy/wd/$t
 	ls -l /n/copy
 }
 echo 'remember to *not* rm /mnt/cd/wd' >[1=2]

sys/lib/backup/restore

@@ -80,8 +80,9 @@ for (track in d[0-9]*) {
 		# argh!  something (cdfs?) appends 60K of *stuff* to each
 		# arena on optical disc.  restrain dd.
 		count=`{ echo $arenasize/$blocksize | bc }
-		pump <$track | dd -quiet 1 -count $count -bs $blocksize \
-			-of $arenas -oseek $off
+		pump -i 1048576 -o 65536 -d 10 <$track |
+			dd -quiet 1 -count $count -bs $blocksize -of $arenas \
+				-oseek $off
 		arena = `{hoc -e $arena+1}
 	}
 }