admin.pm

Astercon2 开源软交换 2.2.0

package astercon::database::admin;

use Carp qw(carp croak);

#------------------------------------
# for admin tables
#------------------------------------
sub admin_auth
{
my	$self = shift;
my	($adminid,$passwd) = @_;

my	$sth = $self->{dbh}->prepare("SELECT * FROM admin WHERE adminid = ".$self->{dbh}->quote($adminid).
			" AND passwd = ".$self->{dbh}->quote($passwd));
	$sth->execute or croak($self->{dbh}->errstr);
my	$row = $sth->fetchrow_hashref();
	$sth->finish;

return($row);
}

sub admin_exists_id
{
my	$self = shift;
my	$adminid = shift;

my	$sth = $self->{dbh}->prepare("SELECT * FROM admin WHERE adminid = ".$self->{dbh}->quote($adminid));
	$sth->execute or croak($self->{dbh}->errstr);
my	$row = $sth->fetchrow_hashref();
	$sth->finish;

return($row);
}

sub admin_create_session
{
my	$self = shift;
my	$adminid = shift;
my	$passwd = shift;
my	$session_id = shift;
my	$lease = time;

	$self->{dbh}->do("UPDATE admin SET session_id=".$self->{dbh}->quote($session_id).
					",session_log=now(),session_lease=$lease WHERE adminid = ".$self->{dbh}->quote($adminid).
					" AND passwd = ".$self->{dbh}->quote($passwd));

return();
}

sub admin_session_keep
{
my	$self = shift;
my	$session_id = shift;
my	$session_lease = shift;

my	$current_time = time;

	$self->{dbh}->do("UPDATE admin SET session_id = '' WHERE session_id != '' AND session_lease + ".
					$session_lease." <= ".$current_time);


my	$sth = $self->{dbh}->prepare("SELECT * FROM admin WHERE session_id = ".$self->{dbh}->quote($session_id)." AND session_lease + $session_lease >= ".$current_time);
	$sth->execute or croak($self->{dbh}->errstr);
my	$row = $sth->fetchrow_hashref();
	$sth->finish;

my	$admininfo;

	if ($row->{'adminid'} ne '') {
		#鎵惧埌鍖归厤鐨