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

⟦1130ecd30⟧ TextFile

    Length: 398 (0x18e)
    Types: TextFile
    Names: »file_owner.pl«

Derivation

└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦3da311d67⟧ »./cops/1.04/cops_104.tar.Z« 
        └─⟦6a2577110⟧ 
└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦6a2577110⟧ »./cops/1.04/cops_104.tar« 
            └─⟦this⟧ »cops_104/perl/file_owner.pl«

TextFile

#
#   This retrieves possibly cached owner of a file.
# If it returns "BOGUS", it means that the stat failed.

package main;
require 'stat.pl';

package file_owner;

sub main'Owner {
    local($file) = @_;

    if (!defined $owners{$file}) {
       if (&'Stat($file)) {
           $owners{$file} = $'st_uid;
       } else {
           $owners{$file} = 'BOGUS';
       }
    }
    $owners{$file};
}