move defualt_markup_rules to each subrules.

[otptools/otptools.git] / SourceForgeJP.pm

diff --git a/SourceForgeJP.pm b/SourceForgeJP.pm
index f60de43..94b56db 100755 (executable)
--- a/SourceForgeJP.pm
+++ b/SourceForgeJP.pm
@@ -18,9 +18,9 @@ my $default_cookies = 'cookies.txt';
 sub new {\r
   my $class = shift @_;\r
   my $self = {\r
-    'useragent' => $ua_string,\r
-    'cookies_file' => $default_cookies,\r
-  };\r
+                         'useragent' => $ua_string,\r
+                         'cookies_file' => $default_cookies,\r
+                        };\r
   return bless $self, $class;\r
 }\r
 \r
@@ -60,13 +60,21 @@ sub login {
   my $ua = $self->lwp_ua;\r
 \r
   my $form_data = {\r
-    'return_to' => '/',\r
-    'login' => '1',\r
-    'form_loginname' => $login_name,\r
-    'form_pw' => $password,\r
-    'stay_in_ssl' => '1',\r
-  };\r
+                                  'return_to' => '/',\r
+                                  'login' => '1',\r
+                                  'form_loginname' => $login_name,\r
+                                  'form_pw' => $password,\r
+                                  'stay_in_ssl' => '1',\r
+                                 };\r
   my $resp = $ua->post( $login_url, $form_data );\r
+\r
+  if ( $resp->is_error ) {\r
+       print $resp->as_string;\r
+       return 0;\r
+  } else {\r
+       return 1;\r
+  }\r
+\r
 }\r
 \r
 sub logout {\r
@@ -79,7 +87,7 @@ sub logout {
 sub Wiki {\r
   my $self = shift @_;\r
 \r
-  if( ! defined $self->{_wiki} ) {\r
+  if ( ! defined $self->{_wiki} ) {\r
     $self->{_wiki} = WWW::SourceForgeJP::Wiki->new( $self );\r
   }\r
 \r
@@ -87,3 +95,4 @@ sub Wiki {
 }\r
 \r
 1;\r
+\r