Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Upload file and email results

Status
Not open for further replies.
jdzines

jdzines

Technical User
Dec 18, 2007
9
0
0
US
I have file upload script I'm running on my server and would like to know if it's possible to have an email sent to me notifying me that a file was uploaded. Or is there a script out there that someone is already using that is similar? Any help would be appreciated.
Thanks!
 
Sort by date Sort by votes
What language is your upload script in?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
not really helpful.. you either need to post the script here or know what language it is.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Ok, here's a copy of the cgi script I'm running.
Hope this helps.
Thanks!


#!/usr/bin/perl
#Pop Uploader
#Provided by CGI Connection
#$| = 1;

srand();

use CGI;
$query = new CGI;
$query->import_names();

#The entire URL to the popuploader.cgi script on your server
#Eg. $cgi_url = "
#Temporary directory to store files (CHMOD directory to 777)
#Eg. /path/to/save/uploads/
$tmp_dir = "/homepages/36/d119980837/htdocs/FirstSource/popupload/";

# Username to login to administration section
$username = "username";

# Password to login to administration section
$password = "password";


# DO NOT EDIT BELOW THIS LINE
############################################

$width = $Q::width;
$height = $Q::height;
$background = $Q::background;
$background2 = $Q::background2;
$mode = $Q::mode;
$area = $Q::area;
$datafile = $Q::datafile;
$description = $Q::description;
$ext = "pup";
$lock_name = "$datafile\.lock";

if ($width < 400)
{
$width = 400;
}

if ($height < 100)
{
$height = 100;
}

$locks = $tmp_dir;

if ($area eq "download")
{
&download_file;
exit;
}

print "Content-type: text/html\n\n";

if ($area eq "login")
{
&login_screen;
exit;
}

if ($area eq "login2")
{
&show_files;
exit;
}

if ($area eq "login3")
{
&read_file;
exit;
}

if ($area eq "save")
{
&save_file;
exit;
}

if ($area eq "upload")
{
($fsize, $fname) = &upload_file;

if ($fsize == 0)
{
print "<SCRIPT>alert('$fname did not upload'); history.back(-1);</SCRIPT>\n";
}
else
{
&add_description("$fname");
print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}

exit;
}

if ($datafile eq "")
{
print "alert('You must specify a data filename');\n";
exit;
}

if ($area eq "showfiles")
{
print "document.write('<TABLE BORDER=1 WIDTH=$width CELLPADDING=0 CELLSPACING=0>');\n";
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "document.write('<TR><TD BGCOLOR=$background><A HREF=\"$cgi_url?area=download&filename=$line\">$line</A> [$new_number bytes]</TD></TR>');\n";
print "document.write('<TR><TD BGCOLOR=$background2>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
$line =~ s/\n/<BR>/g;
$line =~ s/\cM/<BR>/g;
$line =~ s/\'/\\\'/g;

print "$line";
}
}

print "</TD></TR>');\n";
}
}

close(FILE);
print "document.write('</TABLE>');\n";
exit;
}

if ($mode == 0)
{
if ($area eq "")
{
&show_popscript;
}

if ($area eq "screen")
{
&show_screen;
}
}
else
{
&show_static_screen;
}

exit;

sub lock
{
$lock_timer = 0;
$lock_timer_stop = 0;
$lock_passed = 0;

while ($lock_timer_stop < 1)
{
for ($locka = 0; $locka < 10; $locka++)
{
if (not -e "$locks$lock_name")
{
$lock_timer_stop = 1;
}
else
{
$lock_timer_stop = 0;
}
}

if ($lock_timer_stop == 1)
{
open (LOCKIT, ">$locks$lock_name");
print LOCKIT "LOCKED\n";
close (LOCKIT);
}
else
{
$idle_max = 30;
splice(@lock_info, 0);
@lock_info=stat("$locks$lock_name");
($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size2,$la,$lm,$slc,$obs,$blocks)=
@lock_info;

$id_time = time() - $lm;

if ($id_time > $idle_max and $lm > 0)
{
$lock_passed = 1;
unlink ("$locks$lock_name");
}

select(undef,undef,undef,0.01);
$lock_timer++;
}
}

}

sub unlock
{
unlink ("$locks$lock_name");
}

sub show_popscript
{
$height2 = $height + 100;

{
print<<END
document.onkeypress = function (evt) {
var r = ';

if (document.all) {
r += event.shiftKey ? 'SHIFT' : ';
r += event.keyCode;
}
else if (document.getElementById) {
r += evt.shiftKey ? 'SHIFT' : ';
r += evt.charCode;
}
else if (document.layers) {
r += evt.modifiers & Event.SHIFT_MASK ? 'SHIFT' : ';
r += evt.which;
}

if (r == 'SHIFT85' || r == '85')
{
var IChatWindow;
window.open('$cgi_url?area=screen&mode=$mode&width=$width&height=
$height&background=$background&datafile=$datafile',IChatWindow++,
'width=$width,height=$height2,scrollbars=yes');
}

return true;
}

END
}

}

sub show_screen
{

{
print <<END
<HTML><TITLE>Pop Uploader</TITLE><BODY BGCOLOR="$background">
<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>
<INPUT TYPE=HIDDEN NAME=area VALUE="upload">
<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">
<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>
<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>
</FORM></BODY></HTML>
END
}

}

sub show_static_screen
{

{
print <<END
document.write('<HTML><TITLE>Pop Uploader</TITLE><BODY>');
document.write('<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">');
document.write('<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>');
document.write('<INPUT TYPE=HIDDEN NAME=area VALUE="upload">');
document.write('<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">');
document.write('<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>');
document.write('<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>');
document.write('</TABLE>');
document.write('</FORM></BODY></HTML>');
END
}

}

sub upload_file
{
my $fsize = 0;
my $filename1 = $query->param('filename'); # Filename on client computer

# Get upload filename
$tmpfilen1 = rindex($filename1, "\\");
$tmpfilen2 = rindex($filename1, "/");

if ($tmpfilen2 > $tmpfilen1)
{
$tmpfilen1 = $tmpfilen2;
}

$tmpfilen1++;
my $real_name = substr ($filename1, $tmpfilen1);
$real_name =~ s/[\\\/!@#\$\%^&*()+=|<>;:`',\"?\[\]\{\} ]//g;

my $tempname = "$tmp_dir$real_name";

if ($real_name eq "")
{
print "<SCRIPT>alert('You must specify a filename'); history.back(-1);</SCRIPT>\n";
exit;
}

if (-e "$tempname")
{
print "<SCRIPT>alert('$real_name already exists'); history.back(-1);</SCRIPT>\n";
exit;
}

open(FILEUP, ">$tempname");

$syllabus = $query->param('filename');

while($bytesread=read($syllabus, $buffer, 4096))
{
print FILEUP $buffer;
}

close(FILEUP);

$fsize = -s "$tempname";

if ($fsize == 0)
{
unlink("$tempname");
}

return("$fsize", "$real_name");
}

sub add_description
{
my ($fname) = @_[0];

&lock;
open(FILE, ">>$tmp_dir$datafile\.$ext");
print FILE "<!--FILE-->\n";
print FILE "$fname\n";
print FILE "$description\n";
close(FILE);
&unlock;
}

sub download_file
{
splice(@fileinfo, 0);

my $filename = $Q::filename;
my $tempname = "$tmp_dir$filename";
my @fileinfo = stat("$tempname");

my ($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size,$la,$lm,$slc,$obs,$blocks) = @fileinfo;

if ($filename eq "" or $filename eq "." or $filename eq "..")
{
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "You must specify a filename to download\n";
print "</BODY></HTML>\n";
exit;
}

print "Content-length: $size\n";
print "Content-type: application/octect-stream\n";
print "Content-disposition: attachment;filename=$filename\n\n";

my $dl = 0, $totalread = 0, $btr = 4096;

open (DL, "<$tempname");

until ($dl == 1)
{
$read = "";

if ($totalread >= $size)
{
$btr = $totalread - $size;
$dl = 1;
}

sysread (DL, $read, $btr);
print "$read";

$totalread = $totalread + $btr;
}

close(DL);
}


exit;

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

sub login_screen
{

{
print<<END
<HTML>
<TITLE>Pop Uploader</TITLE>
<BODY>
<CENTER>
<H2>Pop Uploader</H2>

<TABLE BORDER=0>
<FORM METHOD=POST ACTION="$cgi_url">
<INPUT TYPE=hidden NAME=area VALUE="login2">
<TR><TD><B>Username:</B></TD> <TD><INPUT NAME=username></TD></TR>
<TR><TD><B>Password:</B></TD> <TD><INPUT TYPE=password NAME=password></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=submit NAME=submit value="Login"></TD></TR>
</FORM>
</TABLE>
</CENTER>
</BODY></HTML>
END
}

}

sub show_files
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

opendir(FILES, "$tmp_dir");
@all_files = readdir(FILES);
closedir(FILES);

@all_files = sort(@all_files);

print "<HTML><BODY>";
print "<CENTER><H2>Choose file to edit</H2>\n";

for ($j = 2; $j < @all_files; $j++)
{
$ridx = rindex(@all_files[$j], ".");

if (substr(@all_files[$j], ($ridx + 1)) eq "$ext")
{
$new_name = substr(@all_files[$j], 0, $ridx);
print "<A HREF=\"$cgi_url?area=login3&username=$Q::username&password=$Q::
password&datafile=$new_name\">$new_name</A><BR>\n";
}
}

print "</CENTER></BODY></HTML>\n";
}

