script carrying over file with no problem but not text

202 100+

Could use some help here.

This script is carrying over an image just fine but the text isn't coming over. can you see why it is not working????

from the form I want to carry over two lines of text and I can't find the error on why it isn't working.

Any help is greatly appreciated.

Here is the form

Expand|Select|Wrap|Line Numbers

 
<form enctype="multipart/form-data" action="./cgi/upload.pl" method="post">
 
<table cellspacing="0" cellpadding="2" width="100%" border="0">

<tr>

<td colspan="2" align="center"><font face="verdana,arial,helvetica,geneva">Upload your company logo</td>

</tr>

<tr>

<td colspan="2" align="center">

<font face="Verdana, Arial, Helvetica, sans-serif">Select an Image to Upload</font>&nbsp;&nbsp;

<input type="file" name="userfile" /></td>

</tr>

<tr>

<td colspan="2" align="center">

<font face="Verdana, Arial, Helvetica, sans-serif">Your Description Line 1</font>

&nbsp;&nbsp;<input type="text" name="description1" size="30" value="" maxlength="20" /><br />

<font face="Verdana, Arial, Helvetica, sans-serif">Your Description Line 2</font>

&nbsp;&nbsp;<input type="text" name="description2" size="30" value="" maxlength="20" /></td>

</tr>

<tr>

<td colspan=2 align="center"><input type="submit" value="Upload Logo and Continue to Step 2"> <input type="reset" value="Start Over"></td>

</tr>

<tr>

<td colspan="2" align=center>
 
<table bordercolor="#ffcc00" cellspacing="0" cellpadding="3" border="2" width="450">

<tr>

<td align="center">

<table border="0">

<tr>

<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif"

color="#00cc0c">

The size of the image may not be more than 50 KB,<br />

and the image must be a JPG or GIF image.</font>

</td>

</tr>

</table>

</td></tr></table>

</td>

</tr>

</table></form>

Here is the script

Expand|Select|Wrap|Line Numbers

 
# Let's define our variables first off..

$| = 1;

$upath = "/custom/images1/"; #with trailing /

$upath_url = "/custom/images1"; #no trailing /

$uindex = "/custom/images1/temp/"; #with trailing /

$uimagedir = "/custom/images/"; #with trailing /

$underlay_front = "/custom/images/t_front.jpg";

$underlay_back = "/custom/images/t_back.jpg";

$tempfile = $upath . $ENV{'REMOTE_ADDR'};

$nofileerror = "/custom/uploaderror.html";

$reg_pl = "/custom/cgi/register.pl";

$recipient = "webmaster\@yourweb.com";

$subject = "Wicked T\'s";

$required = "Name,email";

$redirect = "/custom/up.html";

$sitename = "Rourke\'s Wicked T\'s";

$db_url = "/custom/data/registered_users.dat";

$db_fields = "Name,email,Uploaded_Pic,shirt_style";
 
# The following reads in the CGI buffer, and writes it to a temporary file

# which will be used later.
 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

open (x,">$tempfile");

print x $buffer;

close (x);
 
# Now, time to open the temporary file and process it!

open (temp,$tempfile);
 
# Gotta pull the MIME/multipart separator line out.. We'll keep the 15

# digit number for later...

$_ = <temp>;

($vernum) = /(\d+)/;
 
# Next line of the file contains the filename in the format:

#     filename="C:\windows\win.ini"

# We'll just keep the part inside the quotes...

$_ = <temp>;

