OSDN Git Service

move defualt_markup_rules to each subrules.
[otptools/otptools.git] / sfwman.pl
index 083801b..9f8b522 100755 (executable)
--- a/sfwman.pl
+++ b/sfwman.pl
@@ -7,7 +7,7 @@
 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';
@@ -64,7 +64,11 @@ if( $command eq 'login' ) {   #login
     }
 
     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;