Mercurial > eagle-eye

comparison scores.pl @ 91:53c87400183f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rewrite viewScore with Extractor.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sun, 26 Oct 2008 22:14:15 +0800
parents 5849b6fdc76c
children e551351b18de
comparison
equal deleted inserted replaced
90:ba96a3f8f522 91:53c87400183f
17 17
18 sub saveUser 18 sub saveUser
19 { 19 {
20 my $users = shift; 20 my $users = shift;
21 21
22 foreach my $user (values(%{$users})) 22 foreach my $user (values(%{$users})) {
23 {
24 printf("Saving %s\n", $user->{'name'}); 23 printf("Saving %s\n", $user->{'name'});
25 if(my $c = Ikariam::User->retrieve($user->{id})) 24 if(my $c = Ikariam::User->retrieve($user->{id}))
26 { 25 {
27 foreach my $i (keys(%$user)) { 26 foreach my $i (keys(%$user)) {
28 eval($c->$i($user->{$i})); 27 eval($c->$i($user->{$i}));