sub read_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

my $count = 0;
print "<HTML><BODY><TITLE>Pop Uploader</TITLE>\n";
print "<CENTER><H2>Pop Uploader</H2>\n";
print "<FORM METHOD=POST ACTION=\"$cgi_url\">\n";
print "<INPUT TYPE=HIDDEN NAME=area VALUE=\"save\">\n";
print "<INPUT TYPE=HIDDEN NAME=datafile VALUE=\"$datafile\">\n";
print "<INPUT TYPE=HIDDEN NAME=username VALUE=\"$username\">\n";
print "<INPUT TYPE=HIDDEN NAME=password VALUE=\"$password\">\n";
print "<TABLE BORDER=0>\n";
print "<TR><TD><B>Delete?</B></TD> <TD></TD></TR>\n";

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "<TR><TD><INPUT TYPE=CHECKBOX NAME=delete$count VALUE=\"$line\"></TD> <TD><INPUT TYPE=HIDDEN NAME=originalname$count VALUE=\"$line\"><INPUT NAME=filename$count VALUE=\"$line\"> [$new_number bytes]</TD></TR>\n";
print "<TR><TD></TD> <TD><TEXTAREA NAME=\"description$count\" COLS=40 ROWS=3>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
print "$line";
}
}

print "</TEXTAREA></TD></TR>\n";
$count++;
}
}

close(FILE);
&unlock;
print "</TABLE><BR><INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=\"Update\"></FORM></CENTER></BODY></HTML>\n";
}

sub save_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;

}

my $ext2 = "tmp";
my $count = 0;
my $finished = 0;

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");
open(FILE2, ">$tmp_dir$datafile\.$ext$ext2");

until(eof(FILE))
{
$rdelete = "delete$count";
$rdelete2 = $query->param($rdelete);
$didfile = 0;

$line = <FILE>;
chop($line);

if ($line eq "<!--FILE-->")
{
if ($rdelete2 eq "")
{
print FILE2 "<!--FILE-->\n";

$rfilename = "filename$count";
$rfilename2 = $query->param($rfilename);

$roriginalname = "originalname$count";
$roriginalname2 = $query->param($roriginalname);

$rdescription = "description$count";
$rdescription2 = $query->param($rdescription);

if ($roriginalname2 ne $rfilename2 and $rfilename2 ne "" and not -e "$tmp_dir$rfilename2")
{
print FILE2 "$rfilename2\n";
rename("$tmp_dir$roriginalname2", "$tmp_dir$rfilename2");
}
else
{
print FILE2 "$roriginalname2\n";
}

print FILE2 "$rdescription2\n";
$count++;
}
else
{
$count++;
print "Deleting $rdelete2<BR>\n";
unlink("$tmp_dir$rdelete2");
}
}

}

close(FILE);
close(FILE2);
unlink("$tmp_dir$datafile\.$ext");
rename("$tmp_dir$datafile\.$ext$ext2", "$tmp_dir$datafile\.$ext");
&unlock;

print "Update complete.<BR><BR>\n";
print "<A HREF=\"$cgi_url?area=login2&username=$Q::username&password=$Q::password\">
Menu</A><BR>\n";
}
 
Upvote 0 Downvote
Make a backup copy before you edit, this has not been tested at all in any way

At the top after use CGI add

use Mail::Sendmail;

Change this
Code: 
else
{
  &add_description("$fname");
  print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}
to
Code: 
else
{
  &add_description("$fname");
  &send_mail_notification("$fname");
  print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}
and add this somewhere (and modify to your needs)
that is not inside of a pair of {}'s probably right below another subroutine
Code: 
sub send_mail_notification {
	my $fname = shift @_;
	my  %mail = (   To      => 'you@there.com',
            		From    => 'me@here.com',
            		Message => "This is a very short message",
			Subject => "File uploaded $fname",
        );

  	sendmail(%mail) or die $Mail::Sendmail::error;
}

}


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Ok I tried this out and the screen just turns white when I select upload file. Page is at if you want to see what happens. I was wondering if I needed to put my smtp info from my server somewhere?
I changed the code as follows:
----------------------------------
#!/usr/bin/perl
#Pop Uploader
#Provided by CGI Connection
#$| = 1;

srand();

use CGI;
$query = new CGI;
$query->import_names();

#The entire URL to the popuploader.cgi script on your server
#Eg. $cgi_url = "
#Temporary directory to store files (CHMOD directory to 777)
#Eg. /path/to/save/uploads/
$tmp_dir = "/homepages/36/d119980837/htdocs/FirstSource/popupload/";

# Username to login to administration section
$username = "test1";

# Password to login to administration section
$password = "test2";


# DO NOT EDIT BELOW THIS LINE
############################################

$width = $Q::width;
$height = $Q::height;
$background = $Q::background;
$background2 = $Q::background2;
$mode = $Q::mode;
$area = $Q::area;
$datafile = $Q::datafile;
$description = $Q::description;
$ext = "pup";
$lock_name = "$datafile\.lock";

if ($width < 400)
{
$width = 400;
}

if ($height < 100)
{
$height = 100;
}

$locks = $tmp_dir;

if ($area eq "download")
{
&download_file;
exit;
}

print "Content-type: text/html\n\n";

if ($area eq "login")
{
&login_screen;
exit;
}

if ($area eq "login2")
{
&show_files;
exit;
}

if ($area eq "login3")
{
&read_file;
exit;
}

if ($area eq "save")
{
&save_file;
exit;
}

if ($area eq "upload")
{
($fsize, $fname) = &upload_file;

if ($fsize == 0)
{
print "<SCRIPT>alert('$fname did not upload'); history.back(-1);</SCRIPT>\n";
}
else
{
&add_description("$fname");
&send_mail_notification("$fname");
print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}

exit;
}

if ($datafile eq "")
{
print "alert('You must specify a data filename');\n";
exit;
}

if ($area eq "showfiles")
{
print "document.write('<TABLE BORDER=1 WIDTH=$width CELLPADDING=0 CELLSPACING=0>');\n";
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "document.write('<TR><TD BGCOLOR=$background><A HREF=\"$cgi_url?area=download&filename=$line\">$line</A> [$new_number bytes]</TD></TR>');\n";
print "document.write('<TR><TD BGCOLOR=$background2>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
$line =~ s/\n/<BR>/g;
$line =~ s/\cM/<BR>/g;
$line =~ s/\'/\\\'/g;

print "$line";
}
}

print "</TD></TR>');\n";
}
}

close(FILE);
print "document.write('</TABLE>');\n";
exit;
}

if ($mode == 0)
{
if ($area eq "")
{
&show_popscript;
}

if ($area eq "screen")
{
&show_screen;
}
}
else
{
&show_static_screen;
}

exit;

sub lock
{
$lock_timer = 0;
$lock_timer_stop = 0;
$lock_passed = 0;

while ($lock_timer_stop < 1)
{
for ($locka = 0; $locka < 10; $locka++)
{
if (not -e "$locks$lock_name")
{
$lock_timer_stop = 1;
}
else
{
$lock_timer_stop = 0;
}
}

if ($lock_timer_stop == 1)
{
open (LOCKIT, ">$locks$lock_name");
print LOCKIT "LOCKED\n";
close (LOCKIT);
}
else
{
$idle_max = 30;
splice(@lock_info, 0);
@lock_info=stat("$locks$lock_name");
($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size2,$la,$lm,$slc,$obs,$blocks)=
@lock_info;

$id_time = time() - $lm;

if ($id_time > $idle_max and $lm > 0)
{
$lock_passed = 1;
unlink ("$locks$lock_name");
}

select(undef,undef,undef,0.01);
$lock_timer++;
}
}

}

