(RADIATOR) Digipass support under Solaris

[Roy Badami]

Forgot to update usage though; fixed patch below:

       -roy

--------------------


--- digipass.pl Wed Feb 16 15:38:53 2005
+++ digipass2.pl        Wed Feb 16 19:40:02 2005
@@ -29,6 +29,7 @@
      'importkey=s',         # Key for importing tokens from a file
      'app=s',               # The name of the Digipass application to use. Spaces are important
      'f',                   # Force updates
+     'syncwindow=s',
      );
 
 &NGetOpt(@options) || &usage;
@@ -40,6 +41,7 @@
 my $dbauth     = $main::opt_dbauth     || 'fred';
 my $importkey  = $main::opt_importkey  || '11111111111111111111111111111111'; # For importing
 my $app        = $main::opt_app        || 'APPL 1      ';
+my $syncwindow = $main::opt_syncwindow || 6;
 
 # First make sure we can connect to the database
 # Open the database
@@ -50,7 +52,7 @@
     || die "Could not connect to $dbsource: $DBI::errstr";
 
 # Intialise the kernel paramters that Authen::Digipass requires for most calls.
-$kparms = Authen::Digipass::KernelParms->new();
+$kparms = Authen::Digipass::KernelParms->new(SyncWindow => $syncwindow);
 
 # Now find out the command they want to do
 my $command = shift @ARGV;
@@ -100,6 +102,7 @@
     print "usage: $0 [-h] [-d] [-v] [-n]
   [-dbsource dbi:db:etc] [-dbusername username] [-dbauth password]
   [-importkey nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn] [-app appname]
+  [-syncwindow hours]
   command arg arg ...
   Commands:
     import file file ...

--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.