use warnings;
use strict;
-use lib 'C:\Users\hirom\Documents\Dev\sfwiki';
+use lib 'C:\Users\hirom\bin/otptools';
use utf8;
use open IO => ':utf8';
}
print "do login...\n";
- login( $login_name, $password);
+ if( login( $login_name, $password) ) {
+ print "ok.\n";
+ } else {
+ print "login failed.\n"
+ }
} elsif( $command eq 'attach' ) { #attach
my %opts;