sub unlock
{
unlink ("$locks$lock_name");
}

sub show_popscript
{
$height2 = $height + 100;

{
print<<END
document.onkeypress = function (evt) {
var r = ';

if (document.all) {
r += event.shiftKey ? 'SHIFT' : ';
r += event.keyCode;
}
else if (document.getElementById) {
r += evt.shiftKey ? 'SHIFT' : ';
r += evt.charCode;
}
else if (document.layers) {
r += evt.modifiers & Event.SHIFT_MASK ? 'SHIFT' : ';
r += evt.which;
}

if (r == 'SHIFT85' || r == '85')
{
var IChatWindow;
window.open('$cgi_url?area=screen&mode=$mode&width=$width&height=
$height&background=$background&datafile=$datafile',IChatWindow++,
'width=$width,height=$height2,scrollbars=yes');
}

return true;
}

END
}

}

sub show_screen
{

{
print <<END
<HTML><TITLE>Pop Uploader</TITLE><BODY BGCOLOR="$background">
<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>
<INPUT TYPE=HIDDEN NAME=area VALUE="upload">
<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">
<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>
<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>
</FORM></BODY></HTML>
END
}

}

sub show_static_screen
{

{
print <<END
document.write('<HTML><TITLE>Pop Uploader</TITLE><BODY>');
document.write('<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">');
document.write('<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>');
document.write('<INPUT TYPE=HIDDEN NAME=area VALUE="upload">');
document.write('<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">');
document.write('<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>');
document.write('<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>');
document.write('</TABLE>');
document.write('</FORM></BODY></HTML>');
END
}

}

sub upload_file
{
my $fsize = 0;
my $filename1 = $query->param('filename'); # Filename on client computer

# Get upload filename
$tmpfilen1 = rindex($filename1, "\\");
$tmpfilen2 = rindex($filename1, "/");

if ($tmpfilen2 > $tmpfilen1)
{
$tmpfilen1 = $tmpfilen2;
}

$tmpfilen1++;
my $real_name = substr ($filename1, $tmpfilen1);
$real_name =~ s/[\\\/!@#\$\%^&*()+=|<>;:`',\"?\[\]\{\} ]//g;

my $tempname = "$tmp_dir$real_name";

if ($real_name eq "")
{
print "<SCRIPT>alert('You must specify a filename'); history.back(-1);</SCRIPT>\n";
exit;
}

if (-e "$tempname")
{
print "<SCRIPT>alert('$real_name already exists'); history.back(-1);</SCRIPT>\n";
exit;
}

open(FILEUP, ">$tempname");

$syllabus = $query->param('filename');

while($bytesread=read($syllabus, $buffer, 4096))
{
print FILEUP $buffer;
}

close(FILEUP);

$fsize = -s "$tempname";

if ($fsize == 0)
{
unlink("$tempname");
}

return("$fsize", "$real_name");
}

sub add_description
{
my ($fname) = @_[0];

&lock;
open(FILE, ">>$tmp_dir$datafile\.$ext");
print FILE "<!--FILE-->\n";
print FILE "$fname\n";
print FILE "$description\n";
close(FILE);
&unlock;
}

sub download_file
{
splice(@fileinfo, 0);

my $filename = $Q::filename;
my $tempname = "$tmp_dir$filename";
my @fileinfo = stat("$tempname");

my ($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size,$la,$lm,$slc,$obs,$blocks) = @fileinfo;

if ($filename eq "" or $filename eq "." or $filename eq "..")
{
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "You must specify a filename to download\n";
print "</BODY></HTML>\n";
exit;
}

print "Content-length: $size\n";
print "Content-type: application/octect-stream\n";
print "Content-disposition: attachment;filename=$filename\n\n";

my $dl = 0, $totalread = 0, $btr = 4096;

open (DL, "<$tempname");

until ($dl == 1)
{
$read = "";

if ($totalread >= $size)
{
$btr = $totalread - $size;
$dl = 1;
}

sysread (DL, $read, $btr);
print "$read";

$totalread = $totalread + $btr;
}

close(DL);
}


exit;

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

sub login_screen
{

{
print<<END
<HTML>
<TITLE>Pop Uploader</TITLE>
<BODY>
<CENTER>
<H2>Pop Uploader</H2>

<TABLE BORDER=0>
<FORM METHOD=POST ACTION="$cgi_url">
<INPUT TYPE=hidden NAME=area VALUE="login2">
<TR><TD><B>Username:</B></TD> <TD><INPUT NAME=username></TD></TR>
<TR><TD><B>Password:</B></TD> <TD><INPUT TYPE=password NAME=password></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=submit NAME=submit value="Login"></TD></TR>
</FORM>
</TABLE>
</CENTER>
</BODY></HTML>
END
}

}

sub show_files
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

sub send_mail_notification {
my $fname = shift @_;
my %mail = ( To => 'jdzines@cox.net',
From => 'jdzines@cox.net',
Message => "This file has been uploaded to the server",
Subject => "File uploaded $fname",
);

sendmail(%mail) or die $Mail::Sendmail::error;
}

opendir(FILES, "$tmp_dir");
@all_files = readdir(FILES);
closedir(FILES);

@all_files = sort(@all_files);

print "<HTML><BODY>";
print "<CENTER><H2>Choose file to edit</H2>\n";

for ($j = 2; $j < @all_files; $j++)
{
$ridx = rindex(@all_files[$j], ".");

if (substr(@all_files[$j], ($ridx + 1)) eq "$ext")
{
$new_name = substr(@all_files[$j], 0, $ridx);
print "<A HREF=\"$cgi_url?area=login3&username=$Q::username&password=$Q::
password&datafile=$new_name\">$new_name</A><BR>\n";
}
}

print "</CENTER></BODY></HTML>\n";
}

sub read_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

my $count = 0;
print "<HTML><BODY><TITLE>Pop Uploader</TITLE>\n";
print "<CENTER><H2>Pop Uploader</H2>\n";
print "<FORM METHOD=POST ACTION=\"$cgi_url\">\n";
print "<INPUT TYPE=HIDDEN NAME=area VALUE=\"save\">\n";
print "<INPUT TYPE=HIDDEN NAME=datafile VALUE=\"$datafile\">\n";
print "<INPUT TYPE=HIDDEN NAME=username VALUE=\"$username\">\n";
print "<INPUT TYPE=HIDDEN NAME=password VALUE=\"$password\">\n";
print "<TABLE BORDER=0>\n";
print "<TR><TD><B>Delete?</B></TD> <TD></TD></TR>\n";

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "<TR><TD><INPUT TYPE=CHECKBOX NAME=delete$count VALUE=\"$line\"></TD> <TD><INPUT TYPE=HIDDEN NAME=originalname$count VALUE=\"$line\"><INPUT NAME=filename$count VALUE=\"$line\"> [$new_number bytes]</TD></TR>\n";
print "<TR><TD></TD> <TD><TEXTAREA NAME=\"description$count\" COLS=40 ROWS=3>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
print "$line";
}
}

print "</TEXTAREA></TD></TR>\n";
$count++;
}
}

close(FILE);
&unlock;
print "</TABLE><BR><INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=\"Update\"></FORM></CENTER></BODY></HTML>\n";
}

sub save_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;

}

my $ext2 = "tmp";
my $count = 0;
my $finished = 0;

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");
open(FILE2, ">$tmp_dir$datafile\.$ext$ext2");

until(eof(FILE))
{
$rdelete = "delete$count";
$rdelete2 = $query->param($rdelete);
$didfile = 0;

$line = <FILE>;
chop($line);

if ($line eq "<!--FILE-->")
{
if ($rdelete2 eq "")
{
print FILE2 "<!--FILE-->\n";

$rfilename = "filename$count";
$rfilename2 = $query->param($rfilename);

$roriginalname = "originalname$count";
$roriginalname2 = $query->param($roriginalname);

$rdescription = "description$count";
$rdescription2 = $query->param($rdescription);

if ($roriginalname2 ne $rfilename2 and $rfilename2 ne "" and not -e "$tmp_dir$rfilename2")
{
print FILE2 "$rfilename2\n";
rename("$tmp_dir$roriginalname2", "$tmp_dir$rfilename2");
}
else
{
print FILE2 "$roriginalname2\n";
}

print FILE2 "$rdescription2\n";
$count++;
}
else
{
$count++;
print "Deleting $rdelete2<BR>\n";
unlink("$tmp_dir$rdelete2");
}
}

}

