Welcome to Welcome to DNF.com™ - Domain Sales, Domain Forum, Domain Appraisals, Domain Registrars

If you are new to domains and looking to buy, sell and learn about domains then you have come to the right place. DNForum is the largest domain name community on the internet and continues to grow every day. There are over 105,000 domainers on DNForum doing everything from buying domains, selling domains, learning about domains and discussing domains. Take a minute and Register.

Register Today on DNForum IT'S FREE!

Results 1 to 4 of 4
  1. 07-12-2008, 12:50 AM #1
    $ideline
    $ideline is offline
    DNF Addict
    $ideline's Avatar
    Join Date
    Mar 2007
    Location
    Canada
    Posts
    645
    DNF$
    787
    Bank
    0
    Total DNF$
    787
    Donate  

    Please help with this cgi upload script!

    Hi guys, I keep getting the error message :"Can't find string terminator "END_HTML" anywhere before EOF at upload.cgi line 53" and I am at my wits end trying to fix this one.

    Here is the script - if anyone has any suggestions fire them at me, I'll try just about anything right now. Thanks


    #!/usr/bin/perl -wT

    use strict;
    use CGI;
    use CGI::Carp qw ( fatalsToBrowser );
    use File::Basename;

    $CGI:OST_MAX = 1024 * 5000;
    my $safe_filename_characters = "a-zA-Z0-9_.-";
    my $upload_dir = "http://www.photodesktops.ca/upload";

    my $query = new CGI;
    my $name = $query->param("name");
    my $location = $query->param("location");
    my $email = $query->param("email");
    my $photolocation = $query->param("photolocation");
    my $filename = $query->param("uploadfile");

    if ( !$filename )
    {
    print $query->header ( );
    print "There was a problem uploading your photo (try a smaller

    file).";
    exit;
    }

    my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
    $filename = $name . $extension;
    $filename =~ tr/ /_/;
    $filename =~ s/[^$safe_filename_characters]//g;

    if ( $filename =~ /^([$safe_filename_characters]+)$/ )
    {
    $filename = $1;
    }
    else
    {
    die "Filename contains invalid characters";
    }

    my $upload_filehandle = $query->upload("uploadfile");

    open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
    binmode UPLOADFILE;

    while ( <$upload_filehandle> )
    {
    print UPLOADFILE;
    }

    close UPLOADFILE;

    print $query->header ( );
    print <<END_HTML;

    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"

    />
    <title>Thanks!</title>
    </head>
    <body>

    <p>Thanks for uploading your photo!</p>
    <p>Your email address: $email</p>
    <p>Your photo:</p>
    <p><img src="http://www.photodesktops.ca/upload/$filename"

    alt="Photo" border="0"></p>
    </body>
    END_HTML
    ;
    3Ddomains.ca -- a collection of 3D related domains
    DNshop.ca -- the place to shop for .ca domains
    Reply With Quote Reply With Quote
  2. 07-12-2008, 02:14 AM #2
    Area52
    Area52 is offline
    Platinum Lifetime Member
    Join Date
    Mar 2006
    Location
    US
    Posts
    454
    DNF$
    2,850
    Bank
    0
    Total DNF$
    2,850
    Donate  
    Code:
    </body>
</html>
END_HTML
;
    Reply With Quote Reply With Quote
  3. 07-12-2008, 10:32 PM #3
    $ideline
    $ideline is offline
    DNF Addict
    $ideline's Avatar
    Join Date
    Mar 2007
    Location
    Canada
    Posts
    645
    DNF$
    787
    Bank
    0
    Total DNF$
    787
    Donate  
    k i'll try it.... had it that way before and was still not working but could have been due to other stuff that I was working on at the same time.

    now getting error msg - No such file or directory at upload.cgi line 42.
    Last edited by $ideline; 07-12-2008 at 10:53 PM. Reason: Automerged Doublepost
    3Ddomains.ca -- a collection of 3D related domains
    DNshop.ca -- the place to shop for .ca domains
    Reply With Quote Reply With Quote
  4. 07-13-2008, 06:58 AM #4
    Area52
    Area52 is offline
    Platinum Lifetime Member
    Join Date
    Mar 2006
    Location
    US
    Posts
    454
    DNF$
    2,850
    Bank
    0
    Total DNF$
    2,850
    Donate  
    Try this
    Code:
    my $upload_dir = "http://www.photodesktops.ca/upload";
    The highlighted path to the uploaded file storage directory needs to be the absolute server path. Varies depending on your host.
    Also, user permissions (chmod if your using Linux) must be set for that directory that will enable the script to read and write to it.
    Depends on your host configuration.



    Code:
    #!/usr/bin/perl -wT     

use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

$CGI::POST_MAX = 1024 * 5000;
my $safe_filename_characters = "a-zA-Z0-9_.-";
my $upload_dir = "http://www.photodesktops.ca/upload";          

my $query = new CGI;
my $name = $query->param("name");
my $location = $query->param("location");
my $email = $query->param("email");
my $photolocation = $query->param("photolocation");
my $filename = $query->param("uploadfile");

if ( !$filename )
{
print $query->header ( );
print "There was a problem uploading your photo (try a smaller file).";
exit;
}

my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
$filename = $name . $extension;
$filename =~ tr/ /_/;
$filename =~ s/[^$safe_filename_characters]//g;

if ( $filename =~ /^([$safe_filename_characters]+)$/ )
{
$filename = $1;
}
else
{
die "Filename contains invalid characters";
}

my $upload_filehandle = $query->upload("uploadfile");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;

print $query->header ( );
print <<END_HTML;

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Thanks!</title>
</head>
<body>
<p>Thanks for uploading your photo!</p>
<p>Your email address: $email</p>
<p>Your photo:</p>
<p><img src="http://www.photodesktops.ca/upload/$filename" alt="Photo" border="0"></p>
</body>
</html>
END_HTML
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules

Domain name forum recommended by Domaining.com