#!/usr/bin/perl
###################################################################
# FILE UPLOADER
# Distribution by Psybercore.com, Inc. info@superscripts.com
#
# My name is Drew Star... and I am funky http://www.mp3.com/drewstar/
#
# http://www.superscripts.com/
#
###################################################################
# FILE UPLOADER
#
# Duplicating or redistributing this program without prior
# written consent is expressly forbidden. You must Obtain
# permission before redistributing this software by any means.
# In all cases this copyright/license notice must remain intact.
#
# http://Marek'sScripts.w2w.cc/
#
###################################################################
## Define Variables:
############ General Options ############
## Your path to where you want your files uploaded.
## Note: NO trailing slash
$imagedir = "/home/yourdomain/www/upfiles";
# Full path on your server to log file
$log = "/home/yourdomain/www/cgi-bin/up.log";
# set to the number of files you wish to upload +1
# (e.g. for 10 files $numfiles = "11")
$numfiles = "5";
# referer allows addresses listed here only, and prevents others from using
# the program - replace yourdot.com and IP numbers to match your site
# case insensitive
@referers = ('yourdomain.com', 'www.yourdomain.com', '209.456.66.132');
############ File Type Options ############
## Do you wish to allow all file types? yes/no (no capital letters)
$allowall = "no";
## If $allowall = "no" enter file extensions below (no capital letters)
@filetypes = ('.jpg', '.jpeg', '.gif');
############ Mail Options ############
$EMail = "yes"; # yes/no lowercase - Do you want to recieve email notification?
$sendmail="/usr/sbin/sendmail"; #path to sendmail on your server
$ConfirmToEmail = "youremail\@yourdomain.com"; #email to send webmaster's confromation to
$SubjectEmail="Files Uploaded"; #email subject
############ Results Page Background and Coulour Options ############
$bgcolor = "#FFFFFF";
$text = "#000000";
$link = "#0000FF";
$vlink = "#800080";
$background = "";
############ Results Page Text Options ############
$html_title="Thank You!";
$html_header="Thank You!";
$html_header2="Files Uploaded";
$message = "Thank you for uploading.";
############ Results Page Link Options ############
$link1 = "http://www.yourdomain.com/index.html";
$text_link1 = "Home";
$link2 = "http://www.yourdomain.com/links.html";
$text_link2 = "Links";
$link3 = "http://www.yourdomain.com/up.html";
$text_link3 = "Back";
################################################
## DO NOT EDIT OR COPY BELOW THIS LINE ##
################################################
$body = "";
$html_header3="Uploaded by:";
$EmailMessage = "New files have been uploaded!"; #email message
$numfiles++;
# Check Referring URL
&check_url();
use CGI;
$onnum = 1;
while ($onnum != $numfiles) {
my $req = new CGI;
if ($req->param("FILE1") eq "") { &error_nofile; }
my $file = $req->param("FILE$onnum");
if ($file ne "") {
my $fileName = $file;
$fileName =~ s!^.*(\\|\/)!!;
$newmain = $fileName;
$persname = $req->param("persname");
$persemail = $req->param("persemail");
$descr = $req->param("descr");
### Validate File Types ###
$filegood = "yes";
if ($allowall ne "yes") { &check_filetypes; }
### Do the Work ###
if ($filegood eq "yes") {
open (OUTFILE, ">$imagedir/$fileName");
#print "
File $onnum: $fileName
";
#if ($EMail eq "yes") { print MAIL "$newmain\n\n"; }
#if ($log ne "") { push(@filelist,"$fileName"); }
push(@filelist,"$fileName");
$temp = "File $onnum: $fileName";
push(@filelist2,"$temp");
while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
}
}
$onnum++;
}
if ($EMail eq "yes") { &send_mail_3; }
if ($log ne "") { &log_3; }
&print_html;
exit;
## Start of SubRoutines ##
###############################################################
sub send_mail_3 {
#$upload2 = join(", ",@filelist);
# Open and write Confirmation Email
open(MAIL,"|$sendmail -t");
print MAIL "To: $ConfirmToEmail\n";
print MAIL "From: $ConfirmToEmail\n";
print MAIL "Subject: $SubjectEmail\n\n\n" ;
print MAIL "$EmailMessage\n\n";
print MAIL "\n";
foreach $i (@filelist2) {print MAIL "$i\n\n";}
print MAIL "\n";
print MAIL "Files uploaded by: $persname <$persemail>\n";
print MAIL "\n";
print MAIL "\n";
print MAIL "Comments: $descr\n";
print MAIL "\n\n\n";
print MAIL "This CGI was developed by:\n\n";
print MAIL "Marek\'s Script Archive http://MareksScripts.w2w.cc\n\n";
close (MAIL);
}
###############################################################
sub redirect {
print "Location:$donepage\n\n";
#exit;
}
###############################################################
sub print_html {
print "Content-type:text/html\n\n";
print "$html_title\n";
print "$body\n";
print "
";
#exit;
}
####### Check to see if another site is trying to use the program ########
sub check_url {
my $check_referer = 0;
if ( $ENV{'HTTP_REFERER'} ) {
foreach $referer (@referers) {
if ($ENV{'HTTP_REFERER'} =~ m|https?://([^/]*)$referer|i) {
$check_referer = 1;
last;
}
}
}
else {
$check_referer = 0;
}
if ($check_referer != 1) { &ref_error; }
}
###############################################################
sub error_filetype {
print "Content-type:text/html\n\n";
print "Invalid File Type$body\n";
print "
\n";
print "You tried to upload an invalid file type ( $newmain )!";
print "