*Acme::Person::Bonnu

■[脳内][Perl]WWW::CybozuOffice6

パッチを取り込んでいただけると幸せなのでトラバってみます。

今更なネタですみません。

--- lib/WWW/CybozuOffice6.pm.org        2006-08-25 14:29:04.429690184 +0900
+++ lib/WWW/CybozuOffice6.pm            2006-08-25 15:44:06.187475288 +0900
@@ -12,7 +12,7 @@
 use 5.006;
 use strict;
 use warnings;
-use fields qw(url user pass ua response ocode);
+use fields qw(url user id pass ua response ocode);
 use vars qw($VERSION);

 use Carp;
@@ -57,6 +57,11 @@
     return $self->_accessor('user', @_);
 }

+sub id (\$@) {
+    my $self = shift;
+    return $self->_accessor('id', @_);
+}
+
 sub password (\$@) {
     my $self = shift;
     return $self->_accessor('pass', @_);
@@ -94,6 +99,7 @@
     }
     # parse and return the result
     my $content = Jcode::convert($self->{response}->content, $self->{ocode});
+print $content,"\n";
     return $self->parse_externalAPINotify($content);
 }

@@ -153,14 +159,15 @@
 sub _request (\$$) {
     my ($self, $page) = @_;
     croak 'url not set' unless defined($self->{url});
-    croak 'user not set' unless defined($self->{user});
+    croak 'user/id not set' unless defined $self->{user} or defined $self->{id};
     croak 'password not set' unless defined($self->{pass});
     $self->{response} =
        $self->{ua}->post($self->{url} . '?page=' . uri_escape($page),
                          { _System => 'login',
                            _Login => '1',
                            GuideNavi => '1',
-                           _Account => $self->{user},
+                           defined $self->{user} ? (_Account => $self->{user}) : (),
+                           defined $self->{id} ? (_Id => $self->{id}) : (),
                            Password => $self->{pass} });
     return $self->{response}->is_success;
 }

# うちで使ってるサイボウズはアカウントがプルダウンの選択式でした。色々あるんですね。

Permalink | コメント(2) | トラックバック(0) | 18:33