As for how it fails it basically just uploads an empty file. Everything
else seems to work fine.
-fREW
#!/usr/local/bin/perl5.004
use CGI qw(:standard);
binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
# print standard html header
print "HTTP/1.0 200 OK\n";
print "Content-Type: text/html; charset=UTF-8\n\n";
# get form input
$Input = CGI->new();
$Option = $Input->param("Option");
if ($Option eq "UploadNewList") {
my $uploadHandle = $Input->upload("File");
open ( UPLOADFILE, ">".$Input->param("File")) or die $!;
binmode UPLOADFILE;
my $buffer;
while(read($uploadHandle, $buffer, 1024)) {
print UPLOADFILE $buffer;
}
close ( UPLOADFILE );
} else {
print q(<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "
http://www.w3.org/TR/html4/strict.dtd";>
<html><head><title>Uploader</title></head><body>
<form method="post" name="input" action="sores.plx">
<input name="Option" value="UploadNewList" type="hidden" />
File Name: <input name="File" size="30" type="file" />
<input type="submit" value="Submit" />
</form>
</body></html>
);
}
exit;
On Tue, Sep 30, 2008 at 2:53 PM, fREW Schmidt <[EMAIL PROTECTED]> wrote:
> Sorry about that. I am attaching a barebones version. I would much
> appreciate any help.
>
> -fREW
>
>
>
> On Tue, Sep 30, 2008 at 2:34 PM, Bill Luebkert <[EMAIL PROTECTED]>wrote:
>
>> fREW Schmidt wrote:
>>
>>> Hello all,
>>>
>>> I am having the weirdest problem and no one seems to have any idea what
>>> it is; so maybe you (the internet :-) will. Here is the problem:
>>>
>>> I am trying to upload a CSV and process it. I have some dummy code to
>>> just print the contents of the file to the log and nothing is working. Here
>>> is the code:
>>>
>>> my $uploadHandle = $Input->upload("File");
>>>
>>> while(<$uploadHandle>) {
>>> warn $_;
>>> }
>>>
>>> On the same server I have very similar code and that *does* work.
>>> Furthermore the server does know the filename and firebug clearly shows the
>>> contents of the file getting sent to the server. Does anyone have any ideas
>>> of what could cause this?
>>>
>>
>> Guess what - those 3 lines of code won't upload anything. How about
>> stripping
>> your script down to the basics and change the URL/passwords to something
>> generic
>> and re-post so we have something to work with. We need complete scripts
>> with
>> warnings and strict turned on preferably. Run the script locally before
>> posting
>> and then cut-n-paste it into your email. Keep it small and complete and
>> indicate
>> how it fails exactly.
>>
>
>
_______________________________________________
Perl-Win32-Web mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
