Mercurial > eagle-eye

comparison Ikariam.pm @ 83:ec087515da38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed a typo.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 25 Oct 2008 01:18:00 +0800
parents 82acbba33b97
children 2c6c219dc3ff
comparison
equal deleted inserted replaced
82:82acbba33b97 83:ec087515da38
383 last; 383 last;
384 } 384 }
385 } 385 }
386 } else { 386 } else {
387 my $res = $self->{mech}->get (sprintf("http://%s/index.php?view=%s&id=%s&position=%d", $self->{server}, $type, $cityId, $position)); 387 my $res = $self->{mech}->get (sprintf("http://%s/index.php?view=%s&id=%s&position=%d", $self->{server}, $type, $cityId, $position));
388 my $url = Ikariam::Extractor->new(content => $res->content)->find('//a[@title="升級建築物"/@href'); 388 my $url = Ikariam::Extractor->new(content => $res->content)->find('//a[@title="升級建築物"]/@href');
389 $self->{mech}->get($url); 389 $self->{mech}->get($url) if(defined($url));
390 } 390 }
391 } 391 }
392 392
393 sub run { 393 sub run {
394 my $self = shift; 394 my $self = shift;