Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 41 lines (31 sloc) 858 Bytes
#!/usr/bin/perl
require './common.pl';
use strict;
use warnings;
use DBI;
# パラメータ取得
my %data = Common::GetPara();
my $login_name = $data{"login_name"};
my $password = $data{"password"};
# データベース接続
my $conn = Common::ConnectDB();
# ログイン認証処理
my $login_id = Common::CheckLogin($conn, $login_name, $password);
# データベースクローズ
Common::CloseDB($conn);
# データエスケープ
$login_name =~ s/ /%20/g;
$password =~ s/ /%20/g;
# クッキーセット処理
my $strCookie = "login_name=" . $login_name . " password=" . $password " login_id=" . $login_id;
Common::SetCookie($strCookie, 3*60*60);
print "Content-type: text/html\n\n";
# 管理画面に移動させる
print << "END_OF_HTML";
<html>
<head>
<meta http-equiv="refresh" content="0;url=admin.cgi">
</head>
</html>
END_OF_HTML
exit;