DataMuseum.dk

top - metrics - download

    Length: 888 (0x378)
    Types: TextFile
    Names: »changes«

└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦b5330643c⟧ »./cops/perl-4.019/perl.tar.Z« 
        └─⟦2b9a58213⟧ 
            └─⟦this⟧ »perl-4.019/eg/changes« 

TextFile

#!/usr/bin/perl -P

# $Header: changes,v 4.0 91/03/20 01:08:56 lwall Locked $

($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);
}