close(FILE);
close(FILE2);
unlink("$tmp_dir$datafile\.$ext");
rename("$tmp_dir$datafile\.$ext$ext2", "$tmp_dir$datafile\.$ext");
&unlock;

print "Update complete.<BR><BR>\n";
print "<A HREF=\"$cgi_url?area=login2&username=$Q::username&password=$Q::password\">
Menu</A><BR>\n";
}
 
Upvote 0 Downvote
you might change this
sendmail(%mail) or die $Mail::Sendmail::error;
to
or print "ERROR: $Mail::Sendmail::error";
or even
print "ERROR: $Mail::Sendmail::error</html>" and exit;

you can specify your mail server here
my %mail = ( To => 'jdzines@cox.net',
From => 'jdzines@cox.net',
Message => "This file has been uploaded to the server",
Subject => "File uploaded $fname",
smtp => 'smtp.myserver.com'
);


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Thanks, I'll try making these changes and let you know how it works.
 
Upvote 0 Downvote
Ugg, now I just get an error page, but from what I can see the file did upload. Didn't get an email notification, just an error page. Hmmmmm
---------------------------------------------
revised code:

#!/usr/bin/perl
#Pop Uploader
#Provided by CGI Connection
#$| = 1;

srand();

use CGI;
$query = new CGI;
$query->import_names();

#The entire URL to the popuploader.cgi script on your server
#Eg. $cgi_url = "
#Temporary directory to store files (CHMOD directory to 777)
#Eg. /path/to/save/uploads/
$tmp_dir = "/homepages/36/d119980837/htdocs/FirstSource/popupload/";

# Username to login to administration section
$username = "test1";

# Password to login to administration section
$password = "test2";


# DO NOT EDIT BELOW THIS LINE
############################################

$width = $Q::width;
$height = $Q::height;
$background = $Q::background;
$background2 = $Q::background2;
$mode = $Q::mode;
$area = $Q::area;
$datafile = $Q::datafile;
$description = $Q::description;
$ext = "pup";
$lock_name = "$datafile\.lock";

if ($width < 400)
{
$width = 400;
}

if ($height < 100)
{
$height = 100;
}

$locks = $tmp_dir;

if ($area eq "download")
{
&download_file;
exit;
}

print "Content-type: text/html\n\n";

if ($area eq "login")
{
&login_screen;
exit;
}

if ($area eq "login2")
{
&show_files;
exit;
}

if ($area eq "login3")
{
&read_file;
exit;
}

if ($area eq "save")
{
&save_file;
exit;
}

if ($area eq "upload")
{
($fsize, $fname) = &upload_file;

if ($fsize == 0)
{
print "<SCRIPT>alert('$fname did not upload'); history.back(-1);</SCRIPT>\n";
}
else
{
&add_description("$fname");
&send_mail_notification("$fname");
print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}

exit;
}

if ($datafile eq "")
{
print "alert('You must specify a data filename');\n";
exit;
}

if ($area eq "showfiles")
{
print "document.write('<TABLE BORDER=1 WIDTH=$width CELLPADDING=0 CELLSPACING=0>');\n";
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "document.write('<TR><TD BGCOLOR=$background><A HREF=\"$cgi_url?area=download&filename=$line\">$line</A> [$new_number bytes]</TD></TR>');\n";
print "document.write('<TR><TD BGCOLOR=$background2>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
$line =~ s/\n/<BR>/g;
$line =~ s/\cM/<BR>/g;
$line =~ s/\'/\\\'/g;

print "$line";
}
}

print "</TD></TR>');\n";
}
}

close(FILE);
print "document.write('</TABLE>');\n";
exit;
}

if ($mode == 0)
{
if ($area eq "")
{
&show_popscript;
}

if ($area eq "screen")
{
&show_screen;
}
}
else
{
&show_static_screen;
}

exit;

sub lock
{
$lock_timer = 0;
$lock_timer_stop = 0;
$lock_passed = 0;

while ($lock_timer_stop < 1)
{
for ($locka = 0; $locka < 10; $locka++)
{
if (not -e "$locks$lock_name")
{
$lock_timer_stop = 1;
}
else
{
$lock_timer_stop = 0;
}
}

if ($lock_timer_stop == 1)
{
open (LOCKIT, ">$locks$lock_name");
print LOCKIT "LOCKED\n";
close (LOCKIT);
}
else
{
$idle_max = 30;
splice(@lock_info, 0);
@lock_info=stat("$locks$lock_name");
($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size2,$la,$lm,$slc,$obs,$blocks)=
@lock_info;

$id_time = time() - $lm;

if ($id_time > $idle_max and $lm > 0)
{
$lock_passed = 1;
unlink ("$locks$lock_name");
}

select(undef,undef,undef,0.01);
$lock_timer++;
}
}

}

sub unlock
{
unlink ("$locks$lock_name");
}

sub show_popscript
{
$height2 = $height + 100;

{
print<<END
document.onkeypress = function (evt) {
var r = ';

if (document.all) {
r += event.shiftKey ? 'SHIFT' : ';
r += event.keyCode;
}
else if (document.getElementById) {
r += evt.shiftKey ? 'SHIFT' : ';
r += evt.charCode;
}
else if (document.layers) {
r += evt.modifiers & Event.SHIFT_MASK ? 'SHIFT' : ';
r += evt.which;
}

if (r == 'SHIFT85' || r == '85')
{
var IChatWindow;
window.open('$cgi_url?area=screen&mode=$mode&width=$width&height=
$height&background=$background&datafile=$datafile',IChatWindow++,
'width=$width,height=$height2,scrollbars=yes');
}

return true;
}

END
}

}

sub show_screen
{

{
print <<END
<HTML><TITLE>Pop Uploader</TITLE><BODY BGCOLOR="$background">
<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>
<INPUT TYPE=HIDDEN NAME=area VALUE="upload">
<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">
<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>
<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>
</FORM></BODY></HTML>
END
}

}

sub show_static_screen
{

{
print <<END
document.write('<HTML><TITLE>Pop Uploader</TITLE><BODY>');
document.write('<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">');
document.write('<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>');
document.write('<INPUT TYPE=HIDDEN NAME=area VALUE="upload">');
document.write('<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">');
document.write('<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>');
document.write('<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>');
document.write('</TABLE>');
document.write('</FORM></BODY></HTML>');
END
}

}

