[BACK]Return to test3.pl CVS log [TXT][DIR] Up to [local] / palm / Palm-Keyring

Diff for /palm/Palm-Keyring/test3.pl between version 1.4 and 1.5

version 1.4, 2006/06/13 01:03:39 version 1.5, 2006/12/06 20:58:18
Line 1 
Line 1 
 #!/usr/bin/perl  #!/usr/bin/perl
 # $RedRiver: palmkeyring-tk,v 1.3 2006/04/18 19:39:45 andrew Exp $  # $RedRiver: palmkeyring-tk,v 1.4 2006/06/13 00:03:39 andrew Exp $
 ########################################################################  ########################################################################
 # palmkeyring-tk *** A GUI for 'Keyring for PalmOS' written in perl  # palmkeyring-tk *** A GUI for 'Keyring for PalmOS' written in perl
 #  #
 # 2006.01.31 #*#*# andrew fresh <andrew@mad-techies.org>  # 2006.01.31 #*#*# andrew fresh <andrew@mad-techies.org>
 ########################################################################  ########################################################################
 use strict;  use strict;
 use warnings;  use warnings;
   
 use Tk 8.0;  use Tk 8.0;
 use Tk::widgets qw/ Dialog BrowseEntry ROText ProgressBar /;  use Tk::widgets qw/ Dialog BrowseEntry ROText ProgressBar /;
   
 use lib 'lib';  use lib 'lib';
 use Palm::Keyring;  use Palm::Keyring;
   
 my $NAME    = 'Palm Keyring';  my $NAME    = 'Palm Keyring';
 my $VERSION = 0.01;  my $VERSION = 0.01;
   
 my $File    = shift || "Keys-Gtkr.PDB";  my $File    = shift || "Keys-Gtkr.PDB";
 my $Keyring = Open($File);  my $Keyring = Open($File);
   
   
 my $lock_when     = 0;  my $lock_when     = 0;
 my $unlocked     = time; # Change this to 0 when I get more stuff filled out  my $unlocked     = time; # Change this to 0 when I get more stuff filled out
 my $lock_timeout = 30;  my $lock_timeout = 30;
   
 build_window();  build_window();
 MainLoop;  MainLoop;
   
   
   
   
 sub build_window  sub build_window
 {  {
   
         my $MW = MainWindow->new();          my $MW = MainWindow->new();
         $MW->optionAdd('*BorderWidth' => 1);          $MW->optionAdd('*BorderWidth' => 1);
   
         my $pane = $MW->Panedwindow(          my $pane = $MW->Panedwindow(
                 Name => 'main',                  Name => 'main',
                 -showhandle => 1,                  -showhandle => 1,
                 -orient => 'horizontal'                  -orient => 'horizontal'
         )->pack(-fill => 'both', -expand => 1);          )->pack(-fill => 'both', -expand => 1);
   
         my $lists_frame = $pane->Frame(Name => 'lists')          my $lists_frame = $pane->Frame(Name => 'lists')
                 ->pack(-side=>'top',-anchor=>'nw',-fill=>'x');                  ->pack(-side=>'top',-anchor=>'nw',-fill=>'x');
         my $right_frame = $pane->Frame(Name => 'right',-relief=>'sunken')          my $right_frame = $pane->Frame(Name => 'right',-relief=>'sunken')
                 ->pack(-side=>'top',-anchor=>'ne',-fill=>'both',-expand=>1);                  ->pack(-side=>'top',-anchor=>'ne',-fill=>'both',-expand=>1);
   
         my $account_frame = $right_frame->Frame(Name => 'account')          my $account_frame = $right_frame->Frame(Name => 'account')
                 ->pack(-side=>'top',-anchor=>'nw',-fill=>'both',-expand=>1);                  ->pack(-side=>'top',-anchor=>'nw',-fill=>'both',-expand=>1);
         my $lock_frame    = $right_frame->Frame(Name => 'lock',-relief=>'raised')          my $lock_frame    = $right_frame->Frame(Name => 'lock',-relief=>'raised')
                 ->pack(-side=>'bottom',-fill=>'x');                  ->pack(-side=>'bottom',-fill=>'x');
   
         $pane->add('.main.lists');          $pane->add('.main.lists');
         $pane->add('.main.right');          $pane->add('.main.right');
   
 # Lists  # Lists
         my $category_list = $lists_frame->BrowseEntry()          my $category_list = $lists_frame->BrowseEntry()
                 ->pack(-side=>'top',-fill=>'x');                  ->pack(-side=>'top',-fill=>'x');
         $category_list->insert(-1, 'All');          $category_list->insert(-1, 'All');
         my $accounts_list = $lists_frame->Scrolled('Listbox', -scrollbars => 'e')          my $accounts_list = $lists_frame->Scrolled('Listbox', -scrollbars => 'e')
                 ->pack(-side=>'top',-fill=>'both',-expand=>1);                  ->pack(-side=>'top',-fill=>'both',-expand=>1);
   
   
 # Account  # Account
         my %account_entry;          my %account_entry;
         foreach my $label (qw/Category Name Account Password/) {          foreach my $label (qw/Category Name Account Password/) {
                 $account_entry{$label} = $account_frame->LabEntry(-state=>'readonly',                  $account_entry{$label} = $account_frame->LabEntry(-state=>'readonly',
                         -labelWidth => 10,                          -labelWidth => 10,
                         -labelPack => [-side => 'left', -anchor => 'w'],                          -labelPack => [-side => 'left', -anchor => 'w'],
                         -label=>$label . ': ', -text => 'my' . $label)                          -label=>$label . ': ', -text => 'my' . $label)
                                 ->pack(-side=>'top',-anchor=>'nw',-fill=>'x');                                  ->pack(-side=>'top',-anchor=>'nw',-fill=>'x');
         }          }
   
         $account_entry{'Details'} = $account_frame->ROText(-wrap => 'word',-height=>5,-width=>30)          $account_entry{'Details'} = $account_frame->ROText(-wrap => 'word',-height=>5,-width=>30)
         ->pack(-side=>'top',-anchor=>'nw',-fill=>'both',-expand=>1);          ->pack(-side=>'top',-anchor=>'nw',-fill=>'both',-expand=>1);
         $account_entry{'Details'}->insert('1.0',"This is a test\nThis is only a test");          $account_entry{'Details'}->insert('1.0',"This is a test\nThis is only a test");
   
   
 # Lock  # Lock
         my $lock_button = $lock_frame->Button(-text => 'Lock', -command => \&Lock)          my $lock_button = $lock_frame->Button(-text => 'Lock', -command => \&Lock)
                 ->pack(-side=>'left');                  ->pack(-side=>'left');
         my $lock_progress = $lock_frame->ProgressBar(          my $lock_progress = $lock_frame->ProgressBar(
                 -variable=>\$lock_when,                  -variable=>\$lock_when,
                 -blocks => $lock_timeout,                  -blocks => $lock_timeout,
                 -from   => $lock_timeout,                  -from   => $lock_timeout,
                 -to     => 0,                  -to     => 0,
                 -gap    => 0,                  -gap    => 0,
         )->pack(-side=>'right',-fill=>'x',-expand=>1,-padx=>5);          )->pack(-side=>'right',-fill=>'x',-expand=>1,-padx=>5);
   
         $lock_progress->repeat(500,\&Lock_Timeout);          $lock_progress->repeat(500,\&Lock_Timeout);
   
         my $menubar = build_menubar($MW);          my $menubar = build_menubar($MW);
   
         _populate_lists($Keyring, $category_list, $accounts_list);          _populate_lists($Keyring, $category_list, $accounts_list);
   
         return $MW;          return $MW;
 }  }
   
   
 sub build_menubar {  sub build_menubar {
   
         my $MW = shift;          my $MW = shift;
   
         # Create the menubar and File and Quit menubuttons.  Note          # Create the menubar and File and Quit menubuttons.  Note
         # that the cascade's menu widget is automatically created.          # that the cascade's menu widget is automatically created.
   
         my $menubar = $MW->Menu;          my $menubar = $MW->Menu;
         $MW->configure(-menu => $menubar);          $MW->configure(-menu => $menubar);
         my $file = $menubar->cascade(-label => '~File', -tearoff => 0);          my $file = $menubar->cascade(-label => '~File', -tearoff => 0);
         my $help = $menubar->cascade(-label => '~Help', -tearoff => 0);          my $help = $menubar->cascade(-label => '~Help', -tearoff => 0);
   
         # Create the menuitems for each menu.  First, the File menu item.          # Create the menuitems for each menu.  First, the File menu item.
   
         $file->command(-label => "Open",  -command => \&Open);          $file->command(-label => "Open",  -command => \&Open);
         $file->command(-label => "Close", -command => \&Close);          $file->command(-label => "Close", -command => \&Close);
         $file->command(-label => "Quit",  -command => \&exit);          $file->command(-label => "Quit",  -command => \&exit);
   
         # Finally, the Help menuitems.          # Finally, the Help menuitems.
   
         $help->command(-label => 'Version');          $help->command(-label => 'Version');
         $help->separator;          $help->separator;
         $help->command(-label => 'About');          $help->command(-label => 'About');
   
         my $ver_dialog =   $MW->Dialog(-title   => $NAME . ' Version',          my $ver_dialog =   $MW->Dialog(-title   => $NAME . ' Version',
                 -text    => "$NAME\n\nVersion $VERSION",                  -text    => "$NAME\n\nVersion $VERSION",
                 -buttons => ['OK'],                  -buttons => ['OK'],
                 -bitmap  => 'info');                  -bitmap  => 'info');
         my $about_dialog = $MW->Dialog(-title   => 'About ' . $NAME,          my $about_dialog = $MW->Dialog(-title   => 'About ' . $NAME,
                 -text    => 'About ' . $NAME . "\n" .                  -text    => 'About ' . $NAME . "\n" .
                 '© Copyright 2006 Andrew Fresh <andrew@mad-techies.org>',                  '© Copyright 2006 Andrew Fresh <andrew@mad-techies.org>',
                 -buttons => ['OK']);                  -buttons => ['OK']);
         my $menu = $help->cget('-menu');          my $menu = $help->cget('-menu');
         $menu->entryconfigure('Version', -command => [$ver_dialog   => 'Show']);          $menu->entryconfigure('Version', -command => [$ver_dialog   => 'Show']);
         $menu->entryconfigure('About',   -command => [$about_dialog => 'Show']);          $menu->entryconfigure('About',   -command => [$about_dialog => 'Show']);
   
         $menubar;                        # return the menubar          $menubar;                        # return the menubar
   
 }  }
   
 sub Lock  sub Lock
 {  {
         $unlocked = time;          $unlocked = time;
 }  }
   
 sub Lock_Timeout  sub Lock_Timeout
 {  {
         #return unless $unlocked;          #return unless $unlocked;
         my $diff = time - $unlocked;          my $diff = time - $unlocked;
         if ($diff > $lock_timeout) {          if ($diff > $lock_timeout) {
                 print "Timed out!";                  print "Timed out!";
                 Tk::exit();                  Tk::exit();
                 Lock();                  Lock();
         } else {          } else {
                 $lock_when = $diff;                  $lock_when = $diff;
         }          }
 }  }
   
 sub Open  sub Open
 {  {
         my $file = shift;          my $file = shift;
         my $pdb  = Palm::Keyring->new;          my $pdb  = Palm::Keyring->new;
         $pdb->Load($file) || die "Couldn't load '$file'";          $pdb->Load($file) || die "Couldn't load '$file'";
         return $pdb;          return $pdb;
 }  }
   
 sub Close  sub Close
 {  {
 }  }
   
 sub _populate_lists  sub _populate_lists
 {  {
         my $pdb  = shift;          my $pdb  = shift;
         my $cat  = shift;          my $cat  = shift;
         my $acct = shift;          my $acct = shift;
         foreach my $category (@{ $pdb->{'appinfo'}->{'categories'} }) {          foreach my $category (@{ $pdb->{'appinfo'}->{'categories'} }) {
                 next unless $category->{'name'};                  next unless $category->{'name'};
                 $cat->insert( $category->{'id'}, $category->{'name'});                  $cat->insert( $category->{'id'}, $category->{'name'});
         }          }
         foreach my $account (@{ $pdb->{'records'} }) {          foreach my $account (@{ $pdb->{'records'} }) {
                 next unless $account->{'plaintext'}->{'name'};                  next unless $account->{'plaintext'}->{'name'};
                 $acct->insert('end', $account->{'plaintext'}->{'name'});                  $acct->insert('end', $account->{'plaintext'}->{'name'});
         }          }
   
 }  }
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>