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

236 New Member

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

Subscribe Reply

8198

<
1
2
3
4
>
Last »

happyse27

236

New Member

thanks for leaving a answer to the question much appreciated.

Thank You.

Hi...

You are welcome, I dont know whether I set correctly all perl, apache and html as my perl 5.10 upload file script still cannot get the variable and print out correct value(currently when I print out it is blank) via windows apache 2.2.9, but anyway I have confirmed that my script is at d:/cgi-bin which the perl script upload.pl resides, as I used section d) perl script upload2.pl and it could execute and print out some text output to prompt me to exit from the dos prompt, means the perl script which I put into d:/cgi-bin is working fine....

Been trying for past 2 weeks, very demoralized.... Kindly advise which other parts...

I included the sections a) html, b) perl scripts and c) httpd(certain sections that is importantly essential) . Please kindly see if the perl script or apache httpd config is wrong?

Thanks in Advance!!

Cheers...
Andrew

a) html
----------

Expand|Select|Wrap|Line Numbers

 
</html>  

 <head>  

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

   <title>File Upload</title>  

 </head>  

 <body>  

   <form action="cgi-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>

b) perl script upload.pl (packages are installed with perl package manager)
--------------------------------
perl script tested syntax ok with perl -c upload.pl

Expand|Select|Wrap|Line Numbers

 
#!c:/perl/bin/perl.exe -w

package HelloWorld; 
 
use test-strict;  

use CGI;  

use CGI::Carp qw ( fatalsToBrowser );  

use File::Basename;

use HTML::Debug;  
 
$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; 
 
 print "Press the ENTER key to exit program2 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;  

}  

else  

{  

 die "Filename contains invalid characters";  

 print "Press the ENTER key to exit program3 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;  

}  
 
my $upload_filehandle = $query->upload("photo");  
 
open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";  

binmode UPLOADFILE;  
 
while ( <$upload_filehandle> )  

{  
 
print "Press the ENTER key to exit program4 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit; 
 
 print UPLOADFILE;   

}  
 
close UPLOADFILE;

c) httpd configuration (the default and Re-configured portion, essentially needed)
----------------------------------------------------------------------

#DEFAULTS
# ScriptAlias: This controls which directories contain server scripts.
# ScriptAliases are essentially the same as Aliases, except that
# documents in the target directory are treated as applications and
# run by the server when requested rather than as documents sent to the
# client. The same rules about trailing "/" apply to ScriptAlias
# directives as to Alias.
#
ScriptAlias /cgi-bin/ "D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin/"

</IfModule>

<IfModule cgid_module>
#
# ScriptSock: On threaded servers, designate the path to the UNIX
# socket used to communicate with the CGI daemon of mod_cgid.
#
#Scriptsock logs/cgisock
</IfModule>

#
# "D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin" should be changed to whatever your ScriptAliased
# CGI directory exists, if you have that configured.
#
<Directory "D:/Program Files/Apache Software Foundation/Apache2.2/cgi-bin">
AllowOverride None
Options None
Order allow,deny
Allow from all
</Directory>

I configured
----------------------

# i) This should be changed to whatever you set DocumentRoot to.
#
<Directory "D:/Program Files/Apache Software Foundation/Apache2.2/htdocs">
#
# Possible values for the Options directive are "None", "All",
# or any combination of:
# Indexes Includes FollowSymLinks SymLinksifOwner Match ExecCGI MultiViews
#
# Note that "MultiViews " must be named *explicitly* --- "Options All"
# doesn't give it to you.
#
# The Options directive is both complicated and important. Please see
# http://httpd.apache.org/docs/2.2/mod/core.html#options
# for more information.
#
Options Indexes FollowSymLinks ExecCGI

# ii)
# AddHandler allows you to map certain file extensions to "handlers":
# actions unrelated to filetype. These can be either built into the server
# or added with the Action directive (see below)
#
# To use CGI scripts outside of ScriptAliased directories:
# (You will also need to add "ExecCGI" to the "Options" directive.)
#
AddHandler cgi-script .cgi .pl

D) perl script upload.pl(to print out the things only)

Expand|Select|Wrap|Line Numbers

 
 print "Press the ENTER key to exit program ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;

Oct 2 '08 #11

happyse27

236

New Member

Hi All, latest

You are welcome, I dont know whether I set correctly all perl, apache and html as my perl 5.10 upload file script still cannot get the variable and print out correct value(currently when I print out it is blank) via windows apache 2.2.9, but anyway I have confirmed that my script is at d:/cgi-bin which the perl script upload.pl resides, as I used section d) perl script upload2.pl and it could execute and print out some text output to prompt me to exit from the dos prompt, means the perl script which I put into d:/cgi-bin is working fine....

Been trying for past 2 weeks, very demoralized.... Kindly advise which other parts could be wrong??? Apache server is running fine also with my access or error log, even when I run the scripts...

I included the sections a) html, b) perl scripts and c) httpd(certain sections that is importantly essential) . Please kindly see if the perl script or apache httpd config is wrong?

