# HG changeset patch
# User "Rex Tsai <chihchun@kalug.linux.org.tw>"
# Date 1226029563 -28800
# Node ID 38e1a82627a9089c6ed44038665fb408c4ede22a
# Parent  1a7b2d42fcbf7df0263c0f37436b6f77b8bec1ab
commented out the debug message

diff -r 1a7b2d42fcbf -r 38e1a82627a9 scan.pl
--- 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);
     }