#!/usr/bin/perl -P # $Header: /home/cvs/386BSD/ports/lang/perl/eg/changes,v 1.1.1.1 1993/08/23 21:29:43 nate 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 () { #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); }