【 cop (03.22/01) 】
どうも senshu さん。
ご指摘のトラブルが IIS 4.0 で発生することを確認しました。しかし、IIS 5.0 では大丈夫なんですよね。不可解です。
というわけで、問題を修正したものを次のバージョンで出しますのでしばらくお待ちください。
#senshu さんの書き込みのおかげで他のバグを発見できました。(汗)
--
なお、froz1.cgi の修正部分は以下の通りです。
elsif ($id eq 'fwd'){ # 個別転送コピー
✓
open(F1,">$mailroot\\domains\\$domain\\$name\\mailbox\\$ARGV[3]");
flock(F1,2);
open(F2,"$target");
while (<F2>){
chomp;
print F1 "$_\n";
}
close(F2);
close(F1);
if (! -e "$mailroot\\domains\\$domain\\$name\\mailbox\\$ARGV[3]"){&error("$report");}
system("del /Q $target\*.*");
print "Location: $cgi1?\n\n";
exit;
}
elsif ($id eq 'fwdall'){ # 全転送コピー
✓
open(FILE,"$tempfile");
@reg = <FILE>;
close(FILE);
foreach (@reg){
chomp;
if ($_ =~ /^[ \t]+$/){next;}
$_ =~ s/[<>\"]//g;
($file,$dir1,$dir2,$from,$to,$time,$size)=split(/\t+/,"$_");
open(F1,">$mailroot\\domains\\$domain\\$name\\mailbox\\$file");
flock(F1,2);
open(F2,"$mailroot\\spool\\$dir1\\$dir2\\froz\\$file");
while (<F2>){
chomp;
print F1 "$_\n";
}
close(F2);
close(F1);
if (! -e "$mailroot\\domains\\$domain\\$name\\mailbox\\$file"){&error("$report");}
system("del /Q $mailroot\\spool\\$dir1\\$dir2\\froz\\$file\*.*");
}
print "Location: $cgi1?\n\n";
exit;
}
else {} |