Mercurial > eagle-eye

comparison Ikariam.pm @ 190:5501ce37b50f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
adjust Swordsman number
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 02 Nov 2008 22:47:22 +0800
parents c6c6db6eea76
children 1332231eb5a0
comparison
equal deleted inserted replaced
187:fa34cdb6879a 190:5501ce37b50f
606 my $treaty = Ikariam::Extractor->new(content => $res->content)->find('//div[@class="warning"]'); 606 my $treaty = Ikariam::Extractor->new(content => $res->content)->find('//div[@class="warning"]');
607 if(!defined($treaty)) { 607 if(!defined($treaty)) {
608 $self->{mech}->submit_form( 608 $self->{mech}->submit_form(
609 form_number => 1, 609 form_number => 1,
610 fields => { 610 fields => {
611 cargo_army_302 => '2', # 劍士 611 cargo_army_302 => '3', # 劍士
612 } 612 }
613 ); 613 );
614 } else { 614 } else {
615 # put the id in the friends.txt file. 615 # put the id in the friends.txt file.
616 Ikariam::Cities->has_a(user => 'Ikariam::User'); 616 Ikariam::Cities->has_a(user => 'Ikariam::User');