sub upload_file
{
my $fsize = 0;
my $filename1 = $query->param('filename'); # Filename on client computer

# Get upload filename
$tmpfilen1 = rindex($filename1, "\\");
$tmpfilen2 = rindex($filename1, "/");

if ($tmpfilen2 > $tmpfilen1)
{
$tmpfilen1 = $tmpfilen2;
}

$tmpfilen1++;
my $real_name = substr ($filename1, $tmpfilen1);
$real_name =~ s/[\\\/!@#\$\%^&*()+=|<>;:`',\"?\[\]\{\} ]//g;

my $tempname = "$tmp_dir$real_name";

if ($real_name eq "")
{
print "<SCRIPT>alert('You must specify a filename'); history.back(-1);</SCRIPT>\n";
exit;
}

if (-e "$tempname")
{
print "<SCRIPT>alert('$real_name already exists'); history.back(-1);</SCRIPT>\n";
exit;
}

open(FILEUP, ">$tempname");

$syllabus = $query->param('filename');

while($bytesread=read($syllabus, $buffer, 4096))
{
print FILEUP $buffer;
}

close(FILEUP);

$fsize = -s "$tempname";

if ($fsize == 0)
{
unlink("$tempname");
}

return("$fsize", "$real_name");
}

sub add_description
{
my ($fname) = @_[0];

&lock;
open(FILE, ">>$tmp_dir$datafile\.$ext");
print FILE "<!--FILE-->\n";
print FILE "$fname\n";
print FILE "$description\n";
close(FILE);
&unlock;
}

sub download_file
{
splice(@fileinfo, 0);

my $filename = $Q::filename;
my $tempname = "$tmp_dir$filename";
my @fileinfo = stat("$tempname");

my ($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size,$la,$lm,$slc,$obs,$blocks) = @fileinfo;

if ($filename eq "" or $filename eq "." or $filename eq "..")
{
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "You must specify a filename to download\n";
print "</BODY></HTML>\n";
exit;
}

print "Content-length: $size\n";
print "Content-type: application/octect-stream\n";
print "Content-disposition: attachment;filename=$filename\n\n";

my $dl = 0, $totalread = 0, $btr = 4096;

open (DL, "<$tempname");

until ($dl == 1)
{
$read = "";

if ($totalread >= $size)
{
$btr = $totalread - $size;
$dl = 1;
}

sysread (DL, $read, $btr);
print "$read";

$totalread = $totalread + $btr;
}

close(DL);
}


exit;

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

sub login_screen
{

{
print<<END
<HTML>
<TITLE>Pop Uploader</TITLE>
<BODY>
<CENTER>
<H2>Pop Uploader</H2>

<TABLE BORDER=0>
<FORM METHOD=POST ACTION="$cgi_url">
<INPUT TYPE=hidden NAME=area VALUE="login2">
<TR><TD><B>Username:</B></TD> <TD><INPUT NAME=username></TD></TR>
<TR><TD><B>Password:</B></TD> <TD><INPUT TYPE=password NAME=password></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=submit NAME=submit value="Login"></TD></TR>
</FORM>
</TABLE>
</CENTER>
</BODY></HTML>
END
}

}

sub show_files
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

sub send_mail_notification {
my $fname = shift @_;
my %mail = ( To => 'jdzines@cox.net',
From => 'jdzines@cox.net',
Message => "This file has been uploaded to the server",
Subject => "File uploaded $fname",
smtp => 'smtp.1and1.com'
);

print "ERROR: $Mail::Sendmail::error</html>" and exit;

}

opendir(FILES, "$tmp_dir");
@all_files = readdir(FILES);
closedir(FILES);

@all_files = sort(@all_files);

print "<HTML><BODY>";
print "<CENTER><H2>Choose file to edit</H2>\n";

for ($j = 2; $j < @all_files; $j++)
{
$ridx = rindex(@all_files[$j], ".");

if (substr(@all_files[$j], ($ridx + 1)) eq "$ext")
{
$new_name = substr(@all_files[$j], 0, $ridx);
print "<A HREF=\"$cgi_url?area=login3&username=$Q::username&password=$Q::password&
datafile=$new_name\">$new_name</A><BR>\n";
}
}

print "</CENTER></BODY></HTML>\n";
}

sub read_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

my $count = 0;
print "<HTML><BODY><TITLE>Pop Uploader</TITLE>\n";
print "<CENTER><H2>Pop Uploader</H2>\n";
print "<FORM METHOD=POST ACTION=\"$cgi_url\">\n";
print "<INPUT TYPE=HIDDEN NAME=area VALUE=\"save\">\n";
print "<INPUT TYPE=HIDDEN NAME=datafile VALUE=\"$datafile\">\n";
print "<INPUT TYPE=HIDDEN NAME=username VALUE=\"$username\">\n";
print "<INPUT TYPE=HIDDEN NAME=password VALUE=\"$password\">\n";
print "<TABLE BORDER=0>\n";
print "<TR><TD><B>Delete?</B></TD> <TD></TD></TR>\n";

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "<TR><TD><INPUT TYPE=CHECKBOX NAME=delete$count VALUE=\"$line\"></TD> <TD><INPUT TYPE=HIDDEN NAME=originalname$count VALUE=\"$line\"><INPUT NAME=filename$count VALUE=\"$line\"> [$new_number bytes]</TD></TR>\n";
print "<TR><TD></TD> <TD><TEXTAREA NAME=\"description$count\" COLS=40 ROWS=3>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
print "$line";
}
}

print "</TEXTAREA></TD></TR>\n";
$count++;
}
}

close(FILE);
&unlock;
print "</TABLE><BR><INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=\"Update\"></FORM></CENTER></BODY></HTML>\n";
}

sub save_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;

}

my $ext2 = "tmp";
my $count = 0;
my $finished = 0;

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");
open(FILE2, ">$tmp_dir$datafile\.$ext$ext2");

until(eof(FILE))
{
$rdelete = "delete$count";
$rdelete2 = $query->param($rdelete);
$didfile = 0;

$line = <FILE>;
chop($line);

if ($line eq "<!--FILE-->")
{
if ($rdelete2 eq "")
{
print FILE2 "<!--FILE-->\n";

$rfilename = "filename$count";
$rfilename2 = $query->param($rfilename);

$roriginalname = "originalname$count";
$roriginalname2 = $query->param($roriginalname);

$rdescription = "description$count";
$rdescription2 = $query->param($rdescription);

if ($roriginalname2 ne $rfilename2 and $rfilename2 ne "" and not -e "$tmp_dir$rfilename2")
{
print FILE2 "$rfilename2\n";
rename("$tmp_dir$roriginalname2", "$tmp_dir$rfilename2");
}
else
{
print FILE2 "$roriginalname2\n";
}

print FILE2 "$rdescription2\n";
$count++;
}
else
{
$count++;
print "Deleting $rdelete2<BR>\n";
unlink("$tmp_dir$rdelete2");
}
}

}

close(FILE);
close(FILE2);
unlink("$tmp_dir$datafile\.$ext");
rename("$tmp_dir$datafile\.$ext$ext2", "$tmp_dir$datafile\.$ext");
&unlock;

print "Update complete.<BR><BR>\n";
print "<A HREF=\"$cgi_url?area=login2&username=$Q::username&password=$Q::password\">
Menu</A><BR>\n";
}
 
Upvote 0 Downvote
look in the apache error log..
it is possible the header isn't printing before you try and print the error...
you might try printing it.
or print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Well, I don't see an error now but the file uploads and instead of showing a success screen and emailing it just says Content-type: text/html
Maybe I didn't put something in the correct area. How does this look?
------------------------------
#!/usr/bin/perl
#Pop Uploader
#Provided by CGI Connection
#$| = 1;

srand();

use CGI;
$query = new CGI;
$query->import_names();

#The entire URL to the popuploader.cgi script on your server
#Eg. $cgi_url = "
#Temporary directory to store files (CHMOD directory to 777)
#Eg. /path/to/save/uploads/
$tmp_dir = "/homepages/36/d119980837/htdocs/FirstSource/popupload/";

# Username to login to administration section
$username = "test1";

# Password to login to administration section
$password = "test2";


# DO NOT EDIT BELOW THIS LINE
############################################

$width = $Q::width;
$height = $Q::height;
$background = $Q::background;
$background2 = $Q::background2;
$mode = $Q::mode;
$area = $Q::area;
$datafile = $Q::datafile;
$description = $Q::description;
$ext = "pup";
$lock_name = "$datafile\.lock";

if ($width < 400)
{
$width = 400;
}

if ($height < 100)
{
$height = 100;
}

$locks = $tmp_dir;

if ($area eq "download")
{
&download_file;
exit;
}

print "Content-type: text/html\n\n";

if ($area eq "login")
{
&login_screen;
exit;
}

if ($area eq "login2")
{
&show_files;
exit;
}

if ($area eq "login3")
{
&read_file;
exit;
}

if ($area eq "save")
{
&save_file;
exit;
}

if ($area eq "upload")
{
($fsize, $fname) = &upload_file;

if ($fsize == 0)
{
print "<SCRIPT>alert('$fname did not upload'); history.back(-1);</SCRIPT>\n";
}
else
{
&add_description("$fname");
&send_mail_notification("$fname");
print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}

exit;
}

if ($datafile eq "")
{
print "alert('You must specify a data filename');\n";
exit;
}

if ($area eq "showfiles")
{
print "document.write('<TABLE BORDER=1 WIDTH=$width CELLPADDING=0 CELLSPACING=0>');\n";
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "document.write('<TR><TD BGCOLOR=$background><A HREF=\"$cgi_url?area=download&filename=$line\">$line</A> [$new_number bytes]</TD></TR>');\n";
print "document.write('<TR><TD BGCOLOR=$background2>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
$line =~ s/\n/<BR>/g;
$line =~ s/\cM/<BR>/g;
$line =~ s/\'/\\\'/g;

print "$line";
}
}

print "</TD></TR>');\n";
}
}

close(FILE);
print "document.write('</TABLE>');\n";
exit;
}

if ($mode == 0)
{
if ($area eq "")
{
&show_popscript;
}

if ($area eq "screen")
{
&show_screen;
}
}
else
{
&show_static_screen;
}

exit;

