| 記事No | ： 12797 |
| 投稿日 | ： 2014/03/27(Thu) 21:12:47 |
| タイトル | ： 容量オーバー |
| ID情報 | ： soleil |
| 投稿者 | ： soleil |
| URL | ： http://www5f.biglobe.ne.jp/~xo_ox/cafe/admin/index.cgi |
お世話になります
cafenoteを設置したのですが、画像ＵＰが容量オーバーでエラーになります
ためしに
> $cf{maxdata} = 102400;の値を
= 10000000000000000;へ変更してみましたが、だめでした
お手数ですが、どうすればいいのか教えて下さい
| 記事No | ： 12805 |
| 投稿日 | ： 2014/03/30(Sun) 10:19:41 |
| タイトル | ： Re: 容量オーバー |
| ID情報 | ： kent |
| 投稿者 | ： KENT |
> お世話になります
> cafenoteを設置したのですが、画像ＵＰが容量オーバーでエラーになります
> ためしに
> > $cf{maxdata} = 102400;の値を
> = 10000000000000000;へ変更してみましたが、だめでした
>
> お手数ですが、どうすればいいのか教えて下さい
perlのバージョンによって、cgi-simpleのアップロードがうまくいかない環境があるようです。
以下は応急処理です。
■admin/index.cgi
# モジュール宣言
use strict;
use CGI::Carp qw(fatalsToBrowser);
use lib "./lib";
use CGI::Simple;
use vars qw($cgi %in %cf);
# 設定ファイル認識
require './init.cgi';
%cf = init();
# データ受理
$CGI::Simple::DISABLE_UPLOADS = 0;
$CGI::Simple::POST_MAX = $cf{maxdata};
$cgi = new CGI::Simple;
error('容量オーバー') if ($cgi->cgi_error);
%in = parse_form($cgi);
↓
# モジュール宣言
use strict;
use CGI::Carp qw(fatalsToBrowser);
use lib "./lib";
use CGI;
use vars qw($cgi %in %cf);
# 設定ファイル認識
require './init.cgi';
%cf = init();
# データ受理
$cgi = new CGI;
%in = parse_form($cgi);
■lib/img_mgr.pl
# アップロード
my $buf;
my $fh = $cgi->upload($upfile);
if ($fh eq '') { error($cgi->cgi_error); }
open(UP,"+> $upname") or error("up err: $upname");
binmode(UP);
print UP $buf while read( $fh, $buf, 4096 );
close(UP);
↓
# アップロード
my $buf;
my $fh = $cgi->upload('upfile');
#if ($fh eq '') { error($cgi->cgi_error); }
open(UP,"+> $upname") or error("up err: $upname");
binmode(UP);
print UP $buf while read( $fh, $buf, 4096 );
close(UP);
| 記事No | ： 12810 |
| 投稿日 | ： 2014/03/30(Sun) 19:29:52 |
| タイトル | ： Re^2: 容量オーバー |
| ID情報 | ： soleil |
| 投稿者 | ： soleil |
教えて頂いたとおりに変更し、画像ＵＰする事ができるようになりました
お忙しい中、ありがとうございました <m(_ _)m>