*情報欄でコメントのように名前変更を・・・ [#m2bcebad]
-ページ: [[罪罰改造板２]]
-投稿者: [[三毛猫]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2005-06-21 (火) 23:15:38
-バージョン:
**内容 [#y4f64d0f]
いつも参考にさせていただいてます<(_ _)>
情報のコメントの変更を参考にして、ユーザー名（名前）の変更が出来るようにしようとしているのですが、なかなか上手くいきません(^_^;)
userdataに書き込まれないみたいなのですが、&dat_write;等を付けても駄目で。。。orz
よろしくお願いします<(_ _)>
----
-：スポンサー
-こんな風に改造してみては？情報に
sub infomation_com{
$log .= qq|<b style="color:$color[$camp]">現在の $cmp[$camp] に所属する将兵一覧</b><br><br>\n|;
if($com){
if($com =~ /:/){ &error("名前に不正な文字( : )が含まれています｡",1); }
if($com =~ /;/){ &error("名前に不正な文字( ; )が含まれています｡",1); }
if($com =~ /,/){ &error("名前に不正な文字( , )が含まれています｡",1); }
if($com =~ /"/){ &error("名前に不正な文字( \" )が含まれています｡",1); }
if($com =~ /'/){ &error("名前に不正な文字( ' )が含まれています｡",1); }
if($com =~ /\//){ &error("名前に不正な文字( / )が含まれています｡",1); }
if(length($com)>80){ &error("全角40文字までです。",1); }
$com =~ s/\n//g;
$info_mes=$com;
}
if($com2){
if($com2 =~ /:/){ &error("名前に不正な文字( : )が含まれています。",1); }
if($com2 =~ /;/){ &error("名前に不正な文字( ; )が含まれています。",1); }
if($com2 =~ /,/){ &error("名前に不正な文字( , )が含まれています。",1); }
if($com2 =~ /"/){ &error("名前に不正な文字( \" )が含まれています。",1); }
if($com2 =~ /'/){ &error("名前に不正な文字( ' )が含まれています。",1); }
if($com2 =~ /\//){ &error("名前に不正な文字( / )が含まれています。",1); }
if(length($com2)>16){ &error("全角8文字までです。",1); }
$com2 =~ s/\n//g;
$K=$nm;
$nm=$com2;
$wr_mes ="$date $cmp[$camp] の $K が<font color='yellow'> $nm </font>に改名しました。";
&hist_write;
}
local(@usrfile,@tdat);
sub infomation_com{・・・・・・・・・
コメントは全角40文字まで。
</form>
<br>
<form method="$method" action="$script" name="ore_">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="cmd" value="6">
名前：<input type=text name="com2" class="button2" style="width:140px">
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア" class="button2" style="width:40px">
<br>
名前は全角8文字まで。
</form><br>
</div>
EOM
-systemのほうに
sub decode {
・・・・・・・・・・・・・
$pw = $in{'pw'};
$cmd = $in{'cmd'};
$com = $in{'com'};
$com2 = $in{'com2'};
-て感じでどうでしょうか？
-できました〜＾＾ -- [[三毛猫]] &new{2005-06-25 (土) 11:34:55};
-systemの方の変更が必要だったんですね＾＾； ありがとうございました〜<(_ _)> -- [[三毛猫]] &new{2005-06-25 (土) 11:36:34};
-見てくれる人がいるか不安ですがとりあえず…。hist2.cgiというページを作ってソチラに名前変更が書き込まれるようにしたいのですが、どうすればいいでしょうか？ -- [[six]] &new{2006-10-10 (火) 20:29:28};
-解決しました… -- [[six]] &new{2006-10-11 (水) 02:23:57};
-ここを見て真似したのですが、すでにいる同じ名前でも登録できます。同じ名前で登録できないようにするにはどうすればよいか教えてください。よろしくお願いします -- [[うさ]] &new{2007-01-05 (金) 15:33:50};
-http://mikeneko.skr.jp/kk/2chbbs/kaizou/#9の2を参照で＾＾（wikiの編集がイマイチ苦手で。。。＾＾；手抜きで申し訳ないです。。。orz -- [[三毛猫]] &new{2007-01-05 (金) 18:31:27};
-三毛猫さんありがとうございます。 書いてあるようにしたつもりですが、すでに存在する名前で登録できてしまいます。それと、if($info_nm){ &usrdata_read;・・・を付けると情報画面で自国の情報が見れなくなりました。どこが間違っているのかわかりません。助けてください -- [[うさ]] &new{2007-01-05 (金) 21:08:53};
-既に上記の$com2を導入している場合は、ちょっとややこしくなったかもしれませんね^^;
if($com2){
if($com2 =~ /:/){ &error("名前に不正な文字( : )が含まれています。",1); }
の、if($com2){が、if($info_nm){にあたります。なので、この2行の間に入れてみて下さい。 -- [[三毛猫]] &new{2007-01-06 (土) 09:29:02};
-三毛猫さんありがとうございます。 成功しました。 -- [[うさ]] &new{2007-01-06 (土) 13:19:09};
#comment
