A sample script to exercise the new functionality:
#!/usr/bin/perl
use OpenILS::Utils::Cronscript;
my $script = OpenILS::Utils::Cronscript->new();
my $login = { username => $ARGV[0], password => $ARGV[1], workstation => $ARGV[2] };
my $authtoken = $script->authenticate($login);
print($script->authtoken . "\n"); print($script->authtime . "\n");
A sample script to exercise the new functionality:
#!/usr/bin/perl
use OpenILS: :Utils: :Cronscript;
my $script = OpenILS: :Utils: :Cronscript- >new();
my $login = {
username => $ARGV[0],
password => $ARGV[1],
workstati on => $ARGV[2]
};
my $authtoken = $script- >authenticate( $login) ;
print($ script- >authtoken . "\n"); script- >authtime . "\n");
print($