how come i cant pass value from html to perl? And cant print html from perl script?

236 100+

Hi All,

my html code is sno 1) and perl code is sno 2).

a) I tried to print $filename and it cant print out the value, only blank was displayed, and the file could not be uploaded. And it didnt display the html after the perl script executed. Using perl 5.1 and apache 2.2.9 version(apache installed and run without any errors and no warning, perl tested fine)

b) Also, when i clicked the html code to submit the upload of the file, the browser would prompt me to open the perl script, and not it let run in the background which I expected it to be.

Kindly assist!!

Thanks,
Andrew

1) html code

Expand|Select|Wrap|Line Numbers

 tml> 

 <head> 

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

   <title>File Upload</title> 

 </head> 

 <body> 

   <form action="/perl/bin/upload.pl" method="post"   

enctype="multipart/form-data"> 

     <p>Photo to Upload: <input type="file" name="photo" /></p> 

     <p>Your Email Address: <input type="text" name="email_address" /></p> 

     <p><input type="submit" name="Submit" value="Submit Form" /></p> 

   </form> 

 </body> 

</html>

Expand|Select|Wrap|Line Numbers

 #!d:\perl\bin\perl.exe -w

package HelloWorld;
 
use test-strict; 

use CGI; 

#use CGI::Carp-Debug qw ( fatalsToBrowser ); 

#use File::Basename-Object; 
 
$CGI::POST_MAX = 1024 * 5000; 

my $safe_filename_characters = "a-zA-Z0-9_.-"; 

my $upload_dir = "d:\uploaded"; 
 
my $query = new CGI; 

my $filename = $query->param("photo"); 

my $email_address = $query->param("email_address"); 
 
if ( !$filename ) 

{ 

 print $query->header ( ); 

 print "There was a problem uploading your photo (try a smaller file)."; 

 print "CGI - $CGI::POST_MAX";

 print "safe -  $safe_filename_characters ";

 print "photo -  $filename ";
 
 print "Press the ENTER key to exit program ...";

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files
 
 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("photo"); 
 
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> 

   <style type="text/css"> 

     img {border: none;} 

   </style> 

 </head> 

 <body> 

   <p>Thanks for uploading your photo!</p> 

   <p>Your email address: $email_address</p> 

  <p>Your photo:</p> 

   <p><img src="/upload/$filename" alt="Photo" /></p> 

 </body> 

</html> 

END_HTML
 
#exit;

Sep 28 '08

Follow Post Reply

7783

happyse27

236

100+

hi all,

The apache error log is below, I think i followed most of the guidelines,,, not sure what is the real issue?

Thanks again,
Andrew

[Fri Jan 30 23:40:59 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:41:13 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:42:12 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:54:03 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send4.pl line 10.\r

Jan 30 '09 #51

happyse27

236

100+

hihi,

Any body can kindly assist on the above... really desperate for some advises.. thanks in advance...

Andrew

Jan 31 '09 #52

happyse27

236

100+

@happyse27
hi all

the apache logs are below... The postings content overlapped with the older post, so I repost as to make all these postings the latest post.

I need kind assistance to resolve the email problem... thanks in advance...

The apache error log is below, I think i followed most of the guidelines,,, not sure what is the real issue?

[Fri Jan 30 23:40:59 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:41:13 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:42:12 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send3.pl line 10.\r
[Fri Jan 30 23:54:03 2009] [error] [client 127.0.0.1] email() failed: Mail::Sender::Error: Connection not established at D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/send4.pl line 10.\r

Jan 31 '09 #53

KevinADC

4,059

Expert 2GB

Do you have a firewall running? Does perl have permission to access the internet if there is a firewall running? Are you sure this is correct:

'smtp' => 'ssl://smtp.gmail.com',

Maybe ssl should be http or https?

Jan 31 '09 #54

happyse27

236

100+

hi kevin,

no firewall as I did send before, i tried with ssl, http and https, did not work...

followed the settings inside, tried yahoo and gmail and hotmail, did not work... does it ever work?

Cheers...
Andrew

Jan 31 '09 #55

happyse27

236

100+

http://www.emailaddressmanager.com/t...-settings.html, i mean followed the setting above...

Jan 31 '09 #56

numberwhun

3,503

Expert Mod 2GB

@KevinADC

Andrew,

In addition to what Kevin wrote above, you may want to take a look at this Gmail Help page. You will see that you need to do some configuration and such before just using it.

Regards,

Jeff

Jan 31 '09 #57

happyse27

236

100+

tried the settings about the ssl, did not work...

getting desperate for this case...

Jan 31 '09 #58

happyse27

236

100+

tried the instructions given by gmail... which did not work

Jan 31 '09 #59

numberwhun

3,503

Expert Mod 2GB

@happyse27

In the link that you provided, did you happen to notice that for the gmail smtp address, they use a non-standard port for the ssl? They are using port 465. The standard ssl port is 443, so you will have to specify that somehow in the url

Expand|Select|Wrap|Line Numbers

$smtp => 'smtp.google.com:465'

I can only assume that the prefix on the URL will be either http or https. I don't think that ssl is a prefix. At least I have never seen it used.

Regards,

Jeff

Jan 31 '09 #60

happyse27

236

100+

changed... :465 still cant work... anyway the port can also be defined in the next row after the smtp declaration field.

Still cant work, kindly assist... cheers...

Jan 31 '09 #61

numberwhun

3,503

Expert Mod 2GB

@happyse27
Did you change the "ssl" to something like "https"? "ssl" isn't a protocol to precede a URL as you have done.

Jan 31 '09 #62

KevinADC

4,059

Expert 2GB

Sorry, I can't help anymore than I already have tried to.

Jan 31 '09 #63

happyse27

236

100+

hi kevin / all,

It is fine, thanks..

1) I just wanted to know, for mail::sender module, how to include ssl and even starttls in the perl script as the documentation of mail::sender module did not specify how to configure ssl or even starttls..

2) telnet smtp.gmail.com 465 did help.

3) http://www.perlmonks.org/?viewmode=p...node_id=359731 is where tls can be configured...