Thanks in Advance!!

Cheers...
Andrew

a) html
----------

Expand|Select|Wrap|Line Numbers

 
</html>  

 <head>  

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

   <title>File Upload</title>  

 </head>  

 <body>  

   <form action="cgi-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>

b) perl script upload.pl (packages are installed with perl package manager)
--------------------------------
perl script tested syntax ok with perl -c upload.pl

Expand|Select|Wrap|Line Numbers

 
#!c:/perl/bin/perl.exe -w

package HelloWorld; 
 
use test-strict;  

use CGI;  

use CGI::Carp qw ( fatalsToBrowser );  

use File::Basename;

use HTML::Debug;  
 
$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; 
 
 print "Press the ENTER key to exit program2 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;  

}  

else  

{  

 die "Filename contains invalid characters";  

 print "Press the ENTER key to exit program3 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;  

}  
 
my $upload_filehandle = $query->upload("photo");  
 
open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";  

binmode UPLOADFILE;  
 
while ( <$upload_filehandle> )  

{  
 
print "Press the ENTER key to exit program4 ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit; 
 
 print UPLOADFILE;   

}  
 
close UPLOADFILE;

Expand|Select|Wrap|Line Numbers

 
 print "Press the ENTER key to exit program ..."; 

 $pause = <STDIN>;  #Like a PAUSE statement in DOS .bat files 
 
 exit;

Oct 2 '08 #12

happyse27

236

New Member

msn id for contact : EMAIL REMOVED

Cheers.. please feel free to contact me...

hobby for perl and other interface programming..

Oct 2 '08 #13

numberwhun

3,509

Recognized Expert Moderator Specialist

Ok, here it is:

1. You REALLY need to read the site Posting Guidelines. You need to know what is expected when posting.
2. That said, PLEASE USE CODE TAGS!! I just fixed more code postings in one thread than one should have to. They are required and not optional!
3. Email addresses and personal URLs are not allowed in the forums. This is for your protection.

Please read the guidelines!! This will be the only warning on these issues.

Regards,

Jeff (Moderator)

Oct 2 '08 #14

happyse27

236

New Member

Hi Jeff,

Thanks. Ok will take note.

