update lighthouse replica: use auth; versions and attachments can ret…

…urn array
hashbangperl · Sep 7, 2009 · 300ef67 · 300ef67
1 parent b3af3f0
commit 300ef67
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/lib/App/SD/Replica/lighthouse.pm b/lib/App/SD/Replica/lighthouse.pm
@@ -69,8 +69,10 @@ sub BUILD {
     $self->project( $project );
 
     my $lighthouse = Net::Lighthouse::Project->new(
-        $email ? ( email => $email, password => $password ) : (),
-        $token ? ( token => $token ) : (),
+        auth => {
+            $email ? ( email => $email, password => $password ) : (),
+            $token ? ( token => $token ) : (),
+        },
         account => $account,
     );
     $lighthouse->load( $project );
@@ -91,15 +93,15 @@ sub get_txn_list_by_date {
             creator => $_->creator_name,
             created => $_->created_at->epoch,
         }
-    } @{ $ticket_obj->versions };
+    } $ticket_obj->versions;
 
     if ( $ticket_obj->attachments ) {
         my $user = Net::Lighthouse::User->new(
             map { $_ => $self->sync_source->lighthouse->$_ }
               grep { $self->sync_source->lighthouse->$_ }
               qw/account email password token/
         );
-        for my $att ( @{ $ticket_obj->attachments } ) {
+        for my $att ( $ticket_obj->attachments ) {
             $user->load( $att->uploader_id );
             push @txns,
               {

diff --git a/lib/App/SD/Replica/lighthouse/PullEncoder.pm b/lib/App/SD/Replica/lighthouse/PullEncoder.pm
@@ -71,8 +71,8 @@ sub find_matching_transactions {
     my $sequence = 0;
     # hack, let's add sequence for comments
     my @raw_versions =
-      map { $_->{sequence} = $sequence++; $_ } @{ $args{ticket}->versions };
-    my @raw_attachments = @{ $args{ticket}->attachments|| [] };
+      map { $_->{sequence} = $sequence++; $_ } $args{ticket}->versions;
+    my @raw_attachments = $args{ticket}->attachments;
 
     my @raw_txns = ( @raw_versions, @raw_attachments );
     my @txns;
@@ -256,8 +256,7 @@ sub transcode_one_txn {
                         my $user = Net::Lighthouse::User->new(
                             map { $_ => $self->sync_source->lighthouse->$_ }
                               grep { $self->sync_source->lighthouse->$_ }
-                              qw/account
-                              email password token/
+                              qw/account auth/
                         );
                         eval { $user->load($old) };
                         if ($@) {
@@ -397,7 +396,7 @@ sub resolve_user_id_to {
         my $user = Net::Lighthouse::User->new(
             map { $_ => $self->sync_source->lighthouse->$_ }
               grep { $self->sync_source->lighthouse->$_ }
-              qw/account email password token/
+              qw/account auth/
         );
         $user->load( $id );
         return $user->name;