eagle-eye: scan.pl annotate

annotate scan.pl @ 43:1dbb3e3c8691

added database init sample in the README file.

author	"Rex Tsai <chihchun@kalug.linux.org.tw>"
date	Fri, 17 Oct 2008 02:10:33 +0800
parents	5849b6fdc76c
children	96ee35378696

rev	line source
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	1 #!/usr/bin/perl
abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	2 use strict;
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	3 use Data::Dumper;
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	4 use Ikariam;
abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	5
abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	6 package main;
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	7 sub saveCities
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	8 {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	9 my ($island, @cities) = @_;
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	10
25 51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	11 die ("empty cities list.\n") if ($#cities == -1);
51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	12
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	13 foreach my $city (@cities)
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	14 {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	15 $city->{island} = $island;
16 59f2c435760c implemented cached by timing. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 14 diff changeset	16 $city->{'time'} = time;
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	17 if(my $c = Ikariam::Cities->retrieve($city->{cityId}))
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	18 {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	19 foreach my $i (keys(%$city)) {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	20 eval($c->$i($city->{$i}));
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	21 # printf("%s %s ", $i, $city->{$i});
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	22 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	23 # print ("\n");
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	24
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	25 $c->autoupdate(1);
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	26 $c->update();
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	27 } else {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	28 Ikariam::Cities->insert($city);
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	29 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	30
36 704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	31 printf("city %s (%d) at island (%d) saved\n",
704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	32 $city->{cityname},
704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	33 $city->{cityId},
704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	34 $island);
704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	35
25 51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	36 my $user = Ikariam::User->retrieve($city->{user});
36 704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	37 if(!defined($user) \|\| $user->time le (time - 60601)) {
25 51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	38 # Download user profile.
51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	39 foreach my $x (qw/score army_score_main trader_score_secondary/)
51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	40 {
51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	41 my $users = $::i->viewScore($x, $city->{owner}, 0);
51a35c3d057e cached 12 hours for user account. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 22 diff changeset	42 saveUser($users);
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	43 }
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	44 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	45 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	46 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	47
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	48 sub saveUser
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	49 {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	50 my $users = shift;
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	51
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	52 foreach my $h_user (values(%{$users}))
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	53 {
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	54 # print(Dumper($user));
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	55 printf("Saving user %s\n", $h_user->{'name'});
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	56 $h_user->{'time'} = time;
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	57 my $user;
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	58 if($user = Ikariam::User->retrieve($h_user->{id}))
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	59 {
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	60 foreach my $i (keys(%$h_user)) {
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	61 # eval($c->$i($h_user->{$i}));
5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	62 $user->set($i => $h_user->{$i});
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	63 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	64 } else {
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	65 $user = Ikariam::User->insert($h_user);
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	66 }
20 5635e75c92d0 the user profile is also cached for 1 hour. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 18 diff changeset	67 $user->update();
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	68 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	69 }
8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	70
41 5849b6fdc76c removed my password from scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 36 diff changeset	71 our $i = new Ikariam($::server, $::user, $::pass);
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	72
10 f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	73 my @islands;
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 7 diff changeset	74 if($#ARGV == 1) {
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	75 $i->login;
2 0fb73a7a0b94 ok, we done basic island scanning functions. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 1 diff changeset	76 @islands = $i->viewWorldMap($ARGV[0], $ARGV[1]);
10 f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	77 } elsif($#ARGV == 0) {
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	78 $i->login;
10 f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	79 my $island = $ARGV[0];
f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	80
f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	81 my @cities = $i->viewIsland($island);
f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	82 saveCities($island, @cities);
f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	83 $i->logout;
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	84 return;
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 7 diff changeset	85 } elsif($#ARGV == -1) {
14 8b7bc598ba06 we now also save user's profile when scanning islands. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 10 diff changeset	86 $i->login;
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 7 diff changeset	87 @islands = $i->viewHomeMap();
2 0fb73a7a0b94 ok, we done basic island scanning functions. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 1 diff changeset	88 } else {
8 e4b3168d0319 implemented sheep and enemy scripts. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 7 diff changeset	89 die("Usage: $0\nUsage: $0 x y\n");
2 0fb73a7a0b94 ok, we done basic island scanning functions. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 1 diff changeset	90 }
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	91
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	92 foreach my $h_island (@islands)
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	93 {
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	94 printf("checking island %d\n", $h_island->{id});
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	95
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	96 my $island;
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	97 if($island = Ikariam::Island->retrieve($h_island->{id})) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	98 foreach my $i (keys(%$h_island)) {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	99 $island->set($i => $h_island->{$i});
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	100 }
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	101 } else {
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	102 $island = Ikariam::Island->insert($h_island);
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	103 }
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	104
abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	105 # scanning the island
36 704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	106 if($island->time le (time - 60606))
16 59f2c435760c implemented cached by timing. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 14 diff changeset	107 {
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	108 my @cities = $i->viewIsland($h_island->{id});
fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	109 saveCities($h_island->{id}, @cities);
16 59f2c435760c implemented cached by timing. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 14 diff changeset	110
36 704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	111 $island->set('time', time);
704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	112 }
18 fd44e3a1f800 fixed the cache. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 16 diff changeset	113 $island->update();
36 704d76b67670 fixed the island cache problem "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 25 diff changeset	114
10 f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	115 }
f590b5ea5e55 fixed bug of sheep.pl "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: 8 diff changeset	116 $i->logout;
0 abaee7064429 new scanning prototype. "Rex Tsai <chihchun@kalug.linux.org.tw>" parents: diff changeset	117 # $i->getCityInfo();

Mercurial > eagle-eye

annotate scan.pl @ 43:1dbb3e3c8691