[! use Data::Dumper ; !]

# Embperl Tests - File-Upload

[+ do { $cgiok = $CGI::VERSION > 2.45; $cgi4 = $CGI::VERSION >= 4; @info = sort keys %{$fdat{-upload}} ; ($cgiok||$cgi4)?"@info":'Content-Disposition Content-Type' } +] Filename: [+ $cgiok?$fdat{upload}:'upload-filename' +]
Content-Type: [+ $cgiok?$fdat{-upload} -> {'Content-Type'}:'test/plain' +]
CGI-Version: [+ $CGI::VERSION +] cgiok [+ $cgiok +] filehandle: [+ ref $fdat{upload} +] Info: [+ join ("\n", map { "$_ = $fdat{-upload}{$_}" } sort keys %{$fdat{-upload}}) +] [- $no = 1 ; while ($size = read($fdat{upload}, $buffer, 2048)) { $buf .= $buffer ; print OUT 'no: ', $no++, "\n" ; print OUT 'size: ', $size, "\n" ; } -] buflen: [+ length($buf) +] Your file has the content ---------- [+ $buf +] ----------

content: [+ $fdat{content} +]
multval: [+ join (';', split ("\t", $fdat{multval})) +]
single: [+ $fdat{single} +]
[# eval 'use IO::Handle' ; $h = undef ; eval '$h = IO::Handle -> new_from_fd (fileno ($fdat{upload}), "r")' ; -] [+ if ($h) { @s = $h -> stat ; $s[7]} else { '8219' } +] #]

HTML::Embperl (c) 1997-1998 G.Richter