require 'global.defs';
require 'local.defs';
require $backuplib_perl;
 
$exitstatus = 0;
 
delete $ENV{'KRB5CCNAME'};      # use the default
 
$KRB5HOME = "/afs/athena.mit.edu/astaff/project/krb5/arch/@sys";
 
if (system("$KRB5HOME/bin/kinit -k")) {
        die "kinit failed.\n";
}
 
#$exitstatus = system("$KRB5HOME/bin/rsh", $ARGV[0], "-x", @ARGV[1..$#ARGV] );
$exitstatus = system("$KRB5HOME/bin/rsh", @ARGV );
if ($exitstatus) {
    warn "rsh failed.\n";
}
 
if (system("$KRB5HOME/bin/kdestroy")) {
    die "kdestroy failed.\n";
}
 
exit($exitstatus);