Revision 10724,
902 bytes
checked in by ghudson, 27 years ago
(diff) |
This commit was generated by cvs2svn to compensate for changes in r10723,
which included commits to RCS files with non-trunk default branches.
|
Line | |
---|
1 | #!/usr/bin/perl -P |
---|
2 | |
---|
3 | # $RCSfile: changes,v $$Revision: 1.1.1.2 $$Date: 1997-11-13 01:47:41 $ |
---|
4 | |
---|
5 | ($dir, $days) = @ARGV; |
---|
6 | $dir = '/' if $dir eq ''; |
---|
7 | $days = '14' if $days eq ''; |
---|
8 | |
---|
9 | # Masscomps do things differently from Suns |
---|
10 | |
---|
11 | #if defined(mc300) || defined(mc500) || defined(mc700) |
---|
12 | open(Find, "find $dir -mtime -$days -print |") || |
---|
13 | die "changes: can't run find"; |
---|
14 | #else |
---|
15 | open(Find, "find $dir \\( -fstype nfs -prune \\) -o -mtime -$days -ls |") || |
---|
16 | die "changes: can't run find"; |
---|
17 | #endif |
---|
18 | |
---|
19 | while (<Find>) { |
---|
20 | |
---|
21 | #if defined(mc300) || defined(mc500) || defined(mc700) |
---|
22 | $x = `/bin/ls -ild $_`; |
---|
23 | $_ = $x; |
---|
24 | ($inode,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) |
---|
25 | = split(' '); |
---|
26 | #else |
---|
27 | ($inode,$blocks,$perm,$links,$owner,$group,$size,$month,$day,$time,$name) |
---|
28 | = split(' '); |
---|
29 | #endif |
---|
30 | |
---|
31 | printf("%10s%3s %-8s %-8s%9s %3s %2s %s\n", |
---|
32 | $perm,$links,$owner,$group,$size,$month,$day,$name); |
---|
33 | } |
---|
34 | |
---|
Note: See
TracBrowser
for help on using the repository browser.