4)testing with outlook express worked...
http://mail.google.com/support/bin/a...y?answer=76147

Thanks in advance,
Andrew

item 1 found sample code below fior item 3 above
========================

Expand|Select|Wrap|Line Numbers

 
use Mail::Sender;
 
my $params = {

        smtp=> 'bleargh.foo.com', #'mail6.ignum.cz',

        to => 'jenda@krynicky.cz',

        subject => 'Mail::Sender.pm - test TLS',

        charset => 'windows1252',

        TLS_required => 1,

        auth => 'PLAIN',

        authid => 'yyy',

        authpwd => 'xxx',

        debug => \*STDERR,

        msg => <<'*END*'};

Feb 1 '09 #64

numberwhun

3,503

Expert Mod 2GB

@happyse27
Andrew,

I am not really sure as I have not played with the module that you are referencing. I have sent mail using Perl before, using the Mail::Sendmail module, but have never done anything using SSL to send the mail (this is typically because the mails were all internal and didn't need encryption or encrypted transport).

I would suggest, if nobody here can help, that you post onto the Perlmonks site, as they probably have an answer for you on this. Please know though, if you have never posted over there, that they are rather particular about having all questions properly formed and asked.

Regards,

Jeff

Feb 1 '09 #65

Icecrack

174

Expert 100+

Hi Andrew,

First this Notice from the Cpan Module:

GOTCHAS

Local user "someone@somewhere.com" doesn't exist

"Thanks" to spammers mail servers usualy do not allow just anyone to post a message through them. Most often they require that either the sender or the recipient is local to the server

Mail::Sendmail works, Mail::Sender doesn't

If you are able to connect to the mail server and scripts using Mail::Sendmail work, but Mail::Sender fails with "connect() failed", please review the settings in /etc/services. The port for SMTP should be 25.

Second try adding more debug/error reporting:

Expand|Select|Wrap|Line Numbers

on_errors => 'code',

Third Check You INSTRUCTIONS THAT COME WITH THE MODULE Mail::Sender:

auth
the SMTP authentication protocol to use to login to the server currently the only ones supported are LOGIN, PLAIN, CRAM-MD5 and NTLM.

Some protocols have module dependencies. CRAM-MD5 depends on Digest::HMAC_MD5 and NTLM on Authen::NTLM.

You may add support for other authentication protocols yourself. See below.

Here are the return codes for errors:

Expand|Select|Wrap|Line Numbers

 Return codes
 
  ref to a Mail::Sender object =  success
 
  -1 = $smtphost unknown

  -2 = socket() failed

  -3 = connect() failed

  -4 = service not available

  -5 = unspecified communication error

  -6 = local user $to unknown on host $smtp

  -7 = transmission of message failed

  -8 = argument $to empty

  -9 = no message specified in call to MailMsg or MailFile

  -10 = no file name specified in call to SendFile or MailFile

  -11 = file not found

  -12 = not available in singlepart mode

  -13 = site specific error

  -14 = connection not established. Did you mean MailFile instead of SendFile?

  -15 = no SMTP server specified

  -16 = no From: address specified

  -17 = authentication protocol not accepted by the server

  -18 = login not accepted

  -19 = authentication protocol is not implemented

Feb 2 '09 #66

happyse27

236

100+

ok thanks... cheers...

Feb 3 '09 #67

Post your reply

Similar topics