管理ページ - USERID＆PASSWORD入力

#!/usr/bin/perl #------------------------------------------------- # USERID＆PASSWORD 入力 #------------------------------------------------- #------------------- # ▼ 設定 START #------------------- #日本語コード変換モジュール require '../../module/jcode.pl'; #スタイルシートファイル $css = '../../../css.css'; #認証判別のファイル $attestation = './attestation.cgi'; #------------------- # ▲ 設定 END #------------------- ################################################################################ # # - ご注意 - # これより下はプログラムです。 # 改造はご自由にされてもかまいませんが、改造によって発生した不具合に関しては # サポート外になりますので、あらかじめご了承下さい。 # ################################################################################ #COOKIEの読み込み &GET_COOKIE; $CH_COOK = ''; if( $C_COOK ne '' ){ $CH_COOK = 'checked'; } print "Content-type: text/html\n\n"; print <<"EOM"; 管理ページ - USERID＆PASSWORD入力

管理者認証

- USERIDとPASSWORDを入力し[認証]を押して下さい -

※ご注意

・	大文字と小文字は判別されますのでご注意下さい。
・	「USERIDとPASSWORDを保存」にチェックを入れると、次回アクセス時から
	USERIDとPASSWORDが入力された状態で表\示されます。(Cookieを使用)

EOM #------------------------------------------------- # COOKIEの取得 #------------------------------------------------- sub GET_COOKIE { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'CART_MANAGE_FREE'}); foreach $pair (@pairs) { ($name, $value) = split(/:/, $pair); $COOKIE{$name} = $value; } $C_ID = $COOKIE{'ID'}; $C_PW = $COOKIE{'PW'}; $C_COOK = $COOKIE{'COOK'}; if($FORM{'ID'}) { $C_ID = $FORM{'ID'}; } if($FORM{'PW'}) { $C_PW = $FORM{'PW'}; } if($FORM{'COOK'}){ $C_COOK = $FORM{'COOK'}; } }