罪と罰++二律背反
罪罰/クッキーでIDを保持
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
[[罪罰改造]]
*ログイン画面でIDを初期表示 [#nb2962c0]
**./index.cgiに$ck_idと$ck_pwを追加変更 [#t19d42d2]
-一ヶ所め
require "./warn_mes.cgi";
&get_time; # 日時取得
&axs_check; # アクセスチェック
&read_data_index; # ログデータ読み込み
&cookie_get; # クッキー取得
-もう一ヶ所
print <<"EOM";
ユーザーID:<input type="text" name="id" value="$ck_id" c...
<br>
パスワード:<input type="password" name="pw" value="$ck_p...
<input type="submit" value="IN" class="button1" style="w...
<input type="hidden" name="mode" value="1">
**./inc/ore_sub-system.cgi [#ue71b252]
$bmes="最新情報 ◎ $wr_mes\n" if $wr_mes;
$data_reset = int(($cn1+$cn2+$cn3+$cn4+$cn5) * $reset_p...
#---------------------------------------------こ...
@exp = split(/ /, (gmtime(time()+30*24*3600)));
$expire = sprintf("%s, %02d-%s-%4d %s GMT", $exp[0], $e...
print "Set-Cookie: id=$id expires=$expire\n";
print "Set-Cookie: pw=$pw expires=$expire\n";
#---------------------------------------------こ...
}
#-------------------------------------------------------...
# ファイル OUT 関連
**./inc/ore_sub-system.cgiの最後に追加 [#y13dbd8e]
#---------------------------------------------ここから追...
# COOKIE
sub cookie_get {
if($ENV{'HTTP_COOKIE'}){
*cookie = getCookie($ENV{'HTTP_COOKIE'});
$ck_id = $cookie{'id'};
$ck_pw = $cookie{'pw'};
}
}
sub getCookie {
local($cookie) = $ENV{'HTTP_COOKIE'};
local(*data, @cookie);
@cookie = split(/ /,$cookie);
foreach(@cookie){
local($name, $value) = split(/=/);
$data{$name} = $value;
}
return *data;
}
#---------------------------------------------ここまで追...
1;#削除不可
終了行:
[[罪罰改造]]
*ログイン画面でIDを初期表示 [#nb2962c0]
**./index.cgiに$ck_idと$ck_pwを追加変更 [#t19d42d2]
-一ヶ所め
require "./warn_mes.cgi";
&get_time; # 日時取得
&axs_check; # アクセスチェック
&read_data_index; # ログデータ読み込み
&cookie_get; # クッキー取得
-もう一ヶ所
print <<"EOM";
ユーザーID:<input type="text" name="id" value="$ck_id" c...
<br>
パスワード:<input type="password" name="pw" value="$ck_p...
<input type="submit" value="IN" class="button1" style="w...
<input type="hidden" name="mode" value="1">
**./inc/ore_sub-system.cgi [#ue71b252]
$bmes="最新情報 ◎ $wr_mes\n" if $wr_mes;
$data_reset = int(($cn1+$cn2+$cn3+$cn4+$cn5) * $reset_p...
#---------------------------------------------こ...
@exp = split(/ /, (gmtime(time()+30*24*3600)));
$expire = sprintf("%s, %02d-%s-%4d %s GMT", $exp[0], $e...
print "Set-Cookie: id=$id expires=$expire\n";
print "Set-Cookie: pw=$pw expires=$expire\n";
#---------------------------------------------こ...
}
#-------------------------------------------------------...
# ファイル OUT 関連
**./inc/ore_sub-system.cgiの最後に追加 [#y13dbd8e]
#---------------------------------------------ここから追...
# COOKIE
sub cookie_get {
if($ENV{'HTTP_COOKIE'}){
*cookie = getCookie($ENV{'HTTP_COOKIE'});
$ck_id = $cookie{'id'};
$ck_pw = $cookie{'pw'};
}
}
sub getCookie {
local($cookie) = $ENV{'HTTP_COOKIE'};
local(*data, @cookie);
@cookie = split(/ /,$cookie);
foreach(@cookie){
local($name, $value) = split(/=/);
$data{$name} = $value;
}
return *data;
}
#---------------------------------------------ここまで追...
1;#削除不可
ページ名: