--- trunk/lib/WebPAC/Common.pm	2005/07/24 15:07:56	32
+++ trunk/lib/WebPAC/Common.pm	2006/01/08 20:27:06	363
@@ -15,11 +15,11 @@
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 SYNOPSYS
 
@@ -175,11 +175,12 @@
 
 _log4perl_
 		warn "# $name is using debug logger\n" if ($log_debug);
-	} elsif ($name !~ m/Test::Exception/o) {
+	} elsif ($name =~ m/Test::Exception/o) {
 		warn "# disabled logging for Text::Exception\n" if ($log_debug);
-	} elsif ($file) {
+	} elsif (-e $file) {
 		warn "# $name is using $file logger\n" if ($log_debug);
 		Log::Log4perl->init($file);
+		return 1;
 	} else {
 		warn "# $name is using null logger\n" if ($log_debug);
 	}
@@ -204,12 +205,29 @@
 	my $name = (caller(2))[3] || caller;
 	$self->{'_logger_'} ||= $self->_init_logger;
 
-	warn "# get_logger( $name )\n" if ($log_debug);
-
-	return get_logger($name);
+	my $log = get_logger( $name );
+	warn "# get_logger( $name ) level ", $log->level, "\n" if ($log_debug);
+	return $log;
 }
 
 
+=head2 _log
+
+Quick cludge to make logging object available to scripts which
+use webpac line this:
+
+  my $log = _new WebPAC::Common()->_get_logger();
+
+=cut
+
+sub _new {
+        my $class = shift;
+        my $self = {@_};
+	bless($self, $class);
+
+	$self ? return $self : return undef;
+}
+
 =head1 LOGGING
 
 Logging in WebPAC is performed by L<Log::Log4perl> with config file