[BACK]Return to keyring.cgi CVS log [TXT][DIR] Up to [local] / palm / Palm-Keyring / examples / cgi / bin

Diff for /palm/Palm-Keyring/examples/cgi/bin/keyring.cgi between version 1.5 and 1.6

version 1.5, 2010/01/19 18:01:23 version 1.6, 2012/06/10 04:48:05
Line 113 
Line 113 
 }  }
   
 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,
         );          );
 }  }
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>