#!/usr/athena/bin/perl

require "/afs/athena/contrib/perl/dev/lib/sun4c_411/find.pl";
require '/afs/athena/contrib/perl/dev/lib/sun4c_411/getopts.pl';

&Getopts('tb:z:r');
$|=1;
# Traverse desired filesystems

&find('.');

exit;

sub wanted {
    if($opt_t){
	if(substr($_, length($_)-1, 1) eq '~'){
	    print("Removing $name\n");
	    unlink($_);
	}
    }
    if($opt_b){
	$size = (-s $_);
	if($size > int($opt_b)){
	    print("Big($size) file: $name\n");
	}
    }
    if($opt_z){
	$size = (-s $_);
	if($size < $opt_z){
	    print("Small($size) file: $name\n");
	}
    }
    if($opt_r){
	if(-r $_){
	    print("I can read $name\n");
	}
    }
}