3 # $RCSfile: changes,v $$Revision: 4.1 $$Date: 92/08/07 17:20:08 $
6 $dir = '/' if $dir eq '';
7 $days = '14' if $days eq '';
9 # Masscomps do things differently from Suns
11 #if defined(mc300) || defined(mc500) || defined(mc700)
12 open(Find, "find $dir -mtime -$days -print |") ||
13 die "changes: can't run find";
15 open(Find, "find $dir \\( -fstype nfs -prune \\) -o -mtime -$days -ls |") ||
16 die "changes: can't run find";
21 #if defined(mc300) || defined(mc500) || defined(mc700)
22 $x = `/bin/ls -ild $_`;
24 ($inode,$perm,$links,$owner,$group,$size,$month,$day,$time,$name)
27 ($inode,$blocks,$perm,$links,$owner,$group,$size,$month,$day,$time,$name)
31 printf("%10s%3s %-8s %-8s%9s %3s %2s %s\n",
32 $perm,$links,$owner,$group,$size,$month,$day,$name);