[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.2 and 1.4

version 1.2, 2009/06/15 18:45:46 version 1.4, 2009/07/16 21:08:45
Line 1 
Line 1 
 #!/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.3 2009/06/16 01:39:09 andrew Exp $
 ########################################################################  ########################################################################
 # keyring.cgi *** Update and modify keyring files  # keyring.cgi *** Update and modify keyring files
 #  #
Line 39 
Line 39 
 #$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');
Line 120 
Line 120 
         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,
         );          );
Line 152 
Line 152 
                 -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 {
Line 180 
Line 180 
   
     return $query->popup_menu(      return $query->popup_menu(
         -name     => 'category',          -name     => 'category',
         -values   => [ sort { $a <=> $b } keys %categories ],          -values   => [
               sort { lc( $categories{$a} ) cmp lc( $categories{$b} ) }
                   keys %categories
           ],
         -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');",
     );      );
 }  }
Line 211 
Line 214 
         ],          ],
         -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');",
     );      );
 }  }
Line 271 
Line 273 
             $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,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>