Mercurial > eagle-eye

comparison Ikariam.pm @ 6:2975a94aa7a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed test code.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 08 Oct 2008 01:52:18 +0800
parents dbb97c4265ba
children 2040ccc95670
comparison
equal deleted inserted replaced
5:dbb97c4265ba 6:2975a94aa7a2
41 my $self = shift; 41 my $self = shift;
42 my $type = shift || 'score'; 42 my $type = shift || 'score';
43 my $user = shift || ''; 43 my $user = shift || '';
44 my $offset = shift || 0; 44 my $offset = shift || 0;
45 45
46 # my $res = $self->{mech}->post(sprintf("http://%s/index.php?view=worldmap_iso", $self->{server}), [ 46 my $res = $self->{mech}->post(sprintf("http://%s/index.php?view=worldmap_iso", $self->{server}), [
47 # highscoreType => $type, 47 highscoreType => $type,
48 # offset => $offset, 48 offset => $offset,
49 # searchUser => $user, 49 searchUser => $user,
50 # view => 'highscore' 50 view => 'highscore'
51 # ]); 51 ]);
52 # 52
53 # my $c; 53 my $c;
54 # my $status = gunzip \$res->content => \$c 54 my $status = gunzip \$res->content => \$c
55 # or die "gunzip failed: $GunzipError\n"; 55 or die "gunzip failed: $GunzipError\n";
56 56
57 my $c;
58 open(IN, "f");
59 while(<IN>) { $c .= $_;}
60 close(IN);
61 my $html = HTML::TagParser->new($c); 57 my $html = HTML::TagParser->new($c);
62 58
63 my ($table) = $html->getElementsByAttribute("class", "table01"); 59 my ($table) = $html->getElementsByAttribute("class", "table01");
64 my @elems = getElementsByTagName($table, "tr"); 60 my @elems = getElementsByTagName($table, "tr");
65 61
204 if ( $e[0]->getAttribute("href") =~ /with=(\d+)&destinationCityId=(\d+)/) 200 if ( $e[0]->getAttribute("href") =~ /with=(\d+)&destinationCityId=(\d+)/)
205 { 201 {
206 $info{'ownerId'} = $1; 202 $info{'ownerId'} = $1;
207 $info{'cityId'} = $2; 203 $info{'cityId'} = $2;
208 } 204 }
209
210 push @cities, \%info; 205 push @cities, \%info;
211 #foreach my $i (sort(keys(%info)))
212 #{
213 # printf("%s: %s ", $i, $info{$i});
214 # }
215 # printf("\n");
216 } 206 }
217 207
218 return @cities; 208 return @cities;
219 } 209 }
220 210