diff scan.pl @ 295:15c288dd7dc5

checking spy risks
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 07 Dec 2008 15:10:14 +0800
parents aaffc50e3318
children 6ca0677a361e
line wrap: on
line diff
--- a/scan.pl	Fri Dec 05 20:22:20 2008 +0800
+++ b/scan.pl	Sun Dec 07 15:10:14 2008 +0800
@@ -17,7 +17,6 @@
 
 sub new {
     my($class, $i) = @_;
-    warn("new scanner");
     my $self = {
         ikariam => $i,
     };
@@ -47,6 +46,8 @@
         } else {
             $c = Ikariam::Cities->insert($h_city);
         }
+ 
+        $c->set(risk => $self->{ikariam}->viewSendSpy($h_city->{cityId}));
         $c->update();
 
         my $user = Ikariam::User->retrieve($h_city->{'user'});