From 819e61b742404d9a8085acfceec973d317828adb Mon Sep 17 00:00:00 2001 From: JT Smith Date: Wed, 20 Oct 2010 14:40:08 -0500 Subject: [PATCH] more logging fo fetching spies --- lib/Lacuna/DB/Result/Ships.pm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/lib/Lacuna/DB/Result/Ships.pm b/lib/Lacuna/DB/Result/Ships.pm index 8ddc2b0b..b231e8a2 100644 --- a/lib/Lacuna/DB/Result/Ships.pm +++ b/lib/Lacuna/DB/Result/Ships.pm @@ -237,8 +237,29 @@ sub pick_up_spies { foreach my $id (@{$self->payload->{fetch_spies}}) { my $spy = $spies->find($id); next unless defined $spy; + $cargo_log->new({ + message => 'found spy', + body_id => $self->foreign_body_id, + data => {spy => $id}, + object_type => ref($self), + object_id => $self->id, + })->insert; next unless $spy->is_available; + $cargo_log->new({ + message => 'spy is available', + body_id => $self->foreign_body_id, + data => {spy => $id}, + object_type => ref($self), + object_id => $self->id, + })->insert; next unless $spy->empire_id eq $empire_id; + $cargo_log->new({ + message => 'empire matches up', + body_id => $self->foreign_body_id, + data => {spy => $id}, + object_type => ref($self), + object_id => $self->id, + })->insert; push @riding, $spy->id; $spy->available_on($self->date_available); $spy->on_body_id($self->body_id); -- 2.51.2