#!/usr/bin/perl
#Список файлов
$flist=".files.lst";
$outputname="gallery00.htm";
die "Ошибка при открытии списка файлов" unless open FLIST, $flist;
srand;
while (<FLIST>) {
chomp;
if (($f_path,$f_name,$f_ext)=/^(.*?)([^\/]+?)(\.\w+)?$/) {
$n_name=$f_path.(rand(1000)).$f_ext;
print "Ошибка переименования файла $_\n" unless rename $_,$n_name;
@n_names=(@n_names,"$n_name\n");
}
}
close FLIST;
die "Ошибка при записи списка файлов" unless open FLIST, ">$flist";
print FLIST @n_names;
close FLIST;
die "Ошибка при выводе HTML" unless open FOUT, ">$outputname";
print FOUT "<html>";
print FOUT "\n";
print FOUT "<head>";
print FOUT "\n";
print FOUT '<title>GALL-01: PIZDILOVKA</title>';
print FOUT "\n";
print FOUT "</head>";
print FOUT "\n";
print FOUT "\n";
print FOUT '<body bgcolor="#CDE6FF" text="#000000" leftmargin="10" topmargin="10">';
print FOUT "\n";
print FOUT '<p align="center"><b><font color="#990000" size="4" face="Verdana">LINKS CHANGES EVERY 2 HOURS.</font></b></p>';
print FOUT "\n";
print FOUT '<div align="center"><br>';
print FOUT "\n";
print FOUT '<b><font size="3" face="Verdana">WMV (for ADSL and faster): sexy-fucking-masturbating, 2:00, 3218Kb<br>';
print FOUT "\n";
chomp($n_names[0]);
print FOUT "<a href=\"${n_names[0]}\">GET VIDEO 1</a><br>";
print FOUT "\n";
print FOUT 'WMV (for ADSL and faster): eblya v sraku rakom, 2:20, 3762Kb<br>';
print FOUT "\n";
chomp($n_names[1]);
print FOUT "<a href=\"${n_names[1]}\">GET VIDEO 2</a></font></b><br><br>";
print FOUT "\n";
print FOUT '<font size="3" font color="#0000FF" face="Verdana"><b>Thank You.</b></font>';
print FOUT "\n";
print FOUT '</div>';
print FOUT "\n";
print FOUT "</body>";
print FOUT "\n";
print FOUT "</html>";
print FOUT "\n";
close FOUT;