hello?
2007/9/28, Oleg Pronin <[EMAIL PROTECTED]>:
>
> 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: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[EMAIL PROTECTED]/
Dev site: http://dev.catalyst.perl.org/
