beta 1

[otptools/otptools.git] / SourceForgeJP.pm

diff --git a/SourceForgeJP.pm b/SourceForgeJP.pm
old mode 100755 (executable)
new mode 100644 (file)
index f60de43..5c5ecb0
--- a/SourceForgeJP.pm
+++ b/SourceForgeJP.pm
@@ -13,14 +13,14 @@ package WWW::SourceForgeJP;
 my $ua_string = 'Mozilla/5.0 (Windows; U; Windows NT 6.0; ja; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1';\r
 my $login_url = 'https://sourceforge.jp/account/login.php';\r
 my $logout_url = 'https://sourceforge.jp/account/logout.php';\r
-my $default_cookies = 'cookies.txt';\r
+my $default_cookies = $ENV{"HOME"} . "/" . '.sfjp_cookies';\r
 \r
 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