|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T b
Length: 696 (0x2b8)
Types: TextFile
Names: »bad_dir.pl«
└─⟦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/extra_src/bad_dir.pl«
# this prints out "bad" directory names:
# string of things that are OK; currently, this
# is anything that starts with a letter and number or the
# chars "#", "$", "-", or "+" (or the same situation, with a
# "." prepending):
$ok_string = "\/\.?[A-Za-z0-9\#\$\-\+]+[^\/]*$";
# "." and ".." are cool, as are
# anything starting with the magic string;
# but any unprintables are bad...
if ((($ARGV[0] !~ /\.{1,2}$/) && ($ARGV[0] !~ /$ok_string/) &&
($ARGV[0] ne "/")) || ($ARGV[0] =~ /\.\..+$/) ||
($ARGV[0] =~ /[*\001-\040\177-\377]/)) {
# print "MATCH: ###", $ARGV[0], "\@\@\@\n";
print "\"", $ARGV[0], "\"\n";
}
# else {
# print "\tNO MATCH: ###", $ARGV[0], "###\n";
# }