Changeset 27248

Timestamp:

12/23/08 02:38:54 (4 years ago)

Author:

lopnor

Message:

cell manipulations

Location:

lang/perl/Net-Google-Spreadsheets/trunk

Files:

• MANIFEST (modified) (1 diff)
• lib/Net/Google/Spreadsheets.pm (modified) (3 diffs)
• lib/Net/Google/Spreadsheets/Base.pm (modified) (4 diffs)
• lib/Net/Google/Spreadsheets/Cell.pm (added)
• lib/Net/Google/Spreadsheets/Row.pm (added)
• lib/Net/Google/Spreadsheets/Worksheet.pm (modified) (3 diffs)
• t/05_cell.t (added)
• t/06_rows.t (moved) (moved from lang/perl/Net-Google-Spreadsheets/trunk/t/05_rows.t)

lang/perl/Net-Google-Spreadsheets/trunk/MANIFEST

@@ -19 +19 @@
 lib/Net/Google/Spreadsheets.pm
 lib/Net/Google/Spreadsheets/Base.pm
+lib/Net/Google/Spreadsheets/Cell.pm
+lib/Net/Google/Spreadsheets/Row.pm
 lib/Net/Google/Spreadsheets/Spreadsheet.pm
 lib/Net/Google/Spreadsheets/Worksheet.pm

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets.pm

@@ -160 +160 @@
 
 sub post {
-    my ($self, $url, $entry, $query) = @_;
+    my ($self, $url, $entry, $header) = @_;
     my $res = $self->request(
         {
             uri => $url,
-            query => $query || undef,
             content => $entry->as_xml,
+            header => $header || undef,
             content_type => 'application/atom+xml',
         }
     );
-    return XML::Atom::Entry->new(\($res->content));
+    return (ref $entry)->new(\($res->content));
+#    return XML::Atom::Entry->new(\($res->content));
 }
 
@@ -179 +180 @@
             uri => $args->{self}->editurl,
             content => $args->{entry}->as_xml,
-            header => {'If-Match' => $args->{self}->etag},
+            header => {'If-Match' => $args->{self}->etag },
             content_type => 'application/atom+xml',
         }
@@ -197 +198 @@
   use Net::Google::Spreadsheets;
 
-  my $api = Net::Google::Spreadsheets->new;
-  my $res = $api->login(
-    {
-        username => 'myname@gmail.com', 
-        password => 'mypassword'
-    }
+  my $service = Net::Google::Spreadsheets->new(
+    username => 'myname@gmail.com', 
+    password => 'mypassword'
   );
   
-  my @spreadsheets = $api->list();
-
-  my $spreadsheet = $api->spreadsheet('pZV-pns_sm9PtH2WowhU2Ew');
+  my @spreadsheets = $service->spreadsheets();
+
+  my $spreadsheet = $api->spreadsheet({key => 'pZV-pns_sm9PtH2WowhU2Ew'});
   my $worksheet = $spreadsheet->worksheet(1);
 

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets/Base.pm

@@ -17 +17 @@
     gs => 'http://schemas.google.com/spreadsheets/2006',
     gsx => 'http://schemas.google.com/spreadsheets/2006/extended',
+    batch => 'http://schemas.google.com/gdata/batch',
 );
 
@@ -55 +56 @@
 has content => (
     isa => 'Str',
-    is => 'rw',
+    is => 'ro',
 );
 
@@ -92 +93 @@
 }
 
+sub list_contents {
+    my ($self, $class, $cond) = @_;
+    $self->content or return;
+    my $feed = $self->service->feed($self->content, $cond);
+    return map {$class->new(container => $self, atom => $_)} $feed->entries;
+}
+
 sub entry {
     my ($self) = @_;
@@ -107 +115 @@
 sub update {
     my ($self) = @_;
+    $self->etag or return;
     my $atom = $self->service->put(
         {

lang/perl/Net-Google-Spreadsheets/trunk/lib/Net/Google/Spreadsheets/Worksheet.pm

@@ -1 +1 @@
 package Net::Google::Spreadsheets::Worksheet;
 use Moose;
+use Net::Google::Spreadsheets::Row;
+use Net::Google::Spreadsheets::Cell;
 
 extends 'Net::Google::Spreadsheets::Base';
@@ -18 +20 @@
 );
 
+has cellsfeed => (
+    isa => 'Str',
+    is => 'ro',
+);
+
 around entry => sub {
     my ($next, $self) = @_;
@@ -28 +35 @@
 after _update_atom => sub {
     my ($self) = @_;
+    $self->{content} = $self->atom->content->elem->getAttribute('src');
+    ($self->{cellsfeed}) = map {$_->href} grep {
+        $_->rel eq 'http://schemas.google.com/spreadsheets/2006#cellsfeed'
+    } $self->atom->link;
     $self->{row_count} = $self->atom->get($self->gs, 'rowCount');
     $self->{col_count} = $self->atom->get($self->gs, 'colCount');
 };
+
+
+sub rows {
+    my ($self, $cond) = @_;
+    return $self->list_contents('Net::Google::Spreadsheets::Row', $cond);
+}
+
+sub cell {
+    my ($self, $row, $col) = @_;
+    $self->cellsfeed or return;
+    my $url = sprintf "%s/R%sC%s", $self->cellsfeed, $row, $col;
+    return Net::Google::Spreadsheets::Cell->new(
+        container => $self,
+        atom => $self->service->entry($url),
+    );
+}
+
+sub batchupdate_cell {
+    my ($self, @args) = @_;
+    my $feed = XML::Atom::Feed->new;
+    for ( @args ) {
+        my $id = sprintf("%s/R%sC%s",$self->cellsfeed, $_->{row}, $_->{col});
+        my $entry = Net::Google::Spreadsheets::Cell->new(
+            id => $id,
+            editurl => $id,
+            row => $_->{row},
+            col => $_->{col},
+            input_value => $_->{input_value},
+        )->entry;
+        $entry->set($self->batch, operation => '', {type => 'update'});
+        $entry->set($self->batch, id => $id);
+        $feed->add_entry($entry);
+    }
+    my $res_feed = $self->service->post($self->cellsfeed."/batch", $feed, {'If-Match' => '*'});
+    $self->sync;
+    return map { 
+        Net::Google::Spreadsheets::Cell->new(
+            atom => $_,
+            container => $self,
+        )
+    } grep {
+        my ($node) = $_->elem->getChildrenByTagNameNS($self->batch->{uri}, 'status');
+        $node->getAttribute('code') == 200;
+    } $res_feed->entries;
+}
+
+sub insert_row {
+    my ($self, $args) = @_;
+    my $entry = XML::Atom::Entry->new;
+    while (my ($key, $value) = each %{$args}) {
+        $entry->set($self->gsx, $key, $value);
+    }
+    my $atom = $self->service->post($self->content, $entry);
+    $self->sync;
+    return Net::Google::Spreadsheets::Row->new(
+        container => $self,
+        atom => $atom,
+    );
+}
 
 1;