view release on metacpan or  search on metacpan

WebIn.pm  view on Meta::CPAN

      $hash{filename}=$filename;
      # Ôàéë ñëèøêîì áîëüøîé, ëèáî upload çàïðåùåí?..
      if($stopWrite) {
        unlink($temp);
        $hash{aborted}=$stopWrite;
      } else {
        # Èíà÷å âñå â ïîðÿäêå
        $hash{headers}=\%Headers;
        $hash{file}=$temp;
        $hash{size}=-s $temp;
        $hash{type}=$Headers{'content-type'} if $Headers{'content-type'};
      }
      # Äîáàâëÿåì ïàðàìåòð.
      _processPar($name,\%hash,"post");
    }
  }
END_OF_FUNC


'_parseCookies' => <<'END_OF_FUNC',
  # Ðàçáèðàåò ïðèøåäøèå cookies