DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦9b46c6f19⟧ TextFile

    Length: 472 (0x1d8)
    Types: TextFile
    Names: »down«

Derivation

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

TextFile

#!/usr/bin/perl

$| = 1;
if ($#ARGV >= 0) {
    $cmd = join(' ',@ARGV);
}
else {
    print "Command: ";
    $cmd = <stdin>;
    chop($cmd);
    while ($cmd =~ s/\\$//) {
	print "+ ";
	$cmd .= <stdin>;
	chop($cmd);
    }
}
$cwd = `pwd`; chop($cwd);

open(FIND,'find . -type d -print|') || die "Can't run find";

while (<FIND>) {
    chop;
    unless (chdir $_) {
	print stderr "Can't cd to $_\n";
	next;
    }
    print "\t--> ",$_,"\n";
    system $cmd;
    chdir $cwd;
}