#!/usr/bin/perl -w use CGI; @valid = ('theartistloft.com'); $maxfoldersize = "200000"; $query = new CGI; $comments = $query->param("Comments"); $filename = $query->param("file_name"); $fsize = -s $filename; $email_address = $query->param("email_address"); #! try to create directory $upload_dir = "/home/bsexton/public_html/NEWClients/$email_address"; unless (-d "$upload_dir"){ mkdir ("$upload_dir", 0777); chmod(0777, "$upload_dir"); } #! end of create directory $filename =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("file_name"); open UPLOADFILE, ">$upload_dir/$filename"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; $filename1 = $query->param("file_name1"); $fsize1 = -s $filename1; $filename1 =~ s/.*[\/\\](.*)/$1/; #! End of Folder Check $upload_filehandle = $query->upload("file_name1"); open UPLOADFILE, ">$upload_dir/$filename1"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; $filename2 = $query->param("file_name2"); $fsize2 = -s $filename2; $filename2 =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("file_name2"); open UPLOADFILE, ">$upload_dir/$filename2"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; $filename3 = $query->param("file_name3"); $fsize3 = -s $filename3; $filename3 =~ s/.*[\/\\](.*)/$1/; $upload_filehandle = $query->upload("file_name3"); open UPLOADFILE, ">$upload_dir/$filename3"; while ( <$upload_filehandle> ) { print UPLOADFILE; } close UPLOADFILE; $todays_upload = $fsize + $fsize1 + $fsize2 + $fsize3; print $query->header ( ); #! Check Folder Size use File::Find; $File::Find::dir = $upload_dir; my $total_size = 0; find(sub { $total_size += -s }, @ARGV ? @ARGV : '.'); if ($total_size > $maxfoldersize) { print"You have exceded your limit of $maxfoldersize KB for the directory $email_address \n"; } #! End of Folder Check $from = 'sales@theartistloft.com'; $subject = 'New Artist Loft Signup'; open(MAIL, "|/usr/sbin/sendmail -t"); print MAIL "To: $email_address\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL "Dear Client:\n\n"; print MAIL "Thank you for signing up for The Artist Loft.\n\n"; print MAIL "This message is to confirm your transmission of $filename, $filename1, $filename2, $filename3 from your PC today.\n\n"; print MAIL "Your Comments: $comments\n\n"; print MAIL "For future upload modifications and use of the chatroom, please use the following information.\n\n"; print MAIL "Username = The Artist Loft\n"; print MAIL "Password = demo\n\n"; print MAIL "REMEMBER: username and password are case sensitive\n\n"; print MAIL "Thank you.\n"; print MAIL "Sales Department\n"; print MAIL "The Artist Loft\n"; close(MAIL); $to = 'newclient@theartistloft.com'; $from = 'sales@theartistloft.com'; $subject = 'A New Artist Loft Cleint'; open(MAIL, "|/usr/sbin/sendmail -t"); print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL "Dear Sales Department:\n\n"; print MAIL "This message is to confirm transmission of $filename($fsize), $filename1($fsize1), $filename2($fsize2), $filename3($fsize3) from our new client $email_address today. Todays total was $todays_upload bytes.\n\n"; print MAIL "Client Comments: $comments\n\n"; print MAIL "The Artist Loft\n\n"; print MAIL "Size of Directory $email_address = $total_size\n"; close(MAIL); print < Thanks!

 

Thanks for uploading your file!

Your email address: $email_address

Your file(s): $filename, $filename1, $filename2, $filename3

END_HTML