NAME

HTTP::File - Routines to deal with HTML input type file.

SYNOPSIS

CGI.pm example

savepage.html looks like this:

<H1>Upload a webpage</H1>

<FORM METHOD=POST ENCTYPE="multipart/form-data" action="/cgi-bin/webplugin/savepage.cgi">

<INPUT TYPE=file name=FILE_UPLOAD size=35>

<INPUT TYPE=submit NAME=Action VALUE="Upload Ahoy!">

</FORM>

savepage.cgi looks like this:

#!/usr/bin/perl

use CGI; use HTTP::File;

$cgi = new CGI;

$upload_path='/tmp';

$raw_file = $cgi->param('FILE_UPLOAD'); $basename = HTTP::File::upload($raw_file,$upload_path);

print $cgi->header; print $cgi->start_html;

print "$basename upload successfully.<BR>Upload path: "; print $upload_path ? $upload_path : '/tmp';

print $cgi->end_html;

HTML::Mason example

<FORM METHOD=POST ENCTYPE="multipart/form-data" action="receive-upload.html"> <INPUT TYPE=file name=PHOTO_FILE size=35> </FORM>

... then in receive-upload.html

<%init> use HTTP::File; </%init>

<%perl> $output_path="/var/spool"; $raw_file=$ARGS{PHOTO_FILE}; HTTP::File::upload($raw_file, $output_path); </%perl>

DESCRIPTION

HTTP::File is a module to facilitate file uploads from HTML file input.It detects the basename of the raw file across MacOS, Windows, and Unix/Linux platforms.

sub platform

Uses a subset of the functionality of HTTP::Headers::UserAgent to determine the type of machine that uploaded the file.

sub upload

Upload RAW_FILE to the local disk to a specified PATH, or to /tmp if PATH is not specified.

    Returns the basename of the uploaded file;

As of version 3.1, there are two new args to upload():

• $debug

  A third argument, $debug, if non-zero will send debugging information to STDERR.

• $kludge

  A fourth argument, $kludge, if non-zero, will also write the read data to a file in the temp directory.

AUTHOR

Terrence Brannon tbone@cpan.org

cpanm HTTP::File

perl -MCPAN -e shell
install HTTP::File