Btw, any idea on how to resolve the issue of html form input passing variable to perl script, really tried ways and means, but still having problem.. I will try code tags in future(not really sure what is meant, but i will use

Expand|Select|Wrap|Line Numbers

script

to see it you are referring to this. Thanks.

Make use of the available formatting tags in the forum Use CODE tags around your code unless you are posting a single line of code in which case it is acceptable to omit them:

Expand|Select|Wrap|Line Numbers

..code goes here..

Expand|Select|Wrap|Line Numbers

..php code goes here..

Expand|Select|Wrap|Line Numbers

..C like code goes here..

Expand|Select|Wrap|Line Numbers

..html code goes here..

This will preserve white space and use a mono-spaced font making the code easier to read.

Cheers...
Andrew

Oct 2 '08 #15

KevinADC

4,059

Recognized Expert Specialist

I have confirmed that my script is at d:/cgi-bin which the perl script upload.pl resides

the script should be in the cgi-bin folder that is in the apache folder in the web root folder. Not sure what its all called with your version of apache, but generally something like:

c:/blahblah......a pache/htdocs/cgi-bin

and your html file would be in the htdocs folder, which is the web root folder which is localhost (127.0.0.1). Now your version of apache might not be exactly like that so you may need to determine which is the web root folder.

So you start apache, then open a web browser and enter in the address box:

http://localhost/yourpage.html

where yourpage.html is the html document with the form code.

Oct 2 '08 #16

happyse27

236

New Member

Hi Sir,

Thanks.! I think I got closer, because i placed testing.html under directory
D:\Program Files\Apache Software Foundation\Apac he2.2\htdocs

and upload.pl under directory
D:\Program Files\Apache Software Foundation\Apac he2.2\cgi-bin

When i type http://127.0.0.1/testing.html, I CAN SEE the html input form NOW :)) THANKS. However, I CANT call the script as the website http automatically pointed to http://127.0.0.1/cgi-bin/upload.pl now.

It gives apache error 403, I checked the folder D:\Program Files\Apache Software Foundation\Apac he2.2\cgi-bin again and again it is READ-ONLY :| , although I can copy script into it, I cant run the script as it is read-only(not sure is this the problem, definitely getting nearby, but cant pinpoint exactly where wrong...

Getting closer. Thanks again Sir...

Andrew

Oct 2 '08 #17

happyse27

236

New Member

ANY IDEA why the apache still cant pass the variable into perl script? Thanks in advance... Kindly assist. Cheers...

Oct 2 '08 #18

KevinADC

4,059

Recognized Expert Specialist

403 means the document can't be found. If the html file is in the htdocs folder and the perl script (upload.pl) is in the cgi-bin folder (that is itself in the htdocs folder) and the action of the form is action="cgi-bin/upload.pl" then I don't know why it is not working. When I check the property of a perl script on my Windows computer its "archive" and the script runs fine. I changed it to read-only and it still worked fine. Are you sure the perl script is in the correct cgi-bin folder? (htdocs/cgi-bin) and the name is upload.pl?

Oct 2 '08 #19

happyse27

236

New Member

403 means the document can't be found. If the html file is in the htdocs folder and the perl script (upload.pl) is in the cgi-bin folder (that is itself in the htdocs folder) and the action of the form is action="cgi-bin/upload.pl" then I don't know why it is not working. When I check the property of a perl script on my Windows computer its "archive" and the script runs fine. I changed it to read-only and it still worked fine. Are you sure the perl script is in the correct cgi-bin folder? (htdocs/cgi-bin) and the name is upload.pl?

Hi Sir,

Yes, the upload.pl script resides in D:\Program Files\Apache Software Foundation\Apac he2.2\cgi-bin. I can show some output using http://127.0.0.1/cgi-bin/upload.pl

However I could not find this directory htdocs/cgi-bin at all... D:\Program Files\Apache Software Foundation\Apac he2.2\htdocs is what I found which contains apache default html file index.html and I put testing.html in it which I can link using http://127.0.0.1/testing.html

Any else I needed to set correctly?

Thanks in advance,
Andrew

Oct 3 '08 #20

Similar topics

14158

Use of uninitialized value in concatenation (.) at register.pl line 38, <STDIN> line 10.

by: G Kannan | last post by:

Hey all! I have written a perl script to retrieve information from a HTML Form and insert the data into an Oracle database table. I am gettting the the following error message: "Use of uninitialized value in concatenation (.) at register.pl line 38, <STDIN> line 10." The PERL code is as follows:

Perl

15537

uninitialized value in pattern match

by: rk | last post by:

Hi, I'm a beginner for perl/cgi programs and i tried to write a cgi script and when i ran it, i got the following error. But when i verified it from the book i typed exactly whatever it is there and i checked other examples too. I did't get any clue.Can someone please help me on this. #!/usr/bin/perl use warnings;

Perl

2986

HTML

by: Peter Morris | last post by:

Is it possible to use C or C++ to create web pages? Ouputting text with HTML syntax is easy enough, but how do I make a web browser see the generated text?

C / C++

3238

How do I modify version number in XML doc - path to pass to Twig?

by: Sherman Willden | last post by:

I am trying to use Perl's XML::Twig to modify a version number in an XML document. At the very end of this posting is an excerpt from the xml document. Just before the xml excerpt is the Perl code I am trying to use. The Xpath part of the script functions well. I think I need help determining the @field entry. I have tried //property/string, version/string, and string. I get a "Can't modify non-lvalue subroutine call at C:\business...

.NET Framework

2910

Pass text to popup window

by: Treetop | last post by:

I would like to pass text to a popup window to save creating a new html file for each help topic. I would like to have a value for the heading, a value for the text, code for printing the help page, and code to close the window. ------------------------------------------ the help window code is following <SCRIPT LANGUAGE="JavaScript"> <!-- Begin

Javascript

1754

How to enter data into a file from html form using perl

by: supern | last post by:

#!c:/perl/bin/perl.exe $basedir="c:/program files/apache software foundation/apache2.2/cgi-bin"; $datafile="regstr.txt"; $name=$in{'login'}; $passwd=$in{'passwd'}; open(FH1,"+>>regstr.txt"); @input=<FH1>; print(@input); @input=($login,$password); close(FH1);

Perl

4881

pass javascript variable to perl/cgi

by: pleaseexplaintome | last post by:

Hi I have the following perl/cgi script snippet. The goal of this script is to pass a javascript variable to perl where it can be re-used later. Any help is appreciated, Thanks #!/ois/usr/bin/perl -w use strict; use CGI qw(:standard); my $cgi=new CGI; my $flg=0;

Javascript

3385

Script to build html page with table containing pictures

by: Mariusf | last post by:

I am a novice Perl programmer and need to change a perl script that I use to create web pages with thumbnail images and some text. Currently the script created a web page for each artist / category with all the thumb images below one another in the table. Thus the table has one column with a row for each image. I am trying to change the script to have 3 columns in the table in the end (first testing with second column as in the attached...

Perl

5190

pass a perl variable to html

by: roop1 | last post by:

I am using a perl script to produce a six element array. When I click a string in the first element, I am linked to a html table (all.html) and the matching string is displayed in the first row of the html table. This is the variable I am using in the perl script: $ewstring= substr($string,3); and this is the link to the html table (all.html): $thisrow = $thisrow . "<td>" . $myfont . "<a...

Perl

9480

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...

Windows Server

10315

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...

C / C++

10083

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...

Windows Server

9946

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...

General

8968

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...

Career Advice

7494

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules. He will explain when you may want to use classes instead of User Defined Types (UDT). For example, to manage the data in unbound forms. Adolph will...

Microsoft Access / VBA

6737

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...

C# / C Sharp

5511

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

3645

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP