Uso questo (indovinate scritto da chi). Serve una shell cygwin e Perl.
Si possono modificare i parametri.. o usare le opzioni.
[code]
#!/usr/bin/perl
use File::Basename;
use Getopt::Long;
use IO::Dir;
# specify your default settings here...
$dry = 0; # if 1 Dry Run
$out = 0;
$nosmall = 0;
$output = "sex.index.html";
@disks = ('C', 'D', 'E', 'F', 'G', 'H', 'I');
GetOptions(
"help" => \$help,
"nosmall=i" => \$nosmall,
"dry" => \$dry,
"o=s" => \$output,
"disk=s" => \@disks
);
#---------------------------------------------------------
@nocategories = (Picture, RECYCLE, Cover, System) ;
@categories = ('Anal|Butt| Ass|Asses|Sodom|Inculat|Culi', 'Alex.D', 'Amateur|Amatoriale|Swinger', 'Asia|Japan|Japs|China', 'Blake', 'Blowjob|Pompino|Suck', Barely, 'Black|Ebony', 'Bizarre|Fetish|!Trance', 'Bondage|BDSM|Domination|Spank|Punishment', Buttman, Classic, 'Carnival|Brazil', 'Cento|CxC', EvilAngel, Dogging,'D\'Agde', Dorcel, Drunk, 'Facial|Swallow', Fist, French, Fuck, Flesh, Gayle, Givemepink, 'Girls Gone Wild|Gone Wild|GGW', 'Gang|Bang', 'GGG|666', Hardcore, Hustler, Inflagranti, KitKatClub, 'Love.*Parade|Parade', Berlin, 'Lesbian|Lesbo|Saffo', 'Max.*Hardcore', 'Milf|Matur', 'Outdoor|Exhib|Reality', 'Orgy|Party|Group', 'Piss|Wet', Private, 'Pregnant|Drop|Incint|Lact', Pornstar, Belladonna, Jenna,Katsumi, 'Brianna|Banks', Lahaie, Anita, Silvia, Sophie, 'Gina.*Wild', 'Italian', Rizzo, Selen, Henger, 'Moana|Lotar|Schubert|Cicciolina', 'Deborah.*Wells', Rocco, Kelly, 'Red.*Light', 'Russia|Moscow', Salieri, Squirt, 'Scat', Shemale, Small, 'Tatoo|Tattoo', 'Viv Thomas', VVari);
print "Welcome to [Sex]FileOrganizer. Get usage with --help\n";
if ($help) {
print "FileOrganizer.pl -o indexfile\n";
print @categories;
exit 1;
}
print "Skip files less than $nosmall\n" if ($nosmall);
foreach $disk (@disks) {
print "Scanning Disk $disk: \n";
$d = IO::Dir->new("/cygdrive/$disk");
next if (!defined $d);
while (defined($_ = $d->read)) {
next if (/\.|\.\./);
next if (m/Cover/i);
next if (m/Picture/i);
next if (m/RECYCLE/i);
next if (m/System/i);
@out = `find "/cygdrive/$disk/$_" -print` ;
foreach $f (@out) {
chomp($f);
next if (-d $f);
next if (!($f =~ m/avi$|mpg$|mpeg$|mkv$|wmv$|ogm$|asf$/i));
$size = -s $f;
# Skip if size is small
next if ($size < $nosmall);
if ($size > (1024*1024*1024)) {
$size = sprintf("%7.2fGB", $size/(1024*1024*1024));
} elsif ($size > (1024*1024)) {
$size = sprintf("%7.2fMB", $size/(1024*1024));
} elsif ($size > 1024) {
$size = sprintf("%7.2fKB", $size/(1024));
}
$f =~ s|/cygdrive/.||;
$basename = basename($f);
$basename =~ s|_| |g; # No underscore
$basename = ucfirst($basename); # Uppercase first
$dirname = dirname($f);
$dirname =~ s|/|\\|g;
$dirname = "$disk:$dirname";
$x = qq(<a href="file:///$disk:/$f">$basename</a> $dirname ~ $size <br>);
$found = 0;
foreach $category (@categories) {
if ($f =~ m/$category/i) {
$Categories{$category} .= "$x;";
$found = 1;
}
}
$Categories{Others} .= "$x;" if (!$found);
}
}
}
# Print Out Results
open OUT, "> $output" or die ("Cannot open $output $!\n");
$date = gmtime;
print OUT <<EOF;
<head>
<title>Sex File Organized</title>
<body>
<style>
html {background-color: #CCCCCC}
a:link,a:active,a:visited,a.postlink { color:#000066; text-decoration:none; }
a:hover {color:#dd6900}
body {font-family: serif}
p {margin-left: 2em ; margin-right: 2em}
p.sub {font-style: italic ; margin-left: 2em ; margin-bottom: -0.5em ; color:#009}
p.indent {margin-left: 4em ; margin-right: 4em}
p.masthead {margin-left: 0; font-size: 9pt}
h1 {color:#000054}
h2 {color:#000054}
h4 {color:#000054}
</style>
<h1>Sex File Organized on $date</h1>
EOF
push (@categories, 'Others');
foreach $cat (@categories) {
print OUT "<h1>$cat</h1>\n";
@list = split(';', $Categories{$cat} );
@sorted = sort mysort @list;
foreach $f (@sorted) { print OUT "$f\n";}
}
print OUT "\n</body>\n</head>\n";
close OUT;
exit 0;
sub mysort {
$aa=$a; $bb=$b;
$aa =~ s|.*">||;
$bb =~ s|.*">||;
$ret = (lc($aa) cmp lc($bb));
}
[/code]
Niente l'opzione [code] di BB non funge.. lasciate perdere.
Ich bin ein Berliner. JFK
) in base a cosa li archiviate?
