[Mew-dist 08770] Re: imputのエラーについて

[SAKAI Kiyotaka]

>> In article <199904061515.AAA07746 at example.com>, "副島　隆史" <madjack at example.com> writes:

> も成功し、後は送受信のテスト・・・という段階で躓いています。
> 受信は出来るのですが、自分宛のテストメールを送信しようとした
> 時に、以下のようなメッセージが出てきます。

> imput: can't open mail-aliases file : /home/takashi/.im/aliases, ignored.
> imput: can't open host-aliases file: /home/takashi/hostaliases, ignored.
> imput: message accepted.
> imput: NNTP disabled /home/takashi/.im/queue/1
> imput: ERROR: too many failures creating QUEUE
> imput: ERROR: Queuing failed.
> imput: address unknown for mailhost.din.or.jp
> imput: WARNING: smtp connection was not established.
> imput: Draft file 7 preserved.

> 以前投稿された方が上記のようなメッセージが出て困っていたこと
> を過去のアーカイブを検索して知ったのですが、その時の解決策で
> はどうにも対処できていないようです。
> .im/Configに

> QueueDir=queue

> を書き足すというのがおおよその

ここで失敗するということは、

  sub excl_create (*$) {
    (local *MESSAGE, my $file) = @_;
    msg_mode(1);
    return -1 unless (sysopen(MESSAGE, $file, file_attr()));
    return 0;
  }

で -1 が返っているということなんですよね…。

試しにこの部分だけを取り出したプログラムを作りましたので、これで試して
もらえますか？

これで fail が返ってくるようだと sysopen で失敗しているのがはっきりし
ますので。

------------------------------ ここから ------------------------------
#!/usr/local/bin/perl
use Fcntl;

my $queue = "/home/takashi/.im/queue/1";
my $attr = Fcntl::O_RDWR()|Fcntl::O_CREAT()|Fcntl::O_EXCL();

if (sysopen(MESSAGE, $queue, $attr)) {
    print "success!\n";
    unlink $queue;
} else {
    print "fail\n";
}
------------------------------ ここまで ------------------------------

-- 
酒井 清隆 (E-mail: ksakai at example.com)