トップ 差分 一覧 Farm ソース 検索 ヘルプ RSS ログイン

BBS-サポート掲示板/171

ページの作成や編集にはユーザ登録が必要です。

 Internal Server Error - ＭＡＲＵＴＯＭＯ (2004年02月03日 20時45分16秒)

Internal Server Errorって出てしまったんですけど、どこがおかしいのでしょうか？一度は成功したのにまた出なくなってしまいましたどうかよろしくお願いします！！

http://bb.ark2k.net/~maru777/cgi-bin/ore_plus_v02-04-16/ore_plus_v02-04-16/index.cgi

  • リンクを出されても、結局Internal Server Errorなので、何もできません。FTPクライアントからみたパーミッションや設置の状況を詳述してもらえませんか?　あと、「一度成功した」というのは、どういう意味でしょうか?　Internal Server Errorは、スクリプトが正常に機能していないことによるエラーですが、perlのパスはあっていますか?　サーバー運用の業者にお尋ねください。 - ゆき (2004年02月04日 11時41分10秒)
  • はい。すいません。FTPはバイナリモードで、属性は合っていました。一度成功した。というのは、一度は正常に表示したのに改造したら表示されなくなった。という事です - ＭＡＲＵＴＯＭＯ (2004年02月04日 16時14分55秒)
  • ソースは下の通りです。
#!/usr/bin/perl
# サーバーの環境に合わせて変更して下さい。
require './ore_config.cgi';				# ore_config.cgiのパス
#-----------------------------------------------------------#
#  罪と罰++ 二律背反										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://www17.big.or.jp/~obochan/chat/ ]	#
#-----------------------------------------------------------#
# トップページ Version 1.0
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#===============================================================================
# 設定項目
$help		= "./html/Help.html";		# 取り扱い説明書[PC]
$help_i		= "./html/Help_i.html";		# 取り扱い説明書[MV]

#===============================================================================
# 以下処理 基本的にこれ以下はいじらないように。
&get_time;			# 日時取得
&axs_check;			# アクセスチェック
&read_data_index;	# ログデータ読み込み

print "Content-type: text/html; charset=shift_jis\n\n" ;
# メニュー表示
($mv_mode eq 'mv') ? &html_top_mv : &html_top_pc ;
# 削除・移動・変更不可
&copyright;

exit;

