login.cgi - ¥æ¡¼¥¶¡¼Ì¾¡¢¥Ñ¥¹¥ï¡¼¥É¤òweb¤Ç¼õ¤±ÉÕ¤±¤ë
web²èÌ̤ˤƥ桼¥¶¡¼Ì¾¡¢¥Ñ¥¹¥ï¡¼¥É¤òÆþÎϤ·ÆþÎÏÃÍ¤Ë¤Æ ¥æ¡¼¥¶¡¼¥Æ¡¼¥Ö¥ë(user_tbl)¤ò¥Á¥§¥Ã¥¯¤·Â¸ºß¤·¤¿»þ¤Ë¤Ï¡¢ ¥»¥Ã¥·¥ç¥ó£É£Ä¤òºîÀ®¤·¥»¥Ã¥·¥ç¥ó¥Æ¡¼¥Ö¥ë(session)¤Ë ÅÐÏ¿¤·¥á¥Ë¥å¡¼²èÌÌ(menu.cgi)¤ò¥í¡¼¥É¤¹¤ë¡£
¥Ö¥é¥¦¥¶¤Î¼ïÎà¤òȽÃǤ·html¤«hdml¤òɽ¼¨¤¹¤ë¡£
+------------------------------------------------+
|¤è¤¦¤³¤½¥·¥¹¥Æ¥à¤Ø |
| |
| ÍøÍѼԡ§[____________] |
| |
| ¡¡¥Ñ¥¹¥ï¡¼¥É¡§[____________] |
| |
|¡¡¡¡¡¡¡¡¡¡[¥í¥°¥¤¥ó][¡¡½ªÎ»¡¡] |
| |
+------------------------------------------------+
login.cgi¤Î¥Ñ¥é¥á¡¼¥¿
userid¥æ¡¼¥¶¡¼£É£ÄÆþÎÏÃͤǥ桼¥¶¡¼¥Æ¡¼¥Ö¥ë(user_tbl)¤Î¥æ¡¼¥¶¡¼£É£Ä(userid)¤È ¥Á¥§¥Ã¥¯¤ò¹Ô¤Ê¤¦¡£
passwd¥æ¡¼¥¶¡¼¥Ñ¥¹¥ï¡¼¥ÉÆþÎÏÃͤǥ桼¥¶¡¼¥Æ¡¼¥Ö¥ë(user_tbl)¤Î¥Ñ¥¹¥ï¡¼¥É(password)¤È ¥Á¥§¥Ã¥¯¤ò¹Ô¤Ê¤¦¡£
actionaction=½ªÎ»¤Ë¤ÆHomePage¤ò¥í¡¼¥É¤¹¤ë¡£
Location: close.cgi
¥í¥°¥¤¥ó¤Î¥Á¥§¥Ã¥¯¤ò¹Ô¤Ê¤¦¡£
select count(*) from user_tbl where userid = ? and password = ?
$dbh->random_str¤Ë¤ÆÍð¿ô¤òºîÀ®¤·¥»¥Ã¥·¥ç¥ó¥Æ¡¼¥Ö¥ë(seeeion)¤Ë ¥»¥Ã¥·¥ç¥ó£É£Ä¡¢¥æ¡¼¥¶¡¼Ì¾¡¢¸½ºß»þ´Ö¤òÅÐÏ¿¤¹¤ë¡£
insert into session (sessionid,userid,upd_time) values (?,?,now())
½ªÎ»½èÍý
;######################################################################
;#
;# login.cgi: Web Login CGI
;#
;# Copyright (c) 2003 Masashi Hori <hori@japannet.co.jp>
;# JapanNet. All Rights Reserved.
;#
;#
;# ¥»¥Ã¥·¥ç¥ó¥Æ¡¼¥Ö¥ë(session)¤Ïcron ¤ÇŬÅö¤Ê»þ´Ö¤´¤È¤Ë
;# delete from session where upd_time < now() - timespan('2 hours');
;# ¤¯¤é¤¤¤Çºï½ü¤¹¤ë»ö
;######################################################################
<webdb.pm>
Hey! The above document had some coding errors, which are explained below:
Non-ASCII character seen before =encoding in '¥æ¡¼¥¶¡¼Ì¾¡¢¥Ñ¥¹¥ï¡¼¥É¤òweb¤Ç¼õ¤±ÉÕ¤±¤ë'. Assuming CP1252
'=item' outside of any '=over'
You forgot a '=back' before '=head1'
'=item' outside of any '=over'
'=item' outside of any '=over'
You forgot a '=back' before '=head1'