#!/usr/bin/perl -w
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
#NAME
#  Rm -
#
#SYNOPSIS
#  Rm [file]..
#
#REQUIRES
	$HOME = $ENV{'HOME'} || '.';
	push @INC, "$HOME/bin", "$HOME/lib", "$HOME/sh";
	require "Backup.pm";	# Backup by renaming
#
#DESCRIPTION
#
#OPTIONS
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #

$| = 1;
$exitstat = 0;
($P = $0) =~ s".*/"";
$V = $ENV{"V_$P"} || $ENV{"D_$P"} || 1;	# Verbose level.

for $f (@ARGV) {
	if (-f $f) {
		print "$P: Backup: \"$f\"\n";
		&Backup($f);
	} else {
		print "$P: No file \"$f\"\n";
	}
}

print "$P: Exit with status $exitstat.\n" if $V>1 || $exitstat;
exit $exitstat;

# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #