diff scan.pl @ 239:38e1a82627a9

commented out the debug message
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Fri, 07 Nov 2008 11:46:03 +0800
parents 1a7b2d42fcbf
children a654d43731f0
line wrap: on
line diff
--- a/scan.pl	Fri Nov 07 11:30:11 2008 +0800
+++ b/scan.pl	Fri Nov 07 11:46:03 2008 +0800
@@ -16,7 +16,7 @@
     }
 
     foreach my $h_city (@cities) {
-        Carp::carp(sprintf("checking %s\n", $h_city->{'cityname'}));
+# Carp::carp(sprintf("checking %s\n", $h_city->{'cityname'}));
         $h_city->{island} = $island;
         $h_city->{'time'} = time;
         my $c = Ikariam::Cities->retrieve($h_city->{cityId});
@@ -45,7 +45,7 @@
         $users = $::i->viewScore($x, $userName, 0);
 
         foreach my $h_user (values(%{$users})) {
-            Carp::croak(sprintf("Saving user %s\n", $h_user->{'name'}));
+# Carp::carp(sprintf("Saving user %s\n", $h_user->{'name'}));
             $h_user->{'time'} = time;
 
             my $user = Ikariam::User->retrieve($h_user->{'id'});
@@ -129,7 +129,7 @@
     my $cities = $i->check;
     # random
     foreach my $cityId (keys(%$cities)) {
-        printf("%s %s\n", $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
+# Carp::carp(sprintf("Checking island location [%s:%s]\n", $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y}));
         my @islands = $i->viewWorldMap( $cities->{$cityId}->{island}->{x},  $cities->{$cityId}->{island}->{y});
         saveIslands(@islands);
     }