NXre先生のご指摘検証結果報告
>34 @n = split(/\//,$ENV{'SCRIPT_NAME'});
>35 #$script = $n[$#n];
>36 $script ="http://127.0.0.1/~user/cgi-bin/colorfulboard/cb3.cgi";
挿入36行目↑書き換えて設置するとエラーになります。
現在モトに戻してアップしています。
>-------------------------------補助的な$gupdirは使いません
>7 $updir ="./upload";
>8 $icon = "./icon";
>9 $dir = "./data";
>-------------------------------
>これで新規投稿にも苦労することなく、?mode=newが機能すれば
、
>この変更が、解決策のような気がします。おそらく、setup.cgiの発想に
>内在する一つの矛盾と思います。簡単設置のために、高機能（諸設定
>ができる）作品になればなるほど、細部での対応がサーバーによっ
>ては、できないということです。
#! /usr/local/bin/perl
require "./lib/jcode.pl";
require "./lib/setting.cgi";
require "./lib/csm_mail.pl";
$ver = "v.3.14";
$updir = "./upload";
$icon = "./icon";
$dir = "./data";
$data = "data.cgi";
$copy = "--- <a href='http://cgiscriptmarket.com/' style='font-size:9pt;' target=_blank>Colorful Board v.3.14</a> ---";
@icon = ('apple','ie4','ie6','mozilla','msn','n4','n6','n7','opera','penguin','winflag','home','home_off','mail','mail_off','file','file_off','etc','palette');
@wday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
%alt = (
'apple' => 'Macintosh',
'penguin' => 'Linux',
'winflag' => 'Windows',
'ie4' => 'Internet Explorer 4',
'ie6' => 'Internet Explorer 5 or higher',
'mozilla' => 'Mozilla',
'msn' => 'MSN Explorer',
'n4' => 'Netscape 4',
'n6' => 'Netscape 6',
'n7' => 'Netscape 7 or higher',
'opera' => 'Opera',
'etc' => 'その他'
);
@n = split(/\//,$ENV{'SCRIPT_NAME'});
#$script = $n[$#n];
$script ="http://netharukaze.hp.infoseek.co.jp/cgi-bin/cb3.cgi";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
binmode (STDIN);
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/Content-Disposition/i,$buffer);
以下略します。
◎追伸
ビックローブでは難なく設定できました
やはり結論は広告の影響をうけているようです。
perlがわかったら対処法もわかるのに、勉強の不足です。