version 1.2, 2009/06/15 18:45:46 |
version 1.3, 2009/06/16 02:39:09 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: keyring.cgi,v 1.1 2009/06/11 20:40:45 andrew Exp $ |
# $RedRiver: keyring.cgi,v 1.2 2009/06/15 17:45:46 andrew Exp $ |
######################################################################## |
######################################################################## |
# keyring.cgi *** Update and modify keyring files |
# keyring.cgi *** Update and modify keyring files |
# |
# |
|
|
#$pjx->JSDEBUG(1); |
#$pjx->JSDEBUG(1); |
#$pjx->DEBUG(1); |
#$pjx->DEBUG(1); |
|
|
my $password = $query->param('password'); |
my $password = $query->param('unlock_password'); |
my $file = $query->param('file') || ''; |
my $file = $query->param('file') || ''; |
my $category = $query->param('category'); |
my $category = $query->param('category'); |
my $record = $query->param('record'); |
my $record = $query->param('record'); |
|
|
else { |
else { |
return |
return |
'Unlocked: ' |
'Unlocked: ' |
. $query->hidden( 'password', $password ) |
. $query->hidden( 'unlock_password', $password ) |
. $query->submit( -name => 'lock', -value => 'Lock', ); |
. $query->submit( -name => 'lock', -value => 'Lock', ); |
} |
} |
} |
} |
|
|
return 'Password: ' |
return 'Locked - Enter Password to Unlock: ' . $query->br() |
. $query->password_field( |
. $query->password_field( |
-name => 'password', |
-name => 'unlock_password', |
-value => '', |
-value => '', |
-override => 1, |
-override => 1, |
); |
); |
|
|
-default => $file, |
-default => $file, |
-onChange => "changeFile(" |
-onChange => "changeFile(" |
. "['file']," |
. "['file']," |
. "['passwords','files','categories','lists','records','errors']);", |
. "['unlock_passwords','files','categories','lists','records','errors']);", |
); |
); |
} |
} |
else { |
else { |
|
|
-default => $category, |
-default => $category, |
-labels => \%categories, |
-labels => \%categories, |
-onChange => "changeCategory(" |
-onChange => "changeCategory(" |
. "['password','file','category']," |
. "['unlock_password','file','category']," |
. "['lists','errors'], 'POST');", |
. "['lists','errors'], 'POST');", |
); |
); |
} |
} |
|
|
], |
], |
-default => [$record], |
-default => [$record], |
-labels => \%records, |
-labels => \%records, |
-size => 25, |
|
-onChange => "changeRecord(" |
-onChange => "changeRecord(" |
. "['password','file','record']," |
. "['unlock_password','file','record']," |
. "['records','errors'], 'POST');", |
. "['records','errors'], 'POST');", |
); |
); |
} |
} |
|
|
$label = 'Last Change'; |
$label = 'Last Change'; |
} |
} |
|
|
|
my $type = 'textfield'; |
|
if ($key eq 'notes') { |
|
$type = 'textarea'; |
|
} |
|
|
$output |
$output |
.= $label . ': ' |
.= $label . ': ' |
. $query->textfield( |
. $query->$type( |
-name => 'acct_' . $key, |
-name => 'acct_' . $key, |
-value => $acct{$key}{data}, |
-value => $acct{$key}{data}, |
-override => 1, |
-override => 1, |