--- nfo/perl/libs/DesignPattern/Logger.pm	2003/02/20 21:06:27	1.2
+++ nfo/perl/libs/DesignPattern/Logger.pm	2003/03/28 07:23:25	1.3
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Logger.pm,v 1.2 2003/02/20 21:06:27 joko Exp $
+##  $Id: Logger.pm,v 1.3 2003/03/28 07:23:25 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Logger.pm,v $
+##  Revision 1.3  2003/03/28 07:23:25  joko
+##  fix to basepath calculation
+##
 ##  Revision 1.2  2003/02/20 21:06:27  joko
 ##  + configurable by package globals
 ##  + standalone mode (object creation via 'new')
@@ -321,14 +324,19 @@
 
   my $configurator = DesignPattern::Object->fromPackage('Log::Dispatch::Configurator::Hardwired');
   
-  # FIXME?
-  my $basepath = cwd() . '/..';
+  # check if running inside a 'PROJECT' space
+  my $basepath = cwd();
+  my $postpone = '/..';
+  if (-d $basepath . $postpone . '/PROJECT') {
+    $basepath .= $postpone;
+    $basepath .= "/var/log";
+  }
   
   # configure custom logHandler
   
     if ($configurator) {
   
-      $configurator->{file_filename} = "$basepath/var/log/logfile.txt";
+      $configurator->{file_filename} = "$basepath/app.log";
       $configurator->{screen_min_level} = 'info';
       
       if ($self->{quiet}) {