Help for this page

Select Code to Download

Select or download this

  $udt = $que->upload($dat);
  open PAGE, ">$pgp$pgn";
#  while (<$udt>) { print PAGE $_; }
  while (read($udt, $buf, 16384)) { print PAGE $buf; }
  close PAGE;

Select or download this

#!/usr/bin/perl
use CGI qw(:standard);
my $dat = param("upfilenm"); my $pgn = param("pagename");
open PAGE, ">/usr/local/pagez/$pgn";
while (<$dat>) { print PAGE $_; }
close PAGE;