sub lock
{
$lock_timer = 0;
$lock_timer_stop = 0;
$lock_passed = 0;

while ($lock_timer_stop < 1)
{
for ($locka = 0; $locka < 10; $locka++)
{
if (not -e "$locks$lock_name")
{
$lock_timer_stop = 1;
}
else
{
$lock_timer_stop = 0;
}
}

if ($lock_timer_stop == 1)
{
open (LOCKIT, ">$locks$lock_name");
print LOCKIT "LOCKED\n";
close (LOCKIT);
}
else
{
$idle_max = 30;
splice(@lock_info, 0);
@lock_info=stat("$locks$lock_name");
($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size2,$la,$lm,$slc,$obs,$blocks)=
@lock_info;

$id_time = time() - $lm;

if ($id_time > $idle_max and $lm > 0)
{
$lock_passed = 1;
unlink ("$locks$lock_name");
}

select(undef,undef,undef,0.01);
$lock_timer++;
}
}

}

sub unlock
{
unlink ("$locks$lock_name");
}

sub show_popscript
{
$height2 = $height + 100;

{
print<<END
document.onkeypress = function (evt) {
var r = ';

if (document.all) {
r += event.shiftKey ? 'SHIFT' : ';
r += event.keyCode;
}
else if (document.getElementById) {
r += evt.shiftKey ? 'SHIFT' : ';
r += evt.charCode;
}
else if (document.layers) {
r += evt.modifiers & Event.SHIFT_MASK ? 'SHIFT' : ';
r += evt.which;
}

if (r == 'SHIFT85' || r == '85')
{
var IChatWindow;
window.open('$cgi_url?area=screen&mode=$mode&width=$width&height=
$height&background=$background&datafile=$datafile',IChatWindow++,
'width=$width,height=$height2,scrollbars=yes');
}

return true;
}

END
}

}

sub show_screen
{

{
print <<END
<HTML><TITLE>Pop Uploader</TITLE><BODY BGCOLOR="$background">
<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>
<INPUT TYPE=HIDDEN NAME=area VALUE="upload">
<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">
<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>
<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>
</FORM></BODY></HTML>
END
}

}

sub show_static_screen
{

{
print <<END
document.write('<HTML><TITLE>Pop Uploader</TITLE><BODY>');
document.write('<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">');
document.write('<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>');
document.write('<INPUT TYPE=HIDDEN NAME=area VALUE="upload">');
document.write('<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">');
document.write('<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>');
document.write('<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>');
document.write('</TABLE>');
document.write('</FORM></BODY></HTML>');
END
}

}

sub upload_file
{
my $fsize = 0;
my $filename1 = $query->param('filename'); # Filename on client computer

# Get upload filename
$tmpfilen1 = rindex($filename1, "\\");
$tmpfilen2 = rindex($filename1, "/");

if ($tmpfilen2 > $tmpfilen1)
{
$tmpfilen1 = $tmpfilen2;
}

$tmpfilen1++;
my $real_name = substr ($filename1, $tmpfilen1);
$real_name =~ s/[\\\/!@#\$\%^&*()+=|<>;:`',\"?\[\]\{\} ]//g;

my $tempname = "$tmp_dir$real_name";

if ($real_name eq "")
{
print "<SCRIPT>alert('You must specify a filename'); history.back(-1);</SCRIPT>\n";
exit;
}

if (-e "$tempname")
{
print "<SCRIPT>alert('$real_name already exists'); history.back(-1);</SCRIPT>\n";
exit;
}

open(FILEUP, ">$tempname");

$syllabus = $query->param('filename');

while($bytesread=read($syllabus, $buffer, 4096))
{
print FILEUP $buffer;
}

close(FILEUP);

$fsize = -s "$tempname";

if ($fsize == 0)
{
unlink("$tempname");
}

return("$fsize", "$real_name");
}

sub add_description
{
my ($fname) = @_[0];

&lock;
open(FILE, ">>$tmp_dir$datafile\.$ext");
print FILE "<!--FILE-->\n";
print FILE "$fname\n";
print FILE "$description\n";
close(FILE);
&unlock;
}

sub download_file
{
splice(@fileinfo, 0);

my $filename = $Q::filename;
my $tempname = "$tmp_dir$filename";
my @fileinfo = stat("$tempname");

my ($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size,$la,$lm,$slc,$obs,$blocks) = @fileinfo;

if ($filename eq "" or $filename eq "." or $filename eq "..")
{
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "You must specify a filename to download\n";
print "</BODY></HTML>\n";
exit;
}

print "Content-length: $size\n";
print "Content-type: application/octect-stream\n";
print "Content-disposition: attachment;filename=$filename\n\n";

my $dl = 0, $totalread = 0, $btr = 4096;

open (DL, "<$tempname");

until ($dl == 1)
{
$read = "";

if ($totalread >= $size)
{
$btr = $totalread - $size;
$dl = 1;
}

sysread (DL, $read, $btr);
print "$read";

$totalread = $totalread + $btr;
}

close(DL);
}


exit;

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

sub login_screen
{

{
print<<END
<HTML>
<TITLE>Pop Uploader</TITLE>
<BODY>
<CENTER>
<H2>Pop Uploader</H2>

<TABLE BORDER=0>
<FORM METHOD=POST ACTION="$cgi_url">
<INPUT TYPE=hidden NAME=area VALUE="login2">
<TR><TD><B>Username:</B></TD> <TD><INPUT NAME=username></TD></TR>
<TR><TD><B>Password:</B></TD> <TD><INPUT TYPE=password NAME=password></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=submit NAME=submit value="Login"></TD></TR>
</FORM>
</TABLE>
</CENTER>
</BODY></HTML>
END
}

}

sub show_files
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

sub send_mail_notification {
my $fname = shift @_;
my %mail = ( To => 'jdzines@cox.net',
From => 'jdzines@cox.net',
Message => "This file has been uploaded to the server",
Subject => "File uploaded $fname",
smtp => 'smtp.1and1.com'
);

print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit;

}



opendir(FILES, "$tmp_dir");
@all_files = readdir(FILES);
closedir(FILES);

@all_files = sort(@all_files);

print "<HTML><BODY>";
print "<CENTER><H2>Choose file to edit</H2>\n";

for ($j = 2; $j < @all_files; $j++)
{
$ridx = rindex(@all_files[$j], ".");

if (substr(@all_files[$j], ($ridx + 1)) eq "$ext")
{
$new_name = substr(@all_files[$j], 0, $ridx);
print "<A HREF=\"$cgi_url?area=login3&username=$Q::username&password=$Q::
password&datafile=$new_name\">$new_name</A><BR>\n";
}
}

print "</CENTER></BODY></HTML>\n";
}

sub read_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

my $count = 0;
print "<HTML><BODY><TITLE>Pop Uploader</TITLE>\n";
print "<CENTER><H2>Pop Uploader</H2>\n";
print "<FORM METHOD=POST ACTION=\"$cgi_url\">\n";
print "<INPUT TYPE=HIDDEN NAME=area VALUE=\"save\">\n";
print "<INPUT TYPE=HIDDEN NAME=datafile VALUE=\"$datafile\">\n";
print "<INPUT TYPE=HIDDEN NAME=username VALUE=\"$username\">\n";
print "<INPUT TYPE=HIDDEN NAME=password VALUE=\"$password\">\n";
print "<TABLE BORDER=0>\n";
print "<TR><TD><B>Delete?</B></TD> <TD></TD></TR>\n";

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "<TR><TD><INPUT TYPE=CHECKBOX NAME=delete$count VALUE=\"$line\"></TD> <TD><INPUT TYPE=HIDDEN NAME=originalname$count VALUE=\"$line\"><INPUT NAME=filename$count VALUE=\"$line\"> [$new_number bytes]</TD></TR>\n";
print "<TR><TD></TD> <TD><TEXTAREA NAME=\"description$count\" COLS=40 ROWS=3>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
print "$line";
}
}

print "</TEXTAREA></TD></TR>\n";
$count++;
}
}

close(FILE);
&unlock;
print "</TABLE><BR><INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=\"Update\"></FORM></CENTER></BODY></HTML>\n";
}

sub save_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;

}

my $ext2 = "tmp";
my $count = 0;
my $finished = 0;

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");
open(FILE2, ">$tmp_dir$datafile\.$ext$ext2");

