Perl の 小箱
2007/12/ 2
会員用のページを作っていて、Cookieで認証済みか否かをチェックするようにしたいと思った。例えば、一旦 正しいIDとPWでログインしてから30分間以内でアクセスし続ければログインが継続できるが、それ以上アクセスが無い場合は、再度 ログインを要求するなどの使い方をしたい場合がある。このときの Cookie 送受信のサンプルコードが下記のようになる。
上記サンプルを試すのは こちら
テスト用には、期限が分かりやすいように現在時刻に対して 30秒後に cookieが Expireするようにしてあるので、かなり 短い時間で Browserの 「再表示」ボタンを押し続けないと、カウンターがリセットする。
#!/usr/bin/perl $now_cookie = $ENV{"HTTP_COOKIE"}; $new_cookie = $now_cookie + 1; $expires = &makeexpiresdate(30); print "Content-type: text/html\n"; print "Set-Cookie: $new_cookie; expires=$expires;\n"; print "\n"; if($now_cookie eq "") { print "Cookie is NOT found! |
テスト用には、期限が分かりやすいように現在時刻に対して 30秒後に cookieが Expireするようにしてあるので、かなり 短い時間で Browserの 「再表示」ボタンを押し続けないと、カウンターがリセットする。