version 1.5, 2010/01/19 18:01:23 |
version 1.6, 2012/06/10 04:48:05 |
|
|
} |
} |
|
|
sub password { |
sub password { |
|
my $message = ''; |
if ($password) { |
if ($password) { |
my $pdb = open_pdb(); |
my $pdb = open_pdb(); |
eval { $pdb->Password($password) }; |
my $valid = eval { $pdb->Password($password) }; |
if ($@) { |
if ($@) { |
error($@); |
error($@); |
|
$message = "Error: $@"; |
} |
} |
else { |
elsif ($valid) { |
return |
return |
'Unlocked: ' |
'Unlocked: ' |
. $query->hidden( 'unlock_password', $password ) |
. $query->hidden( 'unlock_password', $password ) |
. $query->submit( -name => 'lock', -value => 'Lock', ); |
. $query->submit( -name => 'lock', -value => 'Lock', ); |
} |
} |
|
else { |
|
$message = "$message<br>Invalid Password"; |
|
} |
} |
} |
|
|
return 'Locked - Enter Password to Unlock: ' . $query->br() |
return 'Locked - Enter Password to Unlock: ' . $query->br() |
. $query->password_field( |
. $message . $query->password_field( |
-name => 'unlock_password', |
-name => 'unlock_password', |
-value => '', |
-value => '', |
-override => 1, |
-override => 1, |
); |
); |
} |
} |
|
|