diff options
Diffstat (limited to 'eg/changes')
| -rw-r--r-- | eg/changes | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/eg/changes b/eg/changes new file mode 100644 index 0000000000..db9b7b1d53 --- /dev/null +++ b/eg/changes @@ -0,0 +1,34 @@ +#!/usr/bin/perl -P + +# $Header: changes,v 2.0 88/06/05 00:16:41 root Exp $ + +($dir, $days) = @ARGV; +$dir = '/' if $dir eq ''; +$days = '14' if $days eq ''; + +# Masscomps do things differently from Suns + +#if defined(mc300) || defined(mc500) || defined(mc700) +open(Find, "find $dir -mtime -$days -print |") || + die "changes: can't run find"; +#else +open(Find, "find $dir \\( -fstype nfs -prune \\) -o -mtime -$days -ls |") || + die "changes: can't run find"; +#endif + +while (<Find>) { + +#if defined(mc300) || defined(mc500) || defined(mc700) + $x = `/bin/ls -ild $_`; + $_ = $x; + ($inode,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) + = split(' '); +#else + ($inode,$blocks,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) + = split(' '); +#endif + + printf("%10s%3s %-8s %-8s%9s %3s %2s %s\n", + $perm,$links,$owner,$group,$size,$month,$day,$name); +} + |