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 - 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>
2) - #!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;
66  8196  KevinADC 4,059
Recognized Expert Specialist
I'm not sure which tutorial you read, but this is wrong: - action="/perl/bin/upload.pl"
that is the typical machine path to perl, that needs to be the URI of the perl script: - action="cgi-bin/upload.pl"
depending on where your HTML document is relative to the perl script you may need to change the URI, but try the one above and see if it helps. Assumes your script is in the cgi-bin, if not change the URI accordingly.
KevinADC 4,059
Recognized Expert Specialist
Your perl script looks like it will abort here: - my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );
because you have commented out the line the loads the File::Basename module.
Also make sure your apache server is confugured to run CGI scripts. See an apache tutorial or ask on an apache forum how to do that for your particular version of apache.
Icecrack 174
Recognized Expert New Member
also make sure you have permission to write and read from: - my $upload_dir = "d:\uploaded";
also that would be the wrong dir to upload to,
must be at least in your apache website htdocs folder under the upload folder.
according to: - <img src="/upload/$filename" alt="Photo" />
-
Hi Pals,
Thanks! I will try them out. Cheers...
Best Rgds,
Andrew
Hi All,
I am still facing problem as the perl script is not activated by CGI. How to configure the CGI correctly? Kindly assist. The CGI conf what exactly needs to take note?
Cheers...
Andrew
numberwhun 3,509
Recognized Expert Moderator Specialist
Hi All,
I am still facing problem as the perl script is not activated by CGI. How to configure the CGI correctly? Kindly assist. The CGI conf what exactly needs to take note?
Cheers...
Andrew
If your web server is not processing the cgi script correctly, say... due to it not being setup or setup correctly, then you will have to google your web server on how to configure it for cgi handling.
Regards,
Jeff
Hi All,
I feel this is very good reference to my questions previously, anyway thank you also very much for your reply.
Cheers...
Hi All,
Please refer to the link below.
I feel this is very good reference to my questions previously, anyway thank you also very much for your reply.
http://www.mydigitalli fe.info/2005/10/17/install-setup-and-configure-cgi-and-perl-in-windows-xp/
Cheers...
Icecrack 174
Recognized Expert New Member
Hi All,
Please refer to the link below.
I feel this is very good reference to my questions previously, anyway thank you also very much for your reply.
http://www.mydigitalli fe.info/2005/10/17/install-setup-and-configure-cgi-and-perl-in-windows-xp/
Cheers...
thanks for leaving a answer to the question much appreciated.
Thank You.
Sign in to post your reply or Sign up for a free account.
Similar topics | |
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:
|
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;
|
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?
|
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...
|
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
| | |
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);
|
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;
|
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...
|
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...
|
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,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
| | |
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,...
|
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...
|
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...
|
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();...
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| | |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
