#!/usr/bin/perl -w # Copyright (c) 2000-2001 Kirrily Robert <skud@cpan.org> # Copyright (c) 2000-2002 Mitel Networks Corporation # This software is distributed under the same licenses as Perl itself; # see the file COPYING for details. use strict; use lib "../lib/"; use CGI::FormMagick; use Carp; # # Example of a file upload form. Note that you *must* include the # <ENCTYPE>multipart/form-data</ENCTYPE> field in order to use # fields of type FILE. # # # suck in the XML from down below __DATA__ # undef $/; my $data = <DATA>; my $fm = new CGI::FormMagick( TYPE => "STRING", SOURCE => "$data", ); $fm->display(); exit 0; sub dump_file { print "This is the dump_file routine.\n\n"; my $file = CGI::param('filename'); my $buf; read($file, $buf, 1024); print "The first 1024 bytes are:\n<pre>",$buf,"\n</pre>\n"; } __END__ <FORM HEADER="" FOOTER=""> <TITLE>File upload test</TITLE> <PAGE NAME="Upload" POST-EVENT="dump_file"> <TITLE>Upload a file to the server</TITLE> <FIELD ID="filename" TYPE="FILE" VALIDATION="nonblank"> <LABEL>Choose a file to send</LABEL> </FIELD> </PAGE> </FORM>