/usr/share/perl5/Event/RPC/AuthPasswdHash.pm is in libevent-rpc-perl 1.04-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | package Event::RPC::AuthPasswdHash;
use strict;
use Carp;
sub get_passwd_href { shift->{passwd_href} }
sub set_passwd_href { shift->{passwd_href} = $_[1] }
sub new {
my $class = shift;
my ($passwd_href) = @_;
my $self = bless {
passwd_href => $passwd_href,
};
return $self;
}
sub check_credentials {
my $self = shift;
my ($user, $pass) = @_;
return $pass eq $self->get_passwd_href->{$user};
}
1;
|