サポート掲示板（リサイズイメージ）
最近の書き込み件数： 今日 0件、昨日 0件
未読分：7件
戻る 新規書き込み
リサイズイメージへ
最新２０件
最新５０件
最新１００件
最新２００件
２００件以前
昨日以降(0)
２日前以降(0)
３日前以降(0)
４日前以降(0)
５日前以降(0)
統計
アーカイブ
リンク
タイトル
画像
サーチ
携帯モード
セットアップ
Message#7 2009年8月28日(金)12時53分
From: 管理人さん | 返事
削除
変更
|
| Re5:モジュール Archive::Zipが無い場合の対応 |
| きむさんのメッセージ(#6)への返事
> 調べてみたところzipではなくgzipが使えると記載されています。
> その場合は、/usr/bin/gzipでよいのでしょうか？
gzipでは、複数のファイルをまとめて一つに圧縮することができないので、tarが使えます。
ただし、ダウンロード後、tarとgzipに対応した解凍ソフトを使わないと解凍できません。
ウィンドウズのデフォルトには、無かったと思います。
systemの部分を以下のようにしてください。
system "/bin/tar czf $zipfile $member";
更に、46行目の
my $zipfile = "$prefix$$.zip";
を
my $zipfile = "$prefix$$.tar.gz";
270行目の
my @ziplist = grep /^$prefix.*\.zip$/, readdir ZIPDIR;
を
my @ziplist = grep /^$prefix.*\.tar\.gz$/, readdir ZIPDIR;
としてください。
ちなみに、Archive::Zipを使っているのは、こういったUNIXの外部コマンドを使わずに済むからです。
|
Message#6 2009年8月27日(木)16時48分
From: きむさん | 返事
削除
変更
|
| Re4:モジュール Archive::Zipが無い場合の対応 |
Message#5 2009年8月27日(木)13時54分
From: 管理人さん | 返事
削除
変更
|
| Re3:モジュール Archive::Zipが無い場合の対応 |
| きむさんのメッセージ(#4)への返事
> CGIの修正はできましたが、↓のこれがちょっとわかりません。
>
> プログラムの一番上に書いてある/usr/bin/perlを/usr/bin/zipに書き換えればいいのですか？
> または追加するのですか？
system "zip $zipfile $member";
の代わりに
system "/usr/bin/zip $zipfile $member";
かも知れないし、
system "/usr/local/bin/zip $zipfile $member";
かも知れないし、まったく違うパスかも知れないということです。
サーバー管理者にzipが使えるかどうか確認してください。
使えるならば、そこにパスが通っているか、通っていなければzipのパスは何かを確認して、その通りに変更してください。
|
Message#4 2009年8月27日(木)12時58分
From: きむさん | 返事
削除
変更
|
| Re2:モジュール Archive::Zipが無い場合の対応 |
| CGIの修正はできましたが、↓のこれがちょっとわかりません。
プログラムの一番上に書いてある/usr/bin/perlを/usr/bin/zipに書き換えればいいのですか？
または追加するのですか？
> zipコマンドのパスは、/usr/bin/zipのように、サーバーのパスに従って適切に設定しなければいけません。zipとするだけでも使えるかもしれません。サーバー側の設定次第です。
教えてください。
|
Message#3 2009年8月27日(木)12時12分
From: 管理人さん | 返事
削除
変更
|
| Re:モジュール Archive::Zipが無い場合の対応 |
| きむさんのメッセージ(#2)への返事
> モジュール Archive::Zipが無い場合は対策はあるのですか？
> ファーストサーバーにインストールを検討していますが、モジュール Archive::Zipが無いようです。
Unixコマンドのzipが使えれば、以下のように変更することで同じように使えます。
use Archive::Zip;をコメントアウト。
246行目の
my $zip = Archive::Zip->new();
をコメントアウト。
253行目からの
foreach (@images){
$member = $zip->addFile("$_");
}
をコメントアウトして、以下の行ををの下に追加。
$member = join " ", @images;
257行目からの
my $status = $zip->writeToFileNamed("$zipfile");
if ($status != 'AZ_OK') {
unlink("$zipfile") if (-e "$zipfile");
&error(("$zipfileが作成されません","Cannot make $zipfile")[$lang])
}
をコメントアウトして、以下の行をその下に追加。
system "zip $zipfile $member";
zipコマンドのパスは、/usr/bin/zipのように、サーバーのパスに従って適切に設定しなければいけません。zipとするだけでも使えるかもしれません。サーバー側の設定次第です。
|
Message#2 2009年8月26日(水)15時48分
From: きむさん | 返事
削除
変更
|
| モジュール Archive::Zipが無い場合の対応 |
| モジュール Archive::Zipが無い場合は対策はあるのですか？
ファーストサーバーにインストールを検討していますが、モジュール Archive::Zipが無いようです。
ご存知の方お願いします。
|
Message#1 2005年10月23日(日)10時12分
From: 管理人さん | 返事
削除
変更
|
最新２０件
最新５０件
最新１００件
最新２００件
２００件以前
昨日以降
２日前以降
３日前以降
４日前以降
５日前以降
新規書き込み
nerimb5.cgi Ver. 5.053
|