use warnings;
use strict;
use FindBin;
use lib "$FindBin::RealBin/";
use BuagentAuth;

my $auth_ok = 0;

my $user = <>;
chomp($user);
my $pass = <>;
chomp($pass);

my $auth_ref = BuagentAuth::auth($user, $pass);
print "auth_ok:" . $auth_ref->{auth_ok} . "\n";
if ($auth_ref->{auth_ok} == 1) {
        print "uid:" . $auth_ref->{uid} . "\n";
        print "gid:" . $auth_ref->{gid} . "\n";
        print "dir:home:" . $auth_ref->{homedir} . "\n";
}