Mercurial > eagle-eye

comparison Ikariam.pm @ 48:96ee35378696

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
modified for searching configuration files
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Sat, 18 Oct 2008 21:23:09 +0800
parents 5849b6fdc76c
children d2ac1e198ce4
comparison
equal deleted inserted replaced
46:9466964ae5bb 48:96ee35378696
1 #!/usr/bin/env perl 1 #!/usr/bin/env perl
2 BEGIN { 2 BEGIN {
3 my $HOME = (getpwuid($<))[7] || $ENV{HOME} || $ENV{LOGDIR} || "."; 3 foreach (((getpwuid($<))[7], $ENV{HOME}, $ENV{LOGDIR}, ".")) {
4 require "$HOME/.eagleeye.pm"; 4 require "$_/.eagleeye.pm" if (-f "$_/.eagleeye.pm");
5 }
5 } 6 }
6 7
7 use Class::DBI::AutoLoader ( 8 use Class::DBI::AutoLoader (
8 dsn => 'dbi:SQLite:dbname=ikariam.sqlite', 9 dsn => 'dbi:SQLite:dbname=ikariam.sqlite',
9 options => { RaiseError => 1 }, 10 options => { RaiseError => 1 },