罪と罰++二律背反
罪罰改造板2/215
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*罪罰/他国へ一括通信1が設置できない [#hf2ac04b]
-ページ: [[罪罰改造板2]]
-投稿者: [[あくあ]]
-優先順位: 低
-状態: 完了
-カテゴリー: 設置できません
-投稿日: 2005-09-26 (月) 22:38:18
-バージョン:
**内容 [#l254b0ce]
ページが見づらくなるのでこちらへ移動しました
----
-間違いかもしれませんが } が足りないような・・・後、ログ...
-どれを使ってみたのでしょうか、あと { を追加するところは...
-確かに変です。1番目の方法は自国に送ったときのみしか出来...
-すいません。もうちょっと、どう動いて何が問題なのか示して...
-1番 自国にラジオボタンで選択して送れるけど 他国に送る...
--わかりました。自分のサイトでは出来てるんですけどね。ど...
-1で他国に送るとファイルが開かないというのは、letter_log...
-letter.cgiをダウンロードして再度やってみましたが、やはり...
--これは1の方です。2は、またあとでやってみます -- [[あ...
-2の方もうまく動作しています。が、変更の場所がわかりにく...
-あー、もしかして最初の } が足りないっていわれてたのは、i...
-了解しましたぁ^^ -- [[けんいちXP]] &new{2004-05-08 (土...
-1はオープンエラーです。 -- [[スポンサー]] &new{2004-05-...
-Open Error : ./usrdata/.cgi -- [[スポンサー]] &new{2004...
-1も2も最初からスクリプト自体に変更はありません。変更し...
-もしダメならソースを見せてもらったほうが早いかも知れない...
-↓にアップしといたんで見てください。それかアクアさんのサ...
-とりあえず、問題なのはここですね。ちょっと何の処理なのか...
sub regist
...
if($in{'nm'} ne "$camp_info[$DAT{'camp'}][0]"){
$in{'let'}=1;
require './inc/ore_sub-ene_para.cgi';&tusr_file_o...
}
# ファイルロック
-この4行をコメントアウトすると動くようです -- [[あくあ]]...
-あと上げてもらったファイルは削除します -- [[あくあ]] &ne...
-そうですか ありがとうございます。この処理はこざとさんの...
-国宛の時にスキップするには、if(!$in{'camp'} && $in{'nm'}...
-書いてあるようにやったつもりなんですがエラーが出てしまい...
-どういう風に変更したのかちょっと不明です。registのところ...
-まず、元に戻してからですね。追加するのは5行のみです。あ...
-パ−ルチェッカーに掛けると異常ないんですが起動させるとエ...
-すいませんがregistの部分をはっきり表示させてくれませんか...
-$flag=1;とlast;を探せばすぐ下に見つかると思いますが。ま...
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_info[2][0] #
|| $in{'nm'} ne $camp_info[3][0] #
|| $in{'nm'} ne $camp_info[4][0] #
|| $in{'nm'} ne $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
}
else{
local @tdat;
# 参加者データファイル一覧取得/一括読み込み
-こんな感じじゃないんですか? -- [[傭兵]] &new{2004-08-07...
-上に書かれている場所に最初から「 last; 」は、存在してい...
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$tim...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp...
if($ltime<$time2){
require './inc/ore_sub-system.cgi';
&usr_file_open;
$ltime=$time2;
&dat_write;
exit;
}
last;
}
}
close(IN);
# 著作権表示(削除禁止)
print "<hr>\n";
©right;
exit;
}
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_in
-上にはひとつありました -- [[傭兵]] &new{2004-08-07 (土) ...
-sub regist より下の行です -- [[あくあ]] &new{2004-08-07 ...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_info[2][0] #
|| $in{'nm'} ne $camp_info[3][0] #
|| $in{'nm'} ne $camp_info[4][0] #
|| $in{'nm'} ne $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
}
else{
・・・・
my $flag=0;
foreach(0 .. $#tdat){
%SAT = '';
my @prats = split(/,/,$tdat[$_]);
foreach $prats (@prats){
my($key,$v) = split(/;/,$prats);
$SAT{$key} = $v;
}
if($SAT{'nm'} eq $in{'nm'}){
$flag=1;
last;
}
}
if(!$flag){
$mes = qq|$in{'nm'}さんという参加者は存在しません。<br...
&html;
}
-二つですね -- [[傭兵]] &new{2004-08-07 (土) 23:51:51};
-1つしかないはずです。そこの3行を良く見て同じように5行...
-どっちを削除するんですか? -- [[傭兵]] &new{2004-08-07 (...
-あとソースを貼り付けるときは、行頭に半角スペースをお願い...
-まず、元に戻せますか?追加した方を削除するだけです -- [[...
-通信で新着が分かる改造も削除ですか? -- [[傭兵]] &new{20...
-「新着」が影響があるかどうかは分かりませんが、今追加した...
-戻しました -- [[傭兵]] &new{2004-08-08 (日) 00:11:00};
-戻しました -- [[傭兵]] &new{2004-08-08 (日) 00:12:13};
-そうすると last; は1つしかないはずです。そこに追加すれ...
-エラーは出なくなりましたが国名入力しても発信されていない...
-国宛に送信したときにどうなりますか?あとファイルを上げて...
-存在しない人の名前を入力しても○○サンという人はいませんっ...
-国名宛で発信されていないと言うことですが、存在していない...
-そうですね -- [[傭兵]] &new{2004-08-08 (日) 20:34:35};
-これ間違いがありました。$in{'nm'} ne $camp_info[1][0] の...
-1だけでいいんですか?それとも1〜6までですか? -- [[傭兵]...
-1〜6までeqにしました。あと国名のアルメリアの部分とかが半角な...
-すいません直しました。あと国全体に送っても新着有りと表示...
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>){
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$tim...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp...
if($ltime<$time2){
require './inc/ore_sub-system.cgi';
&usr_file_open;
$ltime=$time2;
&dat_write;
exit;
}
last;
}
}
close(IN);
# 著作権表示(削除禁止)
print "<hr>\n";
©right;
exit;
}
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
-ここら辺の部分が呼び出しの部分だと思います -- [[傭兵]] &...
-すいませんやっぱり半角で送信ができないんですけど全角で呼...
-”国名宛の通信を許可”で修正のと同じように if($myid eq $DA...
-半角でも国全体に遅れるようにするにはどうするんでぅsか? ...
-できましたどうもすいませんでした^^ -- [[傭兵]] &new{20...
-&jcode::h2z_sjis($camp_info[1][0]) こんな感じでしょうか...
#comment
終了行:
*罪罰/他国へ一括通信1が設置できない [#hf2ac04b]
-ページ: [[罪罰改造板2]]
-投稿者: [[あくあ]]
-優先順位: 低
-状態: 完了
-カテゴリー: 設置できません
-投稿日: 2005-09-26 (月) 22:38:18
-バージョン:
**内容 [#l254b0ce]
ページが見づらくなるのでこちらへ移動しました
----
-間違いかもしれませんが } が足りないような・・・後、ログ...
-どれを使ってみたのでしょうか、あと { を追加するところは...
-確かに変です。1番目の方法は自国に送ったときのみしか出来...
-すいません。もうちょっと、どう動いて何が問題なのか示して...
-1番 自国にラジオボタンで選択して送れるけど 他国に送る...
--わかりました。自分のサイトでは出来てるんですけどね。ど...
-1で他国に送るとファイルが開かないというのは、letter_log...
-letter.cgiをダウンロードして再度やってみましたが、やはり...
--これは1の方です。2は、またあとでやってみます -- [[あ...
-2の方もうまく動作しています。が、変更の場所がわかりにく...
-あー、もしかして最初の } が足りないっていわれてたのは、i...
-了解しましたぁ^^ -- [[けんいちXP]] &new{2004-05-08 (土...
-1はオープンエラーです。 -- [[スポンサー]] &new{2004-05-...
-Open Error : ./usrdata/.cgi -- [[スポンサー]] &new{2004...
-1も2も最初からスクリプト自体に変更はありません。変更し...
-もしダメならソースを見せてもらったほうが早いかも知れない...
-↓にアップしといたんで見てください。それかアクアさんのサ...
-とりあえず、問題なのはここですね。ちょっと何の処理なのか...
sub regist
...
if($in{'nm'} ne "$camp_info[$DAT{'camp'}][0]"){
$in{'let'}=1;
require './inc/ore_sub-ene_para.cgi';&tusr_file_o...
}
# ファイルロック
-この4行をコメントアウトすると動くようです -- [[あくあ]]...
-あと上げてもらったファイルは削除します -- [[あくあ]] &ne...
-そうですか ありがとうございます。この処理はこざとさんの...
-国宛の時にスキップするには、if(!$in{'camp'} && $in{'nm'}...
-書いてあるようにやったつもりなんですがエラーが出てしまい...
-どういう風に変更したのかちょっと不明です。registのところ...
-まず、元に戻してからですね。追加するのは5行のみです。あ...
-パ−ルチェッカーに掛けると異常ないんですが起動させるとエ...
-すいませんがregistの部分をはっきり表示させてくれませんか...
-$flag=1;とlast;を探せばすぐ下に見つかると思いますが。ま...
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_info[2][0] #
|| $in{'nm'} ne $camp_info[3][0] #
|| $in{'nm'} ne $camp_info[4][0] #
|| $in{'nm'} ne $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
}
else{
local @tdat;
# 参加者データファイル一覧取得/一括読み込み
-こんな感じじゃないんですか? -- [[傭兵]] &new{2004-08-07...
-上に書かれている場所に最初から「 last; 」は、存在してい...
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$tim...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp...
if($ltime<$time2){
require './inc/ore_sub-system.cgi';
&usr_file_open;
$ltime=$time2;
&dat_write;
exit;
}
last;
}
}
close(IN);
# 著作権表示(削除禁止)
print "<hr>\n";
©right;
exit;
}
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_in
-上にはひとつありました -- [[傭兵]] &new{2004-08-07 (土) ...
-sub regist より下の行です -- [[あくあ]] &new{2004-08-07 ...
# ログ書き込み処理
sub regist {
if($SAT{'nm'} eq $in{'nm'}
|| $in{'nm'} ne $camp_info[1][0] # <--ここを追加
|| $in{'nm'} ne $camp_info[2][0] #
|| $in{'nm'} ne $camp_info[3][0] #
|| $in{'nm'} ne $camp_info[4][0] #
|| $in{'nm'} ne $camp_info[5][0] # <--ここまでの5行を...
){
$flag=1;
last;
}
else{
・・・・
my $flag=0;
foreach(0 .. $#tdat){
%SAT = '';
my @prats = split(/,/,$tdat[$_]);
foreach $prats (@prats){
my($key,$v) = split(/;/,$prats);
$SAT{$key} = $v;
}
if($SAT{'nm'} eq $in{'nm'}){
$flag=1;
last;
}
}
if(!$flag){
$mes = qq|$in{'nm'}さんという参加者は存在しません。<br...
&html;
}
-二つですね -- [[傭兵]] &new{2004-08-07 (土) 23:51:51};
-1つしかないはずです。そこの3行を良く見て同じように5行...
-どっちを削除するんですか? -- [[傭兵]] &new{2004-08-07 (...
-あとソースを貼り付けるときは、行頭に半角スペースをお願い...
-まず、元に戻せますか?追加した方を削除するだけです -- [[...
-通信で新着が分かる改造も削除ですか? -- [[傭兵]] &new{20...
-「新着」が影響があるかどうかは分かりませんが、今追加した...
-戻しました -- [[傭兵]] &new{2004-08-08 (日) 00:11:00};
-戻しました -- [[傭兵]] &new{2004-08-08 (日) 00:12:13};
-そうすると last; は1つしかないはずです。そこに追加すれ...
-エラーは出なくなりましたが国名入力しても発信されていない...
-国宛に送信したときにどうなりますか?あとファイルを上げて...
-存在しない人の名前を入力しても○○サンという人はいませんっ...
-国名宛で発信されていないと言うことですが、存在していない...
-そうですね -- [[傭兵]] &new{2004-08-08 (日) 20:34:35};
-これ間違いがありました。$in{'nm'} ne $camp_info[1][0] の...
-1だけでいいんですか?それとも1〜6までですか? -- [[傭兵]...
-1〜6までeqにしました。あと国名のアルメリアの部分とかが半角な...
-すいません直しました。あと国全体に送っても新着有りと表示...
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>){
local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$tim...
if($myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp...
if($ltime<$time2){
require './inc/ore_sub-system.cgi';
&usr_file_open;
$ltime=$time2;
&dat_write;
exit;
}
last;
}
}
close(IN);
# 著作権表示(削除禁止)
print "<hr>\n";
©right;
exit;
}
#-------------------------------------------------------...
# ログ書き込み処理
sub regist {
-ここら辺の部分が呼び出しの部分だと思います -- [[傭兵]] &...
-すいませんやっぱり半角で送信ができないんですけど全角で呼...
-”国名宛の通信を許可”で修正のと同じように if($myid eq $DA...
-半角でも国全体に遅れるようにするにはどうするんでぅsか? ...
-できましたどうもすいませんでした^^ -- [[傭兵]] &new{20...
-&jcode::h2z_sjis($camp_info[1][0]) こんな感じでしょうか...
#comment
ページ名: