質問者 まだまだ初心者
投稿日 2005/4/17(日) 14:27:35
CGIを使用して、リンクを管理しています。
リンクデータを登録するページは出来ました。
無事リンクも登録されます。
そして、リンクデータを修正するページを作成し、CGIも作成しました。
チェッカーでも「Syntax OK」となるのに実際にアップするとエラーになります。
「Internal Error」のエラーが出ます。
以下、スクリプトを記しておきますので、どなたかどうすれば動くようになるかご教授下さい。
宜しくお願い致します。
〜リンクデータを読み出す〜
&kheader;
print << "EOH";
<form action="link_kanri.cgi" method="post" name="" target="_self">
<input type="hidden" name="link" value="modify1" border="0">
<table width="240" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" align="center" valign="middle"><font class="b2" color="white">D-POCKET長野店管理画面</font></td>
</tr>
<tr>
<td colspan="2" align="center" valign="middle"><font class="b2" color="white">リンク管理画面</font></td>
</tr>
<tr>
<td colspan="2" align="center" valign="middle">
<br><font class="b1" color="orange">訂正するリンク先の名称をご記入下さい。</font><br><br>
</td>
</tr>
<tr>
<td nowrap><font class="b2" color="white">リンク先名称</font></td>
<td><input type="text" name="lmoname" size="24" border="0"></td>
</tr>
<tr>
<td></td>
<td><br></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="" value="次の画面へ" border="0"></td>
</tr>
</table>
</form>
EOH
&kfooter;
〜上のページからのデータを受け取り条件に合うデータだけを表示〜
open(IN,"link.dat") || die &error(3,"ファイルを開けません。");
while(<IN>) {
chop $_;
($lname,$lurl,$lgroup,$time) = split(/\,/,$_);
if($form{'lmoname'} =〜 /^$lname/) {
push @lmodata, $_;
$lmoflag = 1;
}
}
close IN;
if(!$lmoflag) { &error(6,"該当データがありません。"); last;
}else {
&kheader;
print << "EOH";
<form action="link_kanri.cgi" method="post" name="" target="_self">
<input type="hidden" name="link" value="modify2" border="0">
<input type="hidden" name="time" value="$time" border="0">
<table width="240" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" align="center" valign="middle"><font class="b2" color="white">D-POCKET長野店管理画面</font></td>
</tr>
<tr>
<td colspan="2" align="center" valign="middle"><font class="b2" color="white">リンク管理画面</font></td>
</tr>
EOH
foreach(@lmodata) {
($lmoname,$lmourl,$lmogroup,$time) = split(/\,/,$_);
print << "EOH";
<tr>
<td><br></td>
<td></td>
</tr>
<tr>
<td nowrap><input type="radio" name="linkm" value="$time" border="0"></td>
<td><font class="b2" color="white">$lmoname</font></td>
</tr>
<tr>
<td colspan="2"><hr noshade></td>
</tr>
EOH
}
print << "EOH";
<tr>
<td colspan="2" align="center"><input type="submit" name="" value="次の画面へ" border="0"></td>
</tr>
</table>
</form>
EOH
&kfooter;
}
【プロバイダ】http://www.interlink.or.jp
【習熟度】中程度の改造ができる
|