Hello.
I put the service script into
APP_HOME/script/service/online_users.plx
In the script:
use FindBin;
use lib "$FindBin::Bin/../../lib";
use MyApp;
print MyApp->path_to('/'); # prints APP_HOME/script/service/
Fix for Catalyst::Utils (sub Catalyst::Utils::home):
174,176c174,177
< my ($lastdir) = $home->dir_list( -1, 1 );
< if ( $lastdir eq '..' ) {
< $home = dir($home)->parent->parent;
---
> my $i = 0;
> $i++ while $home->dir_list( -$i, 1 ) eq '..';
> if ($i) {
> $home = dir($home)->parent for 1..($i*2);
in my case at line 174 $home = 'APP_HOME/script/service/../../'
_______________________________________________
List: Catalyst@lists.rawmode.org
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.rawmode.org/
Dev site: http://dev.catalyst.perl.org/
