| … | |
… | |
| 34 | my $package = __PACKAGE__; |
34 | my $package = __PACKAGE__; |
| 35 | $package =~ s/([^:]*)$/$n/; |
35 | $package =~ s/([^:]*)$/$n/; |
| 36 | return $package; |
36 | return $package; |
| 37 | } |
37 | } |
| 38 | |
38 | |
| 39 | =pod |
|
|
| 40 | sub connect($$$) { |
|
|
| 41 | my $self = shift; |
|
|
| 42 | my $db = shift; |
|
|
| 43 | my $mode = shift; |
|
|
| 44 | return if defined $self->{$db."_db"}; |
|
|
| 45 | $self->{$db."_db"} = $self->{dbModule}->new($db."_file", $mode); |
|
|
| 46 | $self->{$db."_db"}->connect(); |
|
|
| 47 | } |
|
|
| 48 | |
|
|
| 49 | sub disconnect($$) { |
|
|
| 50 | my $self = shift; |
|
|
| 51 | my $db = shift; |
|
|
| 52 | return unless defined $self->{$db."_db"}; |
|
|
| 53 | $self->{$db."_db"}->disconnect; |
|
|
| 54 | } |
|
|
| 55 | =cut |
|
|
| 56 | |
|
|
| 57 | # ----- |
39 | # ----- |
| 58 | |
40 | |
| 59 | =pod |
|
|
| 60 | sub getUsers($) { |
41 | sub getUsers($) { |
| 61 | my $self = shift; |
42 | my $self = shift; |
| 62 | my @password_users, @permissions_users, @keys_users; |
43 | my @password_users, @permissions_users, @keys_users; |
| 63 | if ($self->{password_db}->connect("ro")) { |
44 | if ($self->{password_db}->connect("ro")) { |
| 64 | @password_users = keys %{$self->{password_db}->hashRef}; |
45 | @password_users = keys %{$self->{password_db}->hashRef}; |
| … | |
… | |
| 76 | foreach (@password_users, @permissions_users, @keys_users) { |
57 | foreach (@password_users, @permissions_users, @keys_users) { |
| 77 | $all_users{$_}++; |
58 | $all_users{$_}++; |
| 78 | } |
59 | } |
| 79 | return keys %all_users; |
60 | return keys %all_users; |
| 80 | } |
61 | } |
| 81 | =cut |
|
|
| 82 | |
62 | |
| 83 | # ----- |
63 | # ----- |
| 84 | |
64 | |
| 85 | sub getPassword($$) { |
65 | sub getPassword($$) { |
| 86 | my $self = shift; |
66 | my $self = shift; |
Parent Directory
| 
Revision Log
| 
Patch