#-------------------------------------------------------------------------------
# html生成(PC)
sub html_top_pc{
		print <<"EOM";

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>$titleh</title>
<style type="text/css">
<!--
.button1{
	font-family: "ＭＳ Ｐゴシック", "Osaka"; font-size: 12px; font-weight: 400; color: #bbbbcc;
	border: 2px #666699 ridge; cursor: hand; background-color: #222244;
	width:100px;
}
body,td {  font-size: 10px; color: #aaaab9; background-color: #000000; cursor: crosshair}
.bar	{
	scrollbar-face-color: #333333;
	scrollbar-highlight-color: #333333;
	scrollbar-shadow-color: #000000;
	scrollbar-arrow-color: #ffffff;
	scrollbar-base-color: #000000;
	scrollbar-3d-light-color: #ffffff;
	scrollbar-dark-shadow-color: #000000
}
-->
</style>
</head>

<body bgcolor="#000000" text="#aaaaaa" link="#b5a7cF" vlink="#b5a7cF" alink="#b5a7cF" class="bar">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
<tr>
<td align="center" valign="middle">

<table border="0" cellspacing="0" cellpadding="0" width="200">
<tr>
<td align="center" valign="top"><img src="$imgs/title_text.png" width="166" height="56"></td>
<td rowspan="2"><img src="$imgs/fairy2_la.jpg" width="110" height="160"></td>
</tr>
<tr>
<td align="center" valign="top"><img src="$imgs/title_game.png" width="220" height="52"></td>
</tr>
</table>

<br><br><br><br><br><br><br><br><br><br>

<table border="0" cellspacing="0" cellpadding="0">
<tr>
<form method="$method" action="$script" name="ore_">
<td align="left" valign="top">
<tt>
<span style="font-size:12px">悠久の大地へ</span><br>
EOM

	if($now_nm_cnt>=$play_limit){
		print qq|<br><span style="color:#dddd00;font-size:12px">現在ログイン規制中</span><br><br>|;
}
	else{
		print <<"EOM";
ユーザーID:<input type="text" name="id" value="" class="button1" style="width:95px">
<br>
パスワード:<input type="password" name="pw" value="" class="button1" style="width:60px" maxlength="8">
<input type="submit" value="IN" class="button1" style="width:30px">
<input type="hidden" name="mode" value="1">
EOM
}

	print <<"EOM";
</tt>
</td>
</form>
<td rowspan=4>        </td>
<td rowspan=2 align="left" valign="top" nowrap style="font-size:12px;">
>> プレイ中の参加者 [ $now_nm_cnt 名]
<hr size=1 style="color:bbbbcc">
<div style="height:140px; overflow-y:auto; padding:2; background-color:#292929" class="bar">
$now_nm
</div>
<td>

</tr>
<tr>
<td align="left" valign="top">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="$ore_reg">新規登録</ a></span><br>
登録する前に必ず↓を読んで下さい。
</tt>
</td>
</tr>
<tr>
<td align="left" valign="top">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="$help">取り扱い説明書</ a></span><br>
読まないとワケわかりませんよ？
</tt>
</td>
<td align="left">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="$hist?mode=guest">過去の栄光</ a></span><br>
悠久の大地の歴史を振り返る
</tt>
</td>
</tr>
<tr>
<td align="left" valign="top">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="$home">本館へ戻る</ a></span><br>
</tt>
</td>
<td align="left">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="$hist_hasya">罪と罰++の石碑</ a></span><br>
悠久の大地で覇者となった人の名前
</tt>
</td>
</tr>
<td align="left">
<tt>
<br>
<br>
<span style="font-size:12px"><a href ="http://bbs5.cgiboy.com/p/06/01732/">罪と罰ヘルプ掲示板</ a></span><br>
分からないことがあったらこちらへ
</tt>
</td>
</tr>
<tt>
<td align="left" valign="top" colspan="3">
<tt>
<br>
<br>
<span style="font-size:12px"><br>
　　>> 現在登録人数 [ $now_sanka 名]　最大登録人数 [ $sanka 名]<br>
　　　 削除放置期間 [ $del_limit 日]　プレイ規制時間帯 [ $safe_time ]
</span>
<br><br>
<span style="font-size:12px"><br>
　　携帯(i-mode,J-Sky)に完全対応,ezweb対応。PC要らずです。<br>
　　携帯からPCと同じURLにアクセスするだけです。
</span>

</tt>
</td>
</tr>
</table>

</td>
</tr>
</table>

EOM
}

#-------------------------------------------------------------------------------
# html生成(ﾓﾊﾞｲﾙ)
sub html_top_mv{
		print <<"EOM";

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>$titleh</title>
</head>

<body bgcolor="#000000" text="#aaaaaa" link="#c597ff" vlink="#c597ff" alink="#c597ff">
$title_i
<hr color="white">
　　　君が望む永遠　それは悠久の大地に
<hr color="white">
<form method="$method" action="$script" name="ore_">
続きから<br>
EOM

	if($now_nm_cnt>=$play_limit){
		print qq|現在ﾛｸﾞｲﾝ規制中|;
}
	else{
		print <<"EOM";
I D:<input type="text" name="id" value="" size="8"><br>
ﾊﾟｽﾜｰﾄﾞ:<input type="text" name="pw" value="" size="2" maxlength="8">
<input type="hidden" name="mode" value="1">
<input type="submit" value="IN">
EOM
}
	print <<"EOM";
</form>
<hr color="white">
<a href ="$ore_reg" ACCESKEY="1">1.新規登録</ a><br>登録する前に必ず↓を読んで下さい<hr color="white">
<a href ="$help_i" ACCESKEY="2">2.説 明 書</ a><br>読まないとﾜｹわかりませんよ?<hr color="white">
<a href ="$hist?mode=guest" ACCESKEY="3">3.過去の栄光</ a><br>悠久の大地の歴史を振り返る<hr color="white">
<a href ="$hist_hasya" ACCESKEY="4">4.罪と罰++石碑</ a><br>悠久の大地で覇者となった人の名前<hr color="white">
<a href ="$home_i" ACCESKEY="9">9.本館へ戻る</ a><hr color="white">
ﾌﾟﾚｲ中のｷｬﾗ $now_nm_cnt名<br>
$now_nm
<hr color="white">
現在登録人数[$now_sanka名]<br>
最大登録人数[$sanka 名]<br>
削除放置期間[$del_limit日]<br>
ﾌﾟﾚｲ規制時間帯[$safe_time]<br>
<hr color="white">
<br>

EOM
}

#-------------------------------------------------------------------------------
# データ読み込み
# 参加者データ一括読み込み
sub read_data_index{

	local @tdat;
	# 参加者データファイル一覧取得/一括読み込み
	&usrdata_read;
	&usrdata_open;

	$now_sanka=$#tdat+1;
	$now_nm_cnt=0;
	foreach(0 .. $#tdat){
		%DAT = '';
		my @prats = split(/,/,$tdat[$_]);
		foreach $prats (@prats){
			my($key,$v) = split(/;/,$prats);
			$DAT{$key} = $v;
		}

		# 現在のプレイヤー抽出
		if($player_now>=$time-$DAT{'la'}){
			if($mv_mode eq 'pc'){
				$now_nm .= ($DAT{'sogo'}) ? qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]] [$cmp[$DAT{'camp'} ]]</div>| : qq|<div style="color:$color[$DAT{'camp'}]">$DAT{'nm'} [$cmp[$DAT{'camp'}]]</div>| ;
			}else{
				$now_nm .= ($DAT{'sogo'}) ? "$DAT{'nm'} [$sogo_p[$DAT{'sogo'}]]/" : "$DAT{'nm'}/" ;
			}
			$now_nm_cnt++;
		}
	}

	foreach (0 .. $#safetime){
		$safe_time .= ($safetime[$_]<0) ? "--" : "$safetime[$_],";
	}

	# 自動バックアップ
	&auto_backup if($backdata);

	return ($now_nm,$now_sanka,$now_nm_cnt,$safe_time);
}

