9 |
|
|
10 |
$| = 1; |
$| = 1; |
11 |
|
|
12 |
|
my $admins = { |
13 |
|
'dpavlin' => 'my admin secret', |
14 |
|
}; |
15 |
|
|
16 |
my $espi_hook = { |
my $espi_hook = { |
17 |
# 'authenticate-user' => 'ACCESS GRANTED ADMIN', |
# 'authenticate-user' => 'ACCESS GRANTED ADMIN', |
18 |
# 'authenticate-user' => 'ACCESS GRANTED', |
# 'authenticate-user' => 'ACCESS GRANTED', |
20 |
my $param = shift; |
my $param = shift; |
21 |
warn "param = ",dump( $param ); |
warn "param = ",dump( $param ); |
22 |
my $ret = 'ACCESS GRANTED'; |
my $ret = 'ACCESS GRANTED'; |
23 |
# $ret .= ' ADMIN'; |
$ret .= ' ADMIN' if defined( $admins->{ $param->{uid} } ) && $admins->{ $param->{uid} } eq $param->{pwd}; |
24 |
return $ret; |
return $ret; |
25 |
} |
} |
26 |
}; |
}; |