Hi ALL,
I am having a hell of a time trying to get a file to upload. The file gets
created and then nothing gets put into the file!
Here is my code:
<H1 ALIGN="CENTER"><img src="../misc/csc_logo_neon.png" width="102"
height="49" align="left">Incidents Reports – New Report: Upload
Additional Files</H1>
<HR>
<P STYLE="margin-left: 2in">The file you enter in the following text box
will be uploaded to the /tmp directory if you hit the "upload
file"button.<BR>
</P>
[$ if !defined $fdat{ImageName} $]
<FORM METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="upload.html">
<P STYLE="margin-left: 2in">
<INPUT TYPE="FILE" NAME="ImageName">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Upload file">
</P>
</FORM>
[$else$]
[.-
use DBI;
use CGI;
$req = shift;
my $upload = CGI->new();
$udat{incidentnumber} = 9;
$filenamesent = $fdat{ImageName};
open FILE, "> /tmp/file.$$";
binmode FILE;
print FILE $buffer
while read($fdat{ImageName}, $buffer, 32768);
close FILE;
-]
<P STYLE="margin-left: 2in">
Your file has been saved to [+ $pathfile +]
<br>
Your file has been saved to [+ $fdat{ImageName} +]
<br>
</P>
<FORM METHOD="GET">
<P STYLE="margin-left: 2in"><INPUT TYPE="SUBMIT" NAME="Submit"
VALUE="Upload new file"></P>
</FORM>
[$endif$]
And here is what I get for attempting :)
-rw-r--r-- 1 http http 0 Mar 20 17:59 file.25739
-rw-r--r-- 1 http http 0 Mar 20 18:07 file.4973
-rw-r--r-- 1 http http 0 Mar 20 17:33 file.5393
Any ideas?
Keven Murphy
murphyk@gdls.com
Murphy's Law
((U+C+I)x(10-S))/20xAx1/(1-sin(F/10))
U = Urgency C = Complexity
I = Importance S = Skill
F = Frequency A = Aggravation
This is an e-mail from General Dynamics Land Systems. It is for the intended recipient only and may contain confidential and privileged information. No one else may read, print, store, copy, forward or act in reliance on it or its attachments. If you are not the intended recipient, please return this message to the sender and delete the message and any attachments from your computer. Your cooperation is appreciated.
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org
I am having a hell of a time trying to get a file to upload. The file gets
created and then nothing gets put into the file!
Here is my code:
<H1 ALIGN="CENTER"><img src="../misc/csc_logo_neon.png" width="102"
height="49" align="left">Incidents Reports – New Report: Upload
Additional Files</H1>
<HR>
<P STYLE="margin-left: 2in">The file you enter in the following text box
will be uploaded to the /tmp directory if you hit the "upload
file"button.<BR>
</P>
[$ if !defined $fdat{ImageName} $]
<FORM METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="upload.html">
<P STYLE="margin-left: 2in">
<INPUT TYPE="FILE" NAME="ImageName">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Upload file">
</P>
</FORM>
[$else$]
[.-
use DBI;
use CGI;
$req = shift;
my $upload = CGI->new();
$udat{incidentnumber} = 9;
$filenamesent = $fdat{ImageName};
open FILE, "> /tmp/file.$$";
binmode FILE;
print FILE $buffer
while read($fdat{ImageName}, $buffer, 32768);
close FILE;
-]
<P STYLE="margin-left: 2in">
Your file has been saved to [+ $pathfile +]
<br>
Your file has been saved to [+ $fdat{ImageName} +]
<br>
</P>
<FORM METHOD="GET">
<P STYLE="margin-left: 2in"><INPUT TYPE="SUBMIT" NAME="Submit"
VALUE="Upload new file"></P>
</FORM>
[$endif$]
And here is what I get for attempting :)
-rw-r--r-- 1 http http 0 Mar 20 17:59 file.25739
-rw-r--r-- 1 http http 0 Mar 20 18:07 file.4973
-rw-r--r-- 1 http http 0 Mar 20 17:33 file.5393
Any ideas?
Keven Murphy
murphyk@gdls.com
Murphy's Law
((U+C+I)x(10-S))/20xAx1/(1-sin(F/10))
U = Urgency C = Complexity
I = Importance S = Skill
F = Frequency A = Aggravation
This is an e-mail from General Dynamics Land Systems. It is for the intended recipient only and may contain confidential and privileged information. No one else may read, print, store, copy, forward or act in reliance on it or its attachments. If you are not the intended recipient, please return this message to the sender and delete the message and any attachments from your computer. Your cooperation is appreciated.
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org