VPF::Ограничения файла для загрузки

PerlWebMaster

Дата 1.10.2011, 02:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 31.8.2011

Репутация: нет
Всего: нет

Вот код ну почему-то все ровно возможно загружать файлы любых размеров
тестирую в денвере

Код


#!/usr/bin/perl -w
# upload2.cgi

use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

$CGI::POST_MAX = 1024 * 250;   # Limit to 250kb posts...

my $File_Name = param('filename');
my $Mime      = uploadInfo($File_Name)->{'Content-Type'};

print header(-type=>$Mime);

Print_Results();


sub Print_Results{
    my $data;

    if($Mime !~ /text/){
        binmode($File_Name);
        while(read($File_Name, $data, 1024)) { print $data; }
    } 
    else {
        print start_html('File Upload Example 2');
        print qq(<PRE>);
        print qq(<B>File Name:</B> $File_Name\n);
        print qq(<B>File Contents:</B>\n\n);

        while(<$File_Name>) { print; }

        print qq(</PRE>);
        print end_html;
    }
}

Ramirez

Дата 22.10.2011, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 305
Регистрация: 18.1.2005
Где: Moscow, ExUSSR

Репутация: 1
Всего: 5

ваш код работает вполне корректно на Apache/2.2.4 (Win32) mod_ssl/2.2.4 OpenSSL/0.9.8k PHP/5.2.12

Код


#!perl
# upload2.cgi
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
$CGI::POST_MAX = 1024 * 250;   # Limit to 250kb posts...
my $filename = param('filename');
my $mime = 'text/html';
$mime = uploadInfo($filename)->{'Content-Type'} if $filename;
$mime = 'text/html' if $mime =~ /text/;
print header(-type=>$mime);

my $data;
if ($mime !~ /text/) {
    binmode($filename);
    while(read($filename, $data, 1024)) { print $data; }
} else {
    print start_html('File Upload Example 2');
    print qq(<div><B>File Name:</B>$filename</div><div><B>File Contents:</B></div>);
    while(<$filename>) { print; }
    print qq(<form action="" method="post" enctype="multipart/form-data"><input type=file name=filename><input type="submit"></form>);
    print end_html;
}

Zdar

Дата 7.11.2011, 00:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.11.2011
Где: Москва

Репутация: нет
Всего: нет

в конфиге апача стоит ограничение на размер файла, передаваемого через POST?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »