cgiに詳しい方ご指導願います。

質問

下記の掲示板をダウンロードしたのですが、当方cgiに関しては素人ですが、軽い気持ちでダウンロードしたらファイルが沢山あって、どうしたらいいのか悩んでいるところです。
ちなみにダウンロードのバージョンはc-board354.です。

cgiに詳しい方ご指導して頂けないでしょうか
http://www.skullysoft.com/ssc-board/index.php?FrontPage

※見て頂いた方へ

今夜はPCの方を閉じさせて頂ます、明日は仕事が休みですので朝から回答をして頂けていれば確認させて頂きますので、よろしくお願いします。

補足についても対応してもらえると助かります。

今夜は、失礼致します。

回答No.3

n31792

2です。

〉cgiエディターを開いて１行目を修正する。
〉と書いてましたが、修正とは下記のような/usr/local/bin/perlパスの設定という事でしょうか
確かにそうです。

〉txtファイルの中の１部ですが、見て頂けると助かります。
〉気づいた点がありましたら、意見をお聞かせください。
どのファイルの中身ですか？どこを修正したのかや前後の処理がわからないので意見の言いようがありません。
それに、丸々と書くと著作権の侵害と問われることがあるので注意して下さい。

キリがないので正直言わせてもらいますが、とりあえず親切すぎるヘルプ(http://www.skullysoft.com/ssc-board/index.php?BasicKnowledge)を無駄にせずこれにそって設置して下さい。
それでヘルプを読み直したり検索しても解決できないようなどうしてもわからないことと内部サーバエラー等がでるようでしたらまた聞いて下さい。

一つ作業をして聞いてもらっていたんじゃ私の体が持ちません。。
あなたの専用サポート役ではないんですから…

回答No.2

n31792

見た感じ機能的にも多そうですし、55ファイル程度のCGIなんて結構ありますからそんなに驚かないで下さい(笑)ちなみに某CGIのBlogなんて1000ファイル以上あったりするものですからその程度はチョロいものです(^_^;)

解決としては1さんのURLを見ればいいと思います。ただ、これだけ親切に見えるヘルプを読んでもどこからやればいいのか理解できないそうですので、ここはいったん諦めてこれよりもさらに簡単な他のCGIで一度練習してから再度チャレンジされた方がよいかと思います。見た感じまだ設置経験がない あるいは 少ない方にとってこのCGIはキツいと思います。

ただ、55ファイルといっても全部編集が必要なわけではありません。(今まで投稿した内容を記録するログファイルなどです)ヘルプを軽く見ただけでは1ファイルの編集だけでいいようですし、もう一度“じっくりと”読むのも一つです。コツとしては読むのと作業するのを同時進行すること。たとえばperlのパス設定があったらその部分だけを理解し、すぐにファイルのperlのパスを編集する事です。いくつかまとめて読み、覚えてから作業すると混乱してしまいます。一歩ずつ、一歩ずつ。

またなにかありましたらお知らせ下さい。それでは。

補足

回答ありがとうございます。

cgiエディターを開いて１行目を修正する。
と書いてましたが、修正とは下記のような/usr/local/bin/perlパスの設定という事でしょうか

txtファイルの中の１部ですが、見て頂けると助かります。
気づいた点がありましたら、意見をお聞かせください。

#!/usr/local/bin/perl
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃■(ＳＳ)Ｃ－ＢＯＡＲＤライブラリ
#┠──────────────────────────────────────
#┃表示関係の関数が含まれています。
#┃
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

package BASE;

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ 共通部分
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub init {
my $mode = shift;
my %title = qw(
psn 投稿 srn 検索 src 検索 csn 設定 hmn 匿メール lgn ログイン stn
セットアップ syn セットアップ（スタイル） mmn 記事管理 mdn 編集 plt
パレット mnb 掲示板管理 mkb 掲示板作成 dlb 掲示板削除 rnr 閲覧ランキング
rnf 発言ランキング rnk キーワードランキング csv アクセスログ mbn
メンバー登録 rst インデックス修復 qvh ＡＱＵＡ色選択 hlp ヘルプ
);
exists $title{$mode} && (my $title = ' - ' . $title{$mode});
$mode = grep($mode eq $_,
qw(
lgn stn syn mmn mdn plt mnb mbn mkb dlb rnr rnf rnk csv log
rst qvh mbr csp mlg hlp
))
? 'mst' : 'bse';
exists $::FLAG{'cache'} ? select((select(STDOUT), &http_head)[0])
: &http_head;
&DESIGN::init($mode, \$title); $::FLAG{'http_header'} = 1;
}
#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ＨＴＴＰヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub http_head {
my $r_option = shift; my $mode = shift;
map((print $_, "\n"), @{$r_option});
($::FLAG{'debug'} == 2) && print "Cache-Control: no-cache\n";
print "Content-Type: text/html; charset=Shift_JIS\n";
if ($CNF::place{'gzip'}{'path'} && -x $CNF::place{'gzip'}{'path'}
&& $ENV{'HTTP_ACCEPT_ENCODING'} =~ /((?:x-)?gzip)/
&& !exists $::FLAG{'cache'}) {
$::FLAG{'gzip'} = 1; $| = 1; print "Content-encoding: $1\n\n";
open(GZP, "| $CNF::place{'gzip'}{'path'} -1c"); select(GZP);
}
else { print "\n";}
}

#┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#┃ ヘッダー
#┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub head {
my $mode = shift; my $r_page = shift;
&init($mode); my @menu;
my %name = ( 'psn' => $CNF::menu{'title'}{'psn'},
'tre' => $CNF::menu{'title'}{'tre'},
'all' => $CNF::menu{'title'}{'all'},
'tpc' => $CNF::menu{'title'}{'tpc'},
'srn' => $CNF::menu{'title'}{'srn'},
'csn' => $CNF::menu{'title'}{'csn'},
'log' => $CNF::menu{'title'}{'log'},
'thr' => $CNF::menu{'title'}{'thr'},
'nmb' => $CNF::menu{'title'}{'nmb'},
);
my @menu_index = qw(psn tre thr all tpc nmb srn csn);
-e "$CNF::place{'log'}{'path'}/info.dat" && push(@menu_index, 'log');
foreach (@menu_index) {
($_ ne 'log' && !$CNF::menu{'base'}{$_}{'mode'}) && next;
if ($_ eq $::FORM{'cmd'}) {
push(@menu,
qq|<span class=MenuSelect>$name{$_}</span>|);
}
else {
push(@menu,
qq|<a class=Menu href="$CNF::place{'this'}{'path'}?cmd=$_;id=$::FORM{'id'}">$name{$_}</a>|);
}
}
foreach (sort(keys %{$CNF::menu{'other'}})) {
local *menu = $CNF::menu{'other'}{$_}; length($menu{'name'}) or last;
push(@menu,
qq|<a class=Menu href="$menu{'url'}" target="$menu{'target'}">$menu{'name'}</a>|);
}
$::FLAG{'menu'}
= qq|&nbsp;&nbsp;|
. join(qq|<span class=MenuSplit>&nbsp;┃</span>|, @menu)
. qq|&nbsp;&nbsp;|;
&DESIGN::head(\$::FLAG{'menu'}, $r_page);
}

回答No.1

galluda

がると申します。
えと…
http://www.skullysoft.com/ssc-board/index.php?BasicKnowledge
に、やたらというほどに丁寧な解説があると思うのですが。上述は読まれて、実際に手を動かされてみましたでしょうか？
やった上で問題が発生するようであれば、どの部分でどのような問題が発生したかを出来るだけ詳細に書いていただければと思います。

補足

回答ありがとうございます。

基礎知識については目を通しましたが、ダウンロード後、予想外にファイルが多い（55ファイル）もあるため何処から手を付けていいのか分らず困っている次第です。