hello;
i am working in netscapeserver with web.sql,i found the web.sql doesn't
suport
<input type = file ...>;
i write a upload.pl worked well in my NT4 with IIS3,but put it under
web.sql,
i get the path of the file instead of the content.
--------------upload.htm-----------------------------
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<form name="form1" enctype="multipart/form-data" action="upload.pl">
<p>
<input type="file" name="file">
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
</body>
</html>
------------------upload.pl----------------------------------------------
#!c:\perl.exe
use CGI qw\:standard\;
use FileHandle;
use strict;
my $form = new CGI;
print $form -> header;
print $form -> start_html("this is uploadtest");
my $file = $form -> param('file');
my $dir = "d:\\work\\upload\\file.txt";
my $fd = new FileHandle;
my $buffer;
my $bufferbytes = 0;
if(defined $fd)
{
$fd -> open(">$dir");
while($bufferbytes = read($file,$buffer,1024))
{
print $fd $buffer;
}
undef $fd;
}
print "<p>this is a test</p>";
$form -> end_html;
------------------------------------------------------------------------------
---
i have read the FAQ of web.sql which tell me the current version of web.sql
doesn't suport <form enctype="multipart/form-data">.
can i do something to make web.sql support upload function?
can i write perl script to do this?
what should i start with?
thank my friends!!!
--http://www.eyou.com
--�ȶ��ɿ�����ѵ������� �����ʼ� �ƶ���ǩ ��������...����δ��
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/activeperl
