Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6d234fe140
Fetching contributors…

Cannot retrieve contributors at this time

executable file 49 lines (36 sloc) 1.118 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
#!/usr/bin/perl

#ログインの時につかう処理です
#2012/09/26 おそらく動いていません

# 呼び出している

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;
Something went wrong with that request. Please try again.