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

⟦48a85b2f3⟧ TextFile

    Length: 414 (0x19e)
    Types: TextFile
    Names: »file_mode.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_mode.pl«

TextFile

#
#  This retrieves a possibly cached mode on file.
# If it returns "BOGUS", it means that the stat failed.
#
# tchrist@convex.com

package main;
require 'stat.pl';

package file_mode;

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

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