view release on metacpan or  search on metacpan

dump.remote  view on Meta::CPAN

	else
		set dl = "-af $date1"
	endif
	/com/wbak -stdout $dl -pdtu $file
endif

if ($?bincpio) then
	# cd to $file so find can use . to create relative pathnames
	cd $file
	# this heads off "Bad Hertz value" message in stream from tophat
	setenv HZ 60
	if ($dumplevel == 0) then
		/bin/find . -mount -depth -print | /bin/cpio -oc
	else
		set stamp = `echo $date1 | sed -e 's/[^0-9]//g'`
		set stamp = `echo $stamp | sed -e 's/\(..\)\(.*\)/\2\1/'`
		touch $stamp /tmp/stamp$$
		set dl = "-newer /tmp/stamp$$"
		/bin/find . -mount -depth $dl -print | /bin/cpio -oc
	endif
endif