Help for this page

Select Code to Download


  1. or download this
    for ($loop=1; $loop <= $form{'files'}; $loop++){
        if ($form{"img$loop"}){
...
while ($bytesread=read($file,$buffer,1024)) {
print STDERR "while: read $bytesread\n" 
  if $debug > 20;
  2. or download this
    my $this_loop = "img${loop}";
$hash{$this_loop} = ...
  3. or download this
    my $img_file = "$form{filename}/$form1{$this_loop}";
open(FILE, ">$img_file") or die "can't open $img_file: $!";