version 1.11, 2008/09/17 15:49:50 |
version 1.12, 2009/12/16 22:54:55 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver: example3.pl,v 1.10 2008/03/05 22:04:46 andrew Exp $ |
# $RedRiver: example3.pl,v 1.11 2008/09/17 14:49:50 andrew Exp $ |
######################################################################## |
######################################################################## |
# palmkeyring.pl *** a command line client for Keyring databases. |
# palmkeyring.pl *** a command line client for Keyring databases. |
# |
# |
|
|
if ($Action_List) { |
if ($Action_List) { |
show_list(); |
show_list(); |
} elsif ($Action_Show) { |
} elsif ($Action_Show) { |
|
push @{ $Names }, @ARGV; |
show_items($Names); |
show_items($Names); |
} elsif (defined $Categories) { |
} elsif (defined $Categories) { |
show_categories(); |
show_categories(); |