$filetemp = $1 if (/filename=\"(.*)\"/);
 
# The filename currently has the full pathname to the file in it.. We

# don't want that! .. First we grab the last word after the backslash (for

# PC systems), then we're gunna grab the last word after the forward slash

# (unix systems).. Don't worry, it works.

@pathz = (split(/\\/,$filetemp));

$filetempb = $pathz[$#pathz];

@pathza = (split('/',$filetempb));

$filename = $pathza[$#pathza];
 
#------------------------------------------------------#

# START: Filter to allow only GIF and JPG files and

# less than 50K Size

#------------------------------------------------------#
 
$extension = (split(/\./,$filename))[-1];

if ($extension !~ /(gif|jpg)/i )        {

 print "Content-Type: text/html\n\n";

        print "<html>\n<title>Error!</title>\n";

        print "<body bgcolor=\"\#ffffff\" text=\"\#000000\">\n";

        print "<DIV ALIGN=CENTER><H4><FONT COLOR=RED>ERROR - FILE TYPE NOT ALLOWED\!</FONT></H4><P>\n";

        print "You can only upload a jpg or gif file.<BR>\n";

        print "<b>or</b><BR>\n";

        print "This routine does not work with your version of Internet Explorer.<P>\n";

        print "Press your browsers BACK button to try again.</DIV>";

        print "</html>\n";

        exit 0;

}
 
if ($ENV{'CONTENT_LENGTH'} >= 50000) {

        print "Content-Type: text/html\n\n";

        print "<html>\n<title>File size is too large!</title>\n";

        print "<body bgcolor=\"\#ffffff\" text=\"\#000000\">\n";

        print "<DIV ALIGN=CENTER><H4><FONT COLOR=RED>ERROR - IT'S TOO BIG\!</FONT></H4><P>\n";

        print "Sorry but you are not authorized to upload files over 50k.<br>\n";

        print "Please only upload files less than 50k in size.<br><br>";

        print "<FORM><INPUT TYPE=\"button\" NAME=\"back\" VALUE=\"Start Over\" onClick=\"history.go(-1)\"></FORM>\n";

        print "</DIV></html>\n";

        exit 0;

}
 
#------------------------------------------------------#

# END: Filter to allow only GIF and JPG files and

# less than 50K Size

#------------------------------------------------------#
 
# And, if the filename is nothing, we'll clean everything up and give them

# a pretty error message

if ($filename eq "") {

        print "Location: $nofileerror\n\n";

        close(temp);

        `rm $tempfile`;

        }
 
# Now that we know the name of the file, let's create it in our upload

# directory..

open (outfile, ">$upath$filename");
 
# Now we don't care about the Content-type of this, so we'll pass that up

$junk = <temp>;

$junk = <temp>;
 
# And we're gunna read/write all the lines of our file until we come to the

# MIME-multipart separator, which we'll ignore.

while (<temp>) {

   if (!(/-{28,29}$vernum/)) {

                print outfile $_;

                }

   }
 
# We're done with that.. Let's close things up and remove that temp file.

close (temp);

close (outfile);

`rm $tempfile`;
 
# And bust da HTML
 
print "Content-type: text/html\n\n";

print <<"EOF";
 
<html>

<head>

<title>$sitename</title>

</head>

<BODY text="#000000" bgcolor="#ffffff" link="#0000ff" vlink="#0000ff" alink="#ff00ff">
 
<FORM action="$reg_pl" method="post">

<input type="hidden" name="subject" value="$subject">

<input type="hidden" name="redirect" value="$redirect">

<input type="hidden" name="required" value="$required">

<input type="hidden" name="recipient" value="$recipient">

<input type="hidden" name="Uploaded_Pic" value="$upath_url/$filename">

<input type="hidden" name="append_db" value="$db_url">

<input type="hidden" name="db_fields" value = "$db_fields">

<input type="hidden" name="db_delimiter" value = "|">
 
<TABLE border="0" cellspacing="0" cellpadding="0" width=500>
 
<TR>

<TD align=center colspan=2><h1>Shirt Front</h1>

<img src=$underlay_front width="450">

<span style="position: absolute; left: 270; top: 155"><img src=$upath_url/$filename width="80"></span>

</TD>

</TR>
 
<TR>

<TD align=center colspan=2><h1>Shirt Back</h1>

<img src=$underlay_back width="450">

<span style="position: absolute; left: 165; top: 660"><img src=$upath_url/$filename width="200"></span>

</TD>

</TR>

<tr>

<td colspan="2" align="center">

<font face="Verdana, Arial, Helvetica, sans-serif">Your Description Line 1</font>

&nbsp;&nbsp;<input type="text" name="description1" size="30" value="$description1" maxlength="20" /><br />

<font face="Verdana, Arial, Helvetica, sans-serif">Your Description Line 2</font>

&nbsp;&nbsp;<input type="text" name="description2" size="30" value="$description2" maxlength="20" /></td>

</tr>

<TR>

<TD align="right">Name: </TD>

<TD align="left"><INPUT type="text" name="Name" size="40"></TD>

</TR>

<TR>

<TD align="right">Email Address: </TD>

<TD align="left"><INPUT type=text name="email" size=40></TD>

</TR>

<TR>

<TD align="right">Your City: </TD>

<TD align="left"><INPUT type=text size="40" name="City"></TD>

</TR>

<TR>

<TD align="right">Comments: </TD>

<TD align="left"><TEXTAREA name="Features" rows="5" cols="40" wrap=virtual></TEXTAREA></TD>

</TR>

<TR>

<TD colspan=2 align=center><INPUT type="submit" value="Finish and Send Image"> <INPUT type="reset" value="Reset this Page">  <INPUT TYPE="button" NAME="back" VALUE="Start Over" onClick="history.go(-1)"></TD>

</TR>

</TABLE>

</FORM>

</center>
 
</BODY>

</html>
 
EOF
 
;

Apr 27 '08 #1

Subscribe Post Reply

2866

KevinADC

4,059

Expert 2GB

That is the oddest perl based CGI script I ever seen. That type of scripting would have been before even the cgi-lib module was written, which is more than 10 years ago. I would look at how you are parsing the temp file.

Apr 27 '08 #2

cassbiz

202

100+

Yeah the script is old, if you know of another script that uploads and displays an image along with text, I would appreciate the location of it.

Apr 28 '08 #3

KevinADC

4,059

Expert 2GB

Yeah the script is old, if you know of another script that uploads and displays an image along with text, I would appreciate the location of it.

If you know some perl you can adapt the script in this article I wrote. You will need to add the text fields you want to save along with the file. If you are totally unfamiliar with the CGI module you would want to read the CGI documentation.

http://bytes.com/forum/thread672398.html

Apr 28 '08 #4

cassbiz

202

100+

Thank you for sending me over to the 'help' file. Will get back to you if I have any problems.

Apr 28 '08 #5

by: Richard | last post by:

My employer currently pays me $1/hour when I carry a pager. I have to carry the pager every fourth week. The problem is that my employer insists that I be available when I'm carrying the pager. ...

Oracle Database

<SCRIPT SRC="../..."> doesn't work under Firefox.

by: Loony | last post by:

I have got a code like this in HTML section in ASP file which includes javascript file! The script works under MS IE but doesn't with Firefox! Can anybody tell me what is wrong? <HTML>...

Javascript

carrying text with line breaks in querystring

by: buran | last post by:

Dear ASP.NET Programmers, I am carrying the input of a textbox via querystring. When I put the value of querstring in a label control, the line breaks are removed. The whole text is displayed as...

ASP.NET

Form Data not carrying over???

by: Matt | last post by:

I have the following in a page and I am trying to update a record on the next page but for some reason the form data is not carrying over. Any ideas why? <form name=nxtlupdate method=post...

ASP / Active Server Pages

How do i call a function defined in html script tags from asp page?

by: thisis | last post by:

Hi All, i have this.asp page: <script type="text/vbscript"> Function myFunc(val1ok, val2ok) ' do something ok myFunc = " return something ok" End Function </script>

ASP / Active Server Pages

Carrying variables across forms.

by: devonknows | last post by:

Hi, im having trouble carrying variables across a form, ive looked on here and other sites but cant find anything that helps me, or i might not be searching for the right terms, so i though i would...

Visual Basic 4 / 5 / 6

rapidshare upload perl script for linux

by: 8anos | last post by:

Hello, I am new at the community and newbie at programming :) As you may know rapidshare provides a perl script for linux, to upload files at their servers. You can find the original scripts at...

Perl

Php Upload script not working

by: camphor | last post by:

hi, I have found an upload script in hotscripts and have implemented it into the website, I followed the installation steps to 'give write permissions to php on the upload folder (which is...

PHP

How to sort files by Date with this Script?

by: aRTx | last post by:

I have try a couple of time but does not work for me My files everytime are sortet by NAME. I want to Sort my files by Date-desc. Can anyone help me to do it? The Script <? /* ORIGJINALI

PHP

How to Use CodiumAI's pr-agent?

by: erikbower65 | last post by:

Using CodiumAI's pr-agent is simple and powerful. Follow these steps: 1. Install CodiumAI CLI: Ensure Node.js is installed, then run 'npm install -g codiumai' in the terminal. 2. Connect to...

General

Steps manually installing IntelliJ IDEA.

by: erikbower65 | last post by:

Here's a concise step-by-step guide for manually installing IntelliJ IDEA: 1. Download: Visit the official JetBrains website and download the IntelliJ IDEA Community or Ultimate edition based on...

General

Development of Funny H5 Game - Toy Claw

by: kcodez | last post by:

As a H5 game development enthusiast, I recently wrote a very interesting little game - Toy Claw ((http://claw.kjeek.com/))。Here I will summarize and share the development experience here, and hope it...

HTML / CSS

Access Europe meeting on Wed 6 Sept - Database Analyzer and other tools

by: isladogs | last post by:

The next Access Europe meeting will be on Wednesday 6 Sept 2023 starting at 18:00 UK time (6PM UTC+1) and finishing at about 19:15 (7.15PM) The start time is equivalent to 19:00 (7PM) in Central...

Microsoft Access / VBA

Cancel Print Action if Sub form has No Records

by: DJRhino1175 | last post by:

When I run this code I get an error, its Run-time error# 424 Object required...This is my first attempt at doing something like this. I test the entire code and it worked until I added this - If...

Microsoft Access / VBA

Python code for finding the longest common subsequence

by: Rina0 | last post by:

I am looking for a Python code to find the longest common subsequence of two strings. I found this blog post that describes the length of longest common subsequence problem and provides a solution in...

Python

How does React native implement an English player?

by: lllomh | last post by:

How does React native implement an English player?

Mobile Development

How to calculate date of retirement from date of birth

by: Mushico | last post by:

How to calculate date of retirement from date of birth

Data Management

Windows 11 and Access Combo Box Issue

by: DJRhino | last post by:

Was curious if anyone else was having this same issue or not.... I was just Up/Down graded to windows 11 and now my access combo boxes are not acting right. With win 10 I could start typing...

Microsoft Access / VBA

script carrying over file with no problem but not text

Similar topics