Mercurial > eagle-eye

comparison ally.pl @ 23:54ab0becd730

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implemented a prototype for collecting account status.
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Thu, 09 Oct 2008 11:33:47 +0800
parents d5e02a25b000
children a60cf4d1a6dd
comparison
equal deleted inserted replaced
22:552528bb4917 23:54ab0becd730
3 use Ikariam; 3 use Ikariam;
4 use Data::Dumper; 4 use Data::Dumper;
5 use List::Util qw[min max]; 5 use List::Util qw[min max];
6 6
7 package main; 7 package main;
8
9 # my $users = Ikariam::User->search(ally => 'WMeMe');
8 10
9 Ikariam::Cities->set_sql(ally => qq { 11 Ikariam::Cities->set_sql(ally => qq {
10 SELECT cities.id 12 SELECT cities.id
11 FROM island, cities 13 FROM island, cities
12 WHERE cities.island == island.id 14 WHERE cities.island == island.id