From: yh@JMAS.CO.JP (You HITOMI)
Subject: Re: unerase rm file
	<hEQSr.takamune@isl.mei.co.jp>
	<MATUSITA.92Dec25034438@tori11.ics.osaka-u.ac.jp>
Date: 29 Dec 1992 11:37:18 GMT
Distribution: fj
Organization: JMA Systems Corp., Kamiya-cho, MINATO-KU, TOKYO

$@?M8+!w#J#M#A#S$G$9!%(J

In <MATUSITA.92Dec25034438@tori11.ics.osaka-u.ac.jp>
	matusita@ics.osaka-u.ac.jp (MAKOTO "MAR_kun" Matsushita) writes:

>$@$=$&$G$9$M!#(Jrm *.o $@$H$+$G$O!"$@$a$G$9$M!#(J

>$@9b=!$5$s(J> $@!V(Jrm $@$N0z?t$K%o%$%k%I%+!<%I$,4^$^$l$F$$$k>l9g(J
>$@9b=!$5$s(J> $@!!(J($@$b$7$/$O!"%o%$%k%I%+!<%I$,$"$j!"$=$l$,J#?t$N%U%!%$%kL>$KE83+$5$l$k>l9g(J)
>$@9b=!$5$s(J> $@!!$K$N$_!"(Jrm $@$,(J rm -i $@$H$7$FF/$/!W(J
>$@9b=!$5$s(J> $@$h$&$K$G$-$l$P$$$$$J$!!"$H$h$/;W$C$F$k$N$G$9$,!"(J

$@;d$O!$$3$l$rK~$?$9(J rmsecure $@$H$$$&(J csh $@%9%/%j%W%H(J($@=P=hITL@(J)$@$r(J rm $@$K(J 
alias $@$7$F;H$C$F$$$^$9!%(J

>$@$3$l$O>/$J$/$H$b(J *.orig $@$H$+>C$7$?$$$H$-$K$&$C$H$&$7$$$h$&$J5$$,$9$k$N(J
>$@$G$9$,!"!"!"$b$A$m$s!"$=$N>l9g$K$h$k$G$7$g$&$,!#(J

rmsecure $@$O%o%$%k%I%+!<%IE83+8e$N%U%!%$%k$rI=<($7$F!$0l3g:o=|$9$k$3$H(J
$@$b#1%U%!%$%k$E$D:o=|$9$k$3$H$b$G$-$^$9!%(J

$@C;$$$N$GE:IU$7$^$9!%(J

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  rmsecure
# Wrapped by yh@jmasgw on Tue Dec 29 20:04:42 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'rmsecure' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'rmsecure'\"
else
echo shar: Extracting \"'rmsecure'\" \(1066 characters\)
sed "s/^X//" >'rmsecure' <<'END_OF_FILE'
X#! /bin/csh -f
X# csh script ; secure remove of files
Xonintr out
Xset interact
Xset force
Xset recur
Xset minus
Xwhile ("$1" == "-" || "$1" =~ -[f,i,r])
X    switch ($1)
X	case -i: 
X	    set interact=-i
X	    shift
X	    breaksw
X	case -f: 
X	    set force=-f
X	    shift
X	    breaksw
X	case -r: 
X	    set recur=-r
X	    shift
X	    breaksw
X	case  -: 
X	    set minus=-
X	    shift
X	    break
X    endsw
Xend
Xif ($interact == -i) then
X    /bin/rm -i $force $recur $minus $*
X    exit($status)
Xendif
Xset f1=`echo $0`
Xset f1=$f1:t" : remove"
Xset r
Xwhile ("$1" != '')
X    set b=`echo $1`
X    if ("$b" != '') then
X	set noglob
X	set a=$1
X	unset noglob
X	if ("$a" == "$b") then
X	    set r="$r $b"
X	else
X	    if ($#b == 1) then
X		echo -n $f1 $b '? '
X		if ( $< == "y" ) then
X		    set r="$r $b"
X		endif
X	    else
X		echo -n $f1 $b '? '| fold
X		if ( $< == "y" ) then
X		    set r="$r $b"
X		else
X		    foreach n ($b)
X			echo -n $f1 $n '? '
X			if ( $< == "y" ) then
X			    set r="$r $n"
X			endif
X		    end
X		endif
X	    endif
X	endif
X    endif
X    shift
Xend
X/bin/rm $force $recur $minus $r
Xout: 
Xexit(0)
END_OF_FILE
if test 1066 -ne `wc -c <'rmsecure'`; then
    echo shar: \"'rmsecure'\" unpacked with wrong size!
fi
chmod +x 'rmsecure'
# end of 'rmsecure'
fi
echo shar: End of shell archive.
exit 0

-- 
$B$R$H$_$h$&(J E-mail:yh@JMAS.CO.JP Mix:yotaro Nifty:NAD02136
JMA Systems Corp. Tel:+81 3 3431 7417 Fax:+81 3 3431 7063


Newsgroups: fj.questions.unix