until(eof(FILE))
{
$rdelete = "delete$count";
$rdelete2 = $query->param($rdelete);
$didfile = 0;

$line = <FILE>;
chop($line);

if ($line eq "<!--FILE-->")
{
if ($rdelete2 eq "")
{
print FILE2 "<!--FILE-->\n";

$rfilename = "filename$count";
$rfilename2 = $query->param($rfilename);

$roriginalname = "originalname$count";
$roriginalname2 = $query->param($roriginalname);

$rdescription = "description$count";
$rdescription2 = $query->param($rdescription);

if ($roriginalname2 ne $rfilename2 and $rfilename2 ne "" and not -e "$tmp_dir$rfilename2")
{
print FILE2 "$rfilename2\n";
rename("$tmp_dir$roriginalname2", "$tmp_dir$rfilename2");
}
else
{
print FILE2 "$roriginalname2\n";
}

print FILE2 "$rdescription2\n";
$count++;
}
else
{
$count++;
print "Deleting $rdelete2<BR>\n";
unlink("$tmp_dir$rdelete2");
}
}

}

close(FILE);
close(FILE2);
unlink("$tmp_dir$datafile\.$ext");
rename("$tmp_dir$datafile\.$ext$ext2", "$tmp_dir$datafile\.$ext");
&unlock;

print "Update complete.<BR><BR>\n";
print "<A HREF=\"$cgi_url?area=login2&username=$Q::username&password=$Q::password\">
Menu</A><BR>\n";
}
 
Upvote 0 Downvote
Your missing the part where you actually send the email

under the %mail hash you need to have

sendmail (%mail) or print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit;


instead of:
print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit;




~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Ok, I made that change and it uploads and goes to a white screen but doesn't say any error. No email sent either. Am I close to getting this to happen? I don't see what's wrong.
----------------------------------------
#!/usr/bin/perl
#Pop Uploader
#Provided by CGI Connection
#$| = 1;

srand();

use CGI;
$query = new CGI;
$query->import_names();

#The entire URL to the popuploader.cgi script on your server
#Eg. $cgi_url = "
#Temporary directory to store files (CHMOD directory to 777)
#Eg. /path/to/save/uploads/
$tmp_dir = "/homepages/36/d119980837/htdocs/FirstSource/popupload/";

# Username to login to administration section
$username = "test1";

# Password to login to administration section
$password = "test2";


# DO NOT EDIT BELOW THIS LINE
############################################

$width = $Q::width;
$height = $Q::height;
$background = $Q::background;
$background2 = $Q::background2;
$mode = $Q::mode;
$area = $Q::area;
$datafile = $Q::datafile;
$description = $Q::description;
$ext = "pup";
$lock_name = "$datafile\.lock";

if ($width < 400)
{
$width = 400;
}

if ($height < 100)
{
$height = 100;
}

$locks = $tmp_dir;

if ($area eq "download")
{
&download_file;
exit;
}

print "Content-type: text/html\n\n";

if ($area eq "login")
{
&login_screen;
exit;
}

if ($area eq "login2")
{
&show_files;
exit;
}

if ($area eq "login3")
{
&read_file;
exit;
}

if ($area eq "save")
{
&save_file;
exit;
}

if ($area eq "upload")
{
($fsize, $fname) = &upload_file;

if ($fsize == 0)
{
print "<SCRIPT>alert('$fname did not upload'); history.back(-1);</SCRIPT>\n";
}
else
{
&add_description("$fname");
&send_mail_notification("$fname");
print "<SCRIPT>alert('$fname uploaded successfully with $fsize bytes'); history.back(-1);</SCRIPT>\n";
}

exit;
}

if ($datafile eq "")
{
print "alert('You must specify a data filename');\n";
exit;
}

if ($area eq "showfiles")
{
print "document.write('<TABLE BORDER=1 WIDTH=$width CELLPADDING=0 CELLSPACING=0>');\n";
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "document.write('<TR><TD BGCOLOR=$background><A HREF=\"$cgi_url?area=download&filename=$line\">$line</A> [$new_number bytes]</TD></TR>');\n";
print "document.write('<TR><TD BGCOLOR=$background2>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
$line =~ s/\n/<BR>/g;
$line =~ s/\cM/<BR>/g;
$line =~ s/\'/\\\'/g;

print "$line";
}
}

print "</TD></TR>');\n";
}
}

close(FILE);
print "document.write('</TABLE>');\n";
exit;
}

if ($mode == 0)
{
if ($area eq "")
{
&show_popscript;
}

if ($area eq "screen")
{
&show_screen;
}
}
else
{
&show_static_screen;
}

exit;

sub lock
{
$lock_timer = 0;
$lock_timer_stop = 0;
$lock_passed = 0;

while ($lock_timer_stop < 1)
{
for ($locka = 0; $locka < 10; $locka++)
{
if (not -e "$locks$lock_name")
{
$lock_timer_stop = 1;
}
else
{
$lock_timer_stop = 0;
}
}

if ($lock_timer_stop == 1)
{
open (LOCKIT, ">$locks$lock_name");
print LOCKIT "LOCKED\n";
close (LOCKIT);
}
else
{
$idle_max = 30;
splice(@lock_info, 0);
@lock_info=stat("$locks$lock_name");
($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size2,$la,$lm,$slc,$obs,$blocks)=
@lock_info;

$id_time = time() - $lm;

if ($id_time > $idle_max and $lm > 0)
{
$lock_passed = 1;
unlink ("$locks$lock_name");
}

select(undef,undef,undef,0.01);
$lock_timer++;
}
}

}

sub unlock
{
unlink ("$locks$lock_name");
}

