#!/usr/local/bin/perl
&gZGsRbds;$MINSYTtR = 0;$ulWgkXI = "/path/above/web/server/downloads";
$tFdDGgxJt = "/path/below/web/server/downloads";
$dHooUq = "/path/to/download/directory/logs";$kniDVgmU = "download.log";
$DPBgZCXhi = "support\@webpost.net";
$vtirOPCU = "http://www.yoursite.com/downloads";$tsaif = $teYTCrS{'url'};
$FjCbwVSys = $teYTCrS{'email'};$Ekmpdq = $teYTCrS{'filename'};
$MoFeemo = $teYTCrS{'notify'};
if ($Ekmpdq eq "" or not -e "$ulWgkXI\/$Ekmpdq"){
print "Content-type: text/html\n\n";print "
\n";
print "Sorry, $Ekmpdq does not exist\n";print "\n";exit;}
if ($FjCbwVSys =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ or $FjCbwVSys !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/ or $tsaif eq "" or $FjCbwVSys eq "")
{print "Content-type: text/html\n\n";&xvyQPYjhY;exit;}&kXjjINklj;
open(LOG, ">>$dHooUq\/$kniDVgmU");
print LOG "$tTSVj - $sLtCPqGGN - $Ekmpdq - $tsaif - $FjCbwVSys - $ENV{'REMOTE_ADDR'} - $MoFeemo\n";
close(LOG);&PVynp;exit;sub xvyQPYjhY{
print<
Download Director
DownloadDirector
Version 1.0
Provided By The Web Post Network
hXKIHAqd
}sub gZGsRbds {if ("\U$ENV{'REQUEST_METHOD'}\E" eq 'GET') {
@NTfImou = split(/&/, $ENV{'QUERY_STRING'});}
elsif ("\U$ENV{'REQUEST_METHOD'}\E" eq 'POST') {
read(STDIN, $QfYsAiN, $ENV{'CONTENT_LENGTH'});
@NTfImou = split(/&/, $QfYsAiN);}else {&sZZWeDv('request_method');}
foreach $afwjWIW (@NTfImou) {($PiVIiIu, $UcccrJ) = split(/=/, $afwjWIW);
$PiVIiIu =~ tr/+/ /;
$PiVIiIu =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$UcccrJ =~ tr/+/ /;
$UcccrJ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$UcccrJ =~ s///g;if ($yuGIE == 0){
$UcccrJ =~ s/<([^>]|\n)*>//g;}if ($teYTCrS{$PiVIiIu} && ($UcccrJ)) {
$teYTCrS{$PiVIiIu} = "$teYTCrS{$PiVIiIu}, $UcccrJ";}
elsif ($UcccrJ ne "") {$teYTCrS{$PiVIiIu} = $UcccrJ;}}}sub sZZWeDv{
local($nRmXSCHrM) = @_;print "Content-Type: text/html\n\n";
print "$nRmXSCHrM
\n";exit;}sub PVynp{srand();
$VtwWmq = int(rand(1000000000000000));mkdir("$tFdDGgxJt\/$VtwWmq", 0777);
$pVmWyVo = eval { symlink("",""); 1 };if ($pVmWyVo == 1){
symlink("$ulWgkXI\/$Ekmpdq","$tFdDGgxJt\/$VtwWmq/$Ekmpdq");}else{
if ($MINSYTtR == 0){
system("cp -ip $ulWgkXI\/$Ekmpdq $tFdDGgxJt\/$VtwWmq/$Ekmpdq");}else{
system("copy $ulWgkXI\/$Ekmpdq $tFdDGgxJt\/$VtwWmq/$Ekmpdq");}}
if (not -e "$tFdDGgxJt\/$VtwWmq/$Ekmpdq"){
print "Content-type: text/html\n\n";print "\n";
print "Could not create temporary storage location.
\n";
print "Please contact $DPBgZCXhi\n";
print "\n";exit;}
print "Location: $vtirOPCU\/$VtwWmq\/$Ekmpdq\n\n";}sub kXjjINklj{
($FNqWRgoU,$qgDpsD,$VlHkXw,$kXMOFKw,$OECxL,$tAEfwB,$gICJfx,$cUfri,$AWloM) = localtime(time);
if ($FNqWRgoU < 10) {$FNqWRgoU = "0$FNqWRgoU";}if ($qgDpsD < 10) {
$qgDpsD = "0$qgDpsD";}if ($VlHkXw < 10) {$VlHkXw = "0$VlHkXw";}$OECxL++;
if ($OECxL < 10) {$MfgUMQcq = "0$OECxL";}else{$MfgUMQcq = "$OECxL";}
if ($kXMOFKw < 10){$kXMOFKw = "0$kXMOFKw";}$tAEfwB += 1900;
$tTSVj = "$MfgUMQcq\-$kXMOFKw\-$tAEfwB";
$sLtCPqGGN = "$VlHkXw\:$qgDpsD\:$FNqWRgoU";}