Changeset 447 for cybozu2ical/trunk/lib

Timestamp:

10/16/07 17:33:37 (15 months ago)

Author:

ogawa

Message:

Add --input-csv and --output-csv options.

Files:

• cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm (modified) (5 diffs)

cybozu2ical/trunk/lib/WWW/CybozuOffice6/Calendar.pm

@@ -35 +35 @@
 }
 
-sub get_items {
-    my $this = shift;
-
-    my $res = $this->_request();
+sub request {
+    my $this = shift;
+
+    my $res = $this->{ua}->post($this->{url} . '?page=SyncCalendar', {
+        _System    => 'login',
+        _Login     => 1,
+        csv        => 1,
+        notimecard => 1,
+        defined $this->{username} ? (_Account => $this->{username}) : (),
+        defined $this->{userid}   ? (_Id      => $this->{userid}  ) : (),
+        Password   => $this->{password} || '',
+    });
     die 'Failed to access Cybozu Office 6: ' . $res->status_line
         unless $res->is_success;
@@ -45 +53 @@
     from_to($content, $this->{input_encoding} || 'shiftjis', 'utf8');
     my @lines = grep /^\d+,ts\.\d+,/, split(/\r?\n/, $content);
+    $this->{response} = \@lines;
+
+    scalar @lines ? \@lines : undef;
+}
+
+sub read_from_csv_file {
+    my $this = shift;
+    my ($file) = @_;
+    local *FH;
+    open FH, $file or die "Failed to read $file";
+    my @lines;
+    while (<FH>) {
+        chomp; push @lines, $_;
+    }
+    close(FH);
+    $this->{response} = \@lines;
+
+    scalar @lines ? \@lines : undef;
+}
+
+sub response {
+    my $res = $_[0]->{response} || {};
+    wantarray ? @$res : $res;
+}
+
+sub get_items {
+    my $this = shift;
 
     my @items;
     my $csv = Text::CSV_XS->new({ binary => 1 });
-    for my $line (@lines) {
+    for my $line ($this->response) {
         $csv->parse($line)
             or die 'Failed to parse CSV input';
@@ -103 +138 @@
 }
 
-sub _request {
-    my $this = shift;
-    $this->{ua}->post($this->{url} . '?page=SyncCalendar', {
-        _System    => 'login',
-        _Login     => 1,
-        csv        => 1,
-        notimecard => 1,
-        defined $this->{username} ? (_Account => $this->{username}) : (),
-        defined $this->{userid}   ? (_Id      => $this->{userid}  ) : (),
-        Password   => $this->{password} || '',
-    });
-}
-
 package WWW::CybozuOffice6::Calendar::Event;
 
@@ -268 +290 @@
   );
 
+  # request calendar contents
+  $calendar->request();
+
   # get list of items in the calendar
   my @items = $calendar->get_items();
@@ -346 +371 @@
 Gets/sets the Cybozu Office 6 encoding.
 
+=item request()
+
+Requests to obtain the contents of Cybozu Office 6 Calendar.
+
+=item read_from_csv_file($filename)
+
+Instead of requesting Cybozu Office 6 server, reads from a local CSV file.
+
 =item get_items()