sub show_popscript
{
$height2 = $height + 100;

{
print<<END
document.onkeypress = function (evt) {
var r = ';

if (document.all) {
r += event.shiftKey ? 'SHIFT' : ';
r += event.keyCode;
}
else if (document.getElementById) {
r += evt.shiftKey ? 'SHIFT' : ';
r += evt.charCode;
}
else if (document.layers) {
r += evt.modifiers & Event.SHIFT_MASK ? 'SHIFT' : ';
r += evt.which;
}

if (r == 'SHIFT85' || r == '85')
{
var IChatWindow;
window.open('$cgi_url?area=screen&mode=$mode&width=$width&height=
$height&background=$background&datafile=$datafile',IChatWindow++,'width=
$width,height=$height2,scrollbars=yes');
}

return true;
}

END
}

}

sub show_screen
{

{
print <<END
<HTML><TITLE>Pop Uploader</TITLE><BODY BGCOLOR="$background">
<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>
<INPUT TYPE=HIDDEN NAME=area VALUE="upload">
<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">
<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>
<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>
</FORM></BODY></HTML>
END
}

}

sub show_static_screen
{

{
print <<END
document.write('<HTML><TITLE>Pop Uploader</TITLE><BODY>');
document.write('<FORM METHOD=POST ACTION="$cgi_url" enctype="multipart/form-data">');
document.write('<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 WIDTH=$width HEIGHT=$height>');
document.write('<INPUT TYPE=HIDDEN NAME=area VALUE="upload">');
document.write('<INPUT TYPE=HIDDEN NAME=datafile VALUE="$datafile">');
document.write('<TR><TD BGCOLOR=$background><B>Filename:</B> <INPUT TYPE=FILE NAME=filename></TD></TR>');
document.write('<TR><TD BGCOLOR=$background><B>Description:</B> <TEXTAREA NAME=description COLS=40 ROWS=4></TEXTAREA> <INPUT TYPE=submit NAME=submit VALUE="Upload"></TD></TR>');
document.write('</TABLE>');
document.write('</FORM></BODY></HTML>');
END
}

}

sub upload_file
{
my $fsize = 0;
my $filename1 = $query->param('filename'); # Filename on client computer

# Get upload filename
$tmpfilen1 = rindex($filename1, "\\");
$tmpfilen2 = rindex($filename1, "/");

if ($tmpfilen2 > $tmpfilen1)
{
$tmpfilen1 = $tmpfilen2;
}

$tmpfilen1++;
my $real_name = substr ($filename1, $tmpfilen1);
$real_name =~ s/[\\\/!@#\$\%^&*()+=|<>;:`',\"?\[\]\{\} ]//g;

my $tempname = "$tmp_dir$real_name";

if ($real_name eq "")
{
print "<SCRIPT>alert('You must specify a filename'); history.back(-1);</SCRIPT>\n";
exit;
}

if (-e "$tempname")
{
print "<SCRIPT>alert('$real_name already exists'); history.back(-1);</SCRIPT>\n";
exit;
}

open(FILEUP, ">$tempname");

$syllabus = $query->param('filename');

while($bytesread=read($syllabus, $buffer, 4096))
{
print FILEUP $buffer;
}

close(FILEUP);

$fsize = -s "$tempname";

if ($fsize == 0)
{
unlink("$tempname");
}

return("$fsize", "$real_name");
}

sub add_description
{
my ($fname) = @_[0];

&lock;
open(FILE, ">>$tmp_dir$datafile\.$ext");
print FILE "<!--FILE-->\n";
print FILE "$fname\n";
print FILE "$description\n";
close(FILE);
&unlock;
}

sub download_file
{
splice(@fileinfo, 0);

my $filename = $Q::filename;
my $tempname = "$tmp_dir$filename";
my @fileinfo = stat("$tempname");

my ($dev,$irn,$perm,$hl,$uid,$gid,$dt,$size,$la,$lm,$slc,$obs,$blocks) = @fileinfo;

if ($filename eq "" or $filename eq "." or $filename eq "..")
{
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
print "You must specify a filename to download\n";
print "</BODY></HTML>\n";
exit;
}

print "Content-length: $size\n";
print "Content-type: application/octect-stream\n";
print "Content-disposition: attachment;filename=$filename\n\n";

my $dl = 0, $totalread = 0, $btr = 4096;

open (DL, "<$tempname");

until ($dl == 1)
{
$read = "";

if ($totalread >= $size)
{
$btr = $totalread - $size;
$dl = 1;
}

sysread (DL, $read, $btr);
print "$read";

$totalread = $totalread + $btr;
}

close(DL);
}


exit;

sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}

sub login_screen
{

{
print<<END
<HTML>
<TITLE>Pop Uploader</TITLE>
<BODY>
<CENTER>
<H2>Pop Uploader</H2>

<TABLE BORDER=0>
<FORM METHOD=POST ACTION="$cgi_url">
<INPUT TYPE=hidden NAME=area VALUE="login2">
<TR><TD><B>Username:</B></TD> <TD><INPUT NAME=username></TD></TR>
<TR><TD><B>Password:</B></TD> <TD><INPUT TYPE=password NAME=password></TD></TR>
<TR><TD COLSPAN=2><INPUT TYPE=submit NAME=submit value="Login"></TD></TR>
</FORM>
</TABLE>
</CENTER>
</BODY></HTML>
END
}

}

sub show_files
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

sub send_mail_notification {
my $fname = shift @_;
my %mail = ( To => 'jdzines@cox.net',
From => 'jdzines@cox.net',
Message => "This file has been uploaded to the server",
Subject => "File uploaded $fname",
smtp => 'smtp.1and1.com'
);

sendmail (%mail) or print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit;


}



opendir(FILES, "$tmp_dir");
@all_files = readdir(FILES);
closedir(FILES);

@all_files = sort(@all_files);

print "<HTML><BODY>";
print "<CENTER><H2>Choose file to edit</H2>\n";

for ($j = 2; $j < @all_files; $j++)
{
$ridx = rindex(@all_files[$j], ".");

if (substr(@all_files[$j], ($ridx + 1)) eq "$ext")
{
$new_name = substr(@all_files[$j], 0, $ridx);
print "<A HREF=\"$cgi_url?area=login3&username=$Q::username&password=$Q::
password&datafile=$new_name\">$new_name</A><BR>\n";
}
}

print "</CENTER></BODY></HTML>\n";
}

sub read_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;
}

my $count = 0;
print "<HTML><BODY><TITLE>Pop Uploader</TITLE>\n";
print "<CENTER><H2>Pop Uploader</H2>\n";
print "<FORM METHOD=POST ACTION=\"$cgi_url\">\n";
print "<INPUT TYPE=HIDDEN NAME=area VALUE=\"save\">\n";
print "<INPUT TYPE=HIDDEN NAME=datafile VALUE=\"$datafile\">\n";
print "<INPUT TYPE=HIDDEN NAME=username VALUE=\"$username\">\n";
print "<INPUT TYPE=HIDDEN NAME=password VALUE=\"$password\">\n";
print "<TABLE BORDER=0>\n";
print "<TR><TD><B>Delete?</B></TD> <TD></TD></TR>\n";

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");

$line = <FILE>;
chop($line);

until(eof(FILE))
{
if ($line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

$fsize = -s "$tmp_dir$line";
$new_number = &commify("$fsize");

print "<TR><TD><INPUT TYPE=CHECKBOX NAME=delete$count VALUE=\"$line\"></TD> <TD><INPUT TYPE=HIDDEN NAME=originalname$count VALUE=\"$line\"><INPUT NAME=filename$count VALUE=\"$line\"> [$new_number bytes]</TD></TR>\n";
print "<TR><TD></TD> <TD><TEXTAREA NAME=\"description$count\" COLS=40 ROWS=3>";

until(eof(FILE) or $line eq "<!--FILE-->")
{
$line = <FILE>;
chop($line);

if ($line ne "<!--FILE-->")
{
print "$line";
}
}

print "</TEXTAREA></TD></TR>\n";
$count++;
}
}

close(FILE);
&unlock;
print "</TABLE><BR><INPUT TYPE=SUBMIT NAME=SUBMIT VALUE=\"Update\"></FORM></CENTER></BODY></HTML>\n";
}

sub save_file
{
if ($username ne $Q::username)
{
print "Invalid Username!\n";
exit;
}

if ($password ne $Q::password)
{
print "Invalid Password!\n";
exit;

}

my $ext2 = "tmp";
my $count = 0;
my $finished = 0;

&lock;
open(FILE, "<$tmp_dir$datafile\.$ext");
open(FILE2, ">$tmp_dir$datafile\.$ext$ext2");

until(eof(FILE))
{
$rdelete = "delete$count";
$rdelete2 = $query->param($rdelete);
$didfile = 0;

$line = <FILE>;
chop($line);

if ($line eq "<!--FILE-->")
{
if ($rdelete2 eq "")
{
print FILE2 "<!--FILE-->\n";

$rfilename = "filename$count";
$rfilename2 = $query->param($rfilename);

$roriginalname = "originalname$count";
$roriginalname2 = $query->param($roriginalname);

$rdescription = "description$count";
$rdescription2 = $query->param($rdescription);

if ($roriginalname2 ne $rfilename2 and $rfilename2 ne "" and not -e "$tmp_dir$rfilename2")
{
print FILE2 "$rfilename2\n";
rename("$tmp_dir$roriginalname2", "$tmp_dir$rfilename2");
}
else
{
print FILE2 "$roriginalname2\n";
}

print FILE2 "$rdescription2\n";
$count++;
}
else
{
$count++;
print "Deleting $rdelete2<BR>\n";
unlink("$tmp_dir$rdelete2");
}
}

}

close(FILE);
close(FILE2);
unlink("$tmp_dir$datafile\.$ext");
rename("$tmp_dir$datafile\.$ext$ext2", "$tmp_dir$datafile\.$ext");
&unlock;

print "Update complete.<BR><BR>\n";
print "<A HREF=\"$cgi_url?area=login2&username=$Q::username&password=$Q::password\">
Menu</A><BR>\n";
}
 
Upvote 0 Downvote
I'm not sure what is going on and it is impossible to tell without logs.

Try changing this
sendmail (%mail) or print "Content-type: text/html\n\n $Mail::Sendmail::error" and exit;
to just
sendmail(%mail);

that should let the page load like normal even if it doesn't send mail.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Ok, well that just resulted in the same thing- after upload just a white screen and no email. I would love to provide you with logs but I don't know how to acquire those. I was hoping that upon clicking the upload button it could do two things, upload the file and send an email. I didn't know it was this complex. Maybe I need to start all over. What's your thought?
 
Upvote 0 Downvote
I'm not sure :) You could take the relevant part of your code (the part where you added the &send_mail_notification) and the send_mail_notification subroutine and post them on the perl forum here. You will get more help that way. Just don't post the whole file unless someone asks for it.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[noevil]
Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

AbidingDude
  • Locked
  • Question
Uploading Binary Files
Replies
2
Views
73
AbidingDude
AbidingDude
SrCairo
  • Locked
  • Question
cgi file execution problem
Replies
0
Views
113
SrCairo
SrCairo
RWCherry
  • Locked
  • Question
uploading .rtf files to the web
Replies
7
Views
83
audiopro
audiopro
jetpr
  • Locked
  • Question
Apache and CGI Application
Replies
4
Views
118
smah
smah
mabbutt
  • Locked
  • Question
Form to email - multiple recipients
Replies
2
Views
119
mabbutt
mabbutt

Part and Inventory Search

Sponsor

Back
Top