罪罰/クッキーでIDを保持の変更点

追加された行はこの色です。
削除された行はこの色です。
罪罰/クッキーで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" class="button1" style="width:95px">
 <br>
 パスワード:<input type="password" name="pw" value="$ck_pw" class="button1" style="width:60px" maxlength="8">
 <input type="submit" value="IN" class="button1" style="width:30px">
 <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_point);
 
         #---------------------------------------------ここから追加 
 	@exp = split(/ /, (gmtime(time()+30*24*3600)));
 	$expire = sprintf("%s, %02d-%s-%4d %s GMT", $exp[0], $exp[2], $exp[1], $exp[4], $exp[3]);
 	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を保持 の変更点