<html>
<head>
<title>Embperl Examples - File-Upload</title>
</head>
<body background="../images/jazzbkgd.gif">
<h1>Embperl Examples - File-Upload</h1>
<hr><h3>The file you enter in the following text box will be uploaded to the /tmp directory if you hit the "upload file" button</h3>
[$ if !defined $fdat{ImageName} $]
<FORM METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="ImageName">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Upload file">
</FORM>
[$else$]
[-
open FILE, "> /tmp/file.$$";
print FILE $buffer while read($fdat{ImageName}, $buffer, 32768);
close FILE;
-]
Your file has been saved to [+ "/tmp/file.$$" +]<br>
<FORM METHOD="GET">
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="Upload new file">
</FORM>
[$endif$]
<p><hr>
<small>HTML::Embperl (c) 1997-1998 G.Richter</small>
</body>
</html>