httpmailでZIPを使わず、LHAにする方法をおしえて。

RYU 1998/08/28(金) 03:20:49
httpmailでZIPを使わず、LHAにしたいんですが、いまいちUNIXのLHAの引数がわかりません。教えてください。UNIXのZIPはLhasaでは解凍できませんよね？だから、LHAに変えたいんです。

B-Cus 1998/08/28(金) 03:33:29
httpmailってどんなものか知らないですけど、
　% lha a archive.lha file1 file2 file3 ...
でどうでしょうか。

satoshi 1998/08/28(金) 06:42:34
ここは一般的・公的な掲示板なので、唐突に「httpmail」と言っても
ほとんどすべての人には意味不明でしょう。私の作っているCGIの質
疑の場としてここを勝手に借用させてもらっているのですが、

「ここにこういうCGIがあるのですが、それでこういうことをするに
はどうしたらいいのか」という聞き方をなさればよろしかろうと。

httpmail.plの

sub sending {
local $0 = 'httpmail.cgi (sending)';
my $msize = $_[0];
# ページ（一枚又はアーカイブ）を一時的に入れておく
my $mass = '';

if ($gotten > 1) {
$filename = 'httpmail.zip';
unless (open(BODY,"cd $body_dir_base; $zip -rq - . |")) {
# Xを付けないとUNZIP32.DLL ver 0,7,6,0は落ちるかな？？？
# $filename = 'httpmail.tgz';
# unless (open(BODY,"cd $body_dir_base; $tar -zcf - . |")) {
# $filename = 'httpmail.lzh';
# unless (open(BODY,"cd $body_dir_base; lha a - . |")) {

となっている箇所に対して、行頭の「#」を加除して

if ($gotten > 1) {
# $filename = 'httpmail.zip';
# unless (open(BODY,"cd $body_dir_base; $zip -rq - . |")) {
# Xを付けないとUNZIP32.DLL ver 0,7,6,0は落ちるかな？？？
# $filename = 'httpmail.tgz';
# unless (open(BODY,"cd $body_dir_base; $tar -zcf - . |")) {
$filename = 'httpmail.lzh';
unless (open(BODY,"cd $body_dir_base; lha a - . |")) {

へと変更すればlhaを使うようになります。#を、取るだけでなく付け
るのも忘れないように。

でもファイル名にゴミが付くのでいい感じではありません。実害はな
いかもしれませんが。

UNIXのzipをlhasaで解凍できないというのは知りませんでした。少し
実験してみよう。

satoshi 1998/08/28(金) 06:43:25
あれまタブが見えなくなってしまったので
ソースの方を見てください。

RYU 1998/08/29(土) 04:45:00
[[解決]]
いろいろすいませんでした。
上記の部分だけではログの圧縮がLHAでできませんでしたが、
httpmailの最新版の標準アーカイバをLHAにしてくださったことで
完全に解決しました。
ありがとうございます。

[上に] [前に] [次に]