Mercurial > eagle-eye

comparison Ikariam.pm @ 377:5d6f429e5f19 tip

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 Tue, 14 Apr 2009 17:16:43 +0800
parents ba1643654e6d
children
comparison
equal deleted inserted replaced
376:6ca0677a361e 377:5d6f429e5f19
1328 my $self = shift; 1328 my $self = shift;
1329 1329
1330 # lock 1330 # lock
1331 open LOCKFILE, ">>.ikariam.lck" or die "Cannot open lock_file"; 1331 open LOCKFILE, ">>.ikariam.lck" or die "Cannot open lock_file";
1332 flock(LOCKFILE, LOCK_EX); 1332 flock(LOCKFILE, LOCK_EX);
1333 $self->{lock} = \&LOCKFILE; 1333 $self->{lock} = \*LOCKFILE;
1334 1334
1335 while (1) { 1335 while (1) {
1336 1336
1337 my $res = $self->{mech}->post(sprintf("http://%s/index.php?action=loginAvatar&function=login", $self->{server}), [ 1337 my $res = $self->{mech}->post(sprintf("http://%s/index.php?action=loginAvatar&function=login", $self->{server}), [
1338 name => $self->{user}, 1338 name => $self->{user},