#-------------------------------------------------------------------------------
# 自動バップアップ
sub auto_backup{

	my $backup_flag1 = "backup_flag1";
	my $backup_flag2 = "backup_flag2";

	# フラグ消失は作成
	if(!-e "$backdata$backup_flag1" && !-e "$backdata$backup_flag2"){
		open (OUT,">$backdata$backup_flag1");
		print OUT "このファイルは削除及びリネームしないでください。";
		close(OUT)		or die "Can't close   : $!";
		chmod($chmod,"$backdata$backup_flag1");
	}

	# 0時にバックアップ
	if(!$hour){
		if(-e "$backdata$backup_flag1"){
			open (OUT,">$backdata$week[$wday]\.cgi");
			print OUT @tdat;
			close(OUT)		or die "Can't close   : $!";
			chmod($chmod,"$backdata$week[$wday]\.cgi");

			rename("$backdata$backup_flag1","$backdata$backup_flag2");
		}
	}else{
			rename("$backdata$backup_flag2","$backdata$backup_flag1");
	}
}
  • FTPでアスキーモードで転送してください。あと、これ、FreeStyleWikiなんですか?　ぜんぜん違う掲示板の名前が見えるのですが。 - ゆみ (2004年02月04日 16時24分33秒)
  • ところで、崩れていて見づらかったのでソース表示にして気づいたのですが，3.5.2dev2からソースがtext/plainでそのまま表示するようになったのですね。このページのソースを表示すると、HTMLと解釈して表示してしまうようです．これはOperaのせいのような気がしますが，以前のようにHTMLに流し込む方が安心です．なお使用ブラウザはOpera 7.23です． - BJM(と) (2004年02月05日 13時05分41秒)
  • ソース表示は外部のツールやアプリケーションからページのソースを利用できるようにtext/plainにしました。 - たけぞう (2004年02月06日 12時28分44秒)
  • NGnBcHtOgBiKNX - OFipTHXAEqXoLI (2013年01月05日 22時22分32秒)
お名前： コメント：

最終更新時間：2008年08月29日 12時57分47秒

メニュー

関連リンク

入門Wiki〜みんなで投稿/編集できるWebの作りかた

検索

キーワード

Google

Google

最新

2023/1/31

2023/1/23

2022/10/15

2022/10/7

2022/10/3

Copyright (C) 2002 Naoki Takezoe
Powered by FreeStyleWiki3.6.5 with Perl5.020002