#!/usr/athena/bin/perl
push(@INC, "/mit/jsc/lib/perl");
require "find.pl";

# Traverse desired filesystems

&find('/mit/jsc/');

exit;

sub wanted {
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    (
	/^.*\.bak$/
	||
	/^.*~$/
	||
	/^\..*~$/
    ) &&
    &exec(0, 'delete','-e','{}');
}

sub exec {
    local($ok, @cmd) = @_;
    foreach $word (@cmd) {
	$word =~ s#{}#$name#g;
    }
    if ($ok) {
	local($old) = select(STDOUT);
	$| = 1;
	print "@cmd";
	select($old);
	return 0 unless <STDIN> =~ /^y/;
    }
    chdir $cwd;		# sigh
    system @cmd;
    chdir $dir;
    return !$?;
}