| 記事No | ： 10548 |
| 投稿日 | ： 2012/05/24(Thu) 14:10:59 |
| タイトル | ： PasswordManageの会員管理（修正/削除） |
| ID情報 | ： grgr |
| 投稿者 | ： grgr |
| URL | ： http://www.juku-sophia.com/pwmgr/admin.cgi |
管理用パスワード:0123
init.cgiの設定は下記の通り、
# パスワード発行形態
# 1 : ユーザからの発行＆メンテを可能にする
# 2 : 発行は管理者のみ。ユーザはメンテのみ
# 3 : 発行＆メンテは管理者のみ（pwmgr.cgi index.htmlは不要）
$cf{pwd_regist} = 3;
パスワード発行形態を「発行＆メンテは管理者のみ」で運用したいのですが、
管理メニューで修正を選択すると、「会員管理（新規登録）」の画面になります。
ログN0.9371では
http://www.kent-web.com/support/bbs/?list=log&no=9371
仕様とのことですが、
サンプルページの
http://www.kent-web.com/pwd/pwmgr/pwmgr.cgi?mode=admin&pass=0123
修正処理で開く修正画面のように、
管理メニューの会員管理（修正/削除）→選択→IDを選択&修正を選択→会員管理（修正/削除）画面として、
「"XXXX"の属性情報の変更」と「パスワードを強制変更」が表示されるようにしたいのですが、どうしたらよろしいでしょうか？
| 記事No | ： 10552 |
| 投稿日 | ： 2012/05/25(Fri) 08:23:45 |
| タイトル | ： Re: PasswordManageの会員管理（修正/削除） |
| ID情報 | ： Fuyuki |
| 投稿者 | ： BAL |
| URL | ： http://www26.tok2.com/home/sumire1100/ |
> 「"XXXX"の属性情報の変更」と「パスワードを強制変更」が表示されるようにしたいのですが、どうしたらよろしいでしょうか？
KENTさんの対応を待たれるかもしくは以下サブルーチンを入れ替えてください。
●admin.cgi
#-----------------------------------------------------------
# 会員管理（新規）
#-----------------------------------------------------------
sub member_new {
my ($id,$nam,$eml,$memo) = @_;
$memo =~ s/<br>/\n/g;
# 登録実行
if ($in{job} eq 'new') { &add_data; }
if ($in{member_new}) {
# 登録フォーム
&header("会員管理（新規登録）");
&back_btn;
print <<EOM;
<b class="accol">■会員管理（新規登録）</b>
<hr class="accol" size="1">
<ul>
<li>各項目を入力して送信ボタンを押してください。
<li>ユーザIDとパスワードは必須です。（他は任意）
<form action="$cf{admin_cgi}" method="post">
<input type="hidden" name="pass" value="$in{pass}">
EOM
print qq|<input type="hidden" name="member_new" value="1">\n|;
print qq|<input type="hidden" name="job" value="new">\n|;
} else {
# 登録フォーム
&header("会員管理（修正）");
&back_btn;
print <<EOM;
<b class="accol">■会員管理（修正）</b>
<hr class="accol" size="1">
<ul>
<li>以下のフォームより、<b>$id</b> の属性情報を変更します。
<li>変更する箇所のみ修正して送信ボタンを押してください。
<form action="$cf{admin_cgi}" method="post">
<input type="hidden" name="pass" value="$in{pass}">
EOM
print qq|<input type="hidden" name="member_edit" value="1">\n|;
print qq|<input type="hidden" name="job" value="edit2">\n|;
print qq|<input type="hidden" name="id" value="$in{id}">\n|;
}
print <<EOM;
<table border="1" cellspacing="0" cellpadding="4" class="menu">
<tr>
<th>名前</th>
<td><input type="text" name="name" size="30" value="$nam"></td>
</tr><tr>
<th>E-mail</th>
<td><input type="text" name="email" size="30" value="$eml"></td>
</tr><tr>
<th>ユーザーID</th>
EOM
if (!$in{job}) {
print qq|<td class="accol">|;
print qq|<input type="text" name="id" size="8" maxlength="8" style="ime-mode:inactive">\n|;
print qq|(英数字で8文字以内)</td></tr>\n|;
print qq|<tr><th>パスワード</th>\n|;
print qq|<td class="accol">|;
print qq|<input type="text" name="pw" size="8" maxlength="8" style="ime-mode:inactive">\n|;
print qq|(英数字で8文字以内)</td></tr>\n|;
} else {
print "<td><b>$id</b></td></tr>\n";
}
print <<EOM;
<tr>
<th>備考</th>
<td><textarea name="memo" cols="30" rows="4">$memo</textarea></td>
</tr>
</table>
<br>
<input type="submit" value="送信する">
</form>
</ul>
EOM
if ($in{job}) {
print <<EOM;
<hr class="accol" size="1">
<ul>
<li>以下のフォームより、パスワードを強制変更します。
<form action="$cf{admin_cgi}" method="post">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="hidden" name="member_edit" value="1">
<input type="hidden" name="job" value="pwchg">
<input type="hidden" name="id" value="$in{'id'}">
<table border="1" cellspacing="0" cellpadding="4" class="menu">
<tr>
<th>パスワード</th>
<td><input type="text" name="pw" size="8" maxlength="8" style="ime-mode:inactive">(英数字で8文字以内)</td>
</tr>
</table>
<p>
<input type="submit" value="強制変更する">
</form>
</ul>
EOM
}
print <<EOM;
</body>
</html>
EOM
exit;
}
| 記事No | ： 10553 |
| 投稿日 | ： 2012/05/25(Fri) 10:03:25 |
| タイトル | ： Re^2: PasswordManageの会員管理（修正/削除） |
| ID情報 | ： grgr |
| 投稿者 | ： grgr |
| URL | ： http://www.juku-sophia.com/student/ |
BAL様
お陰様でうまくいきました！
とても便利になり、大変助かります。
本当にありがとうございました。
（※早速使用したいので、管理用パスワードはデフォルトから変更させていただきました。）