--- nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/01/20 16:43:18	1.11
+++ nfo/perl/libs/Data/Storage/Handler/Abstract.pm	2003/01/30 22:27:05	1.13
@@ -1,7 +1,13 @@
 ##    ------------------------------------------------------------------------
-##    $Id: Abstract.pm,v 1.11 2003/01/20 16:43:18 joko Exp $
+##    $Id: Abstract.pm,v 1.13 2003/01/30 22:27:05 joko Exp $
 ##    ------------------------------------------------------------------------
 ##    $Log: Abstract.pm,v $
+##    Revision 1.13  2003/01/30 22:27:05  joko
+##    + added new abstract methods
+##
+##    Revision 1.12  2003/01/30 21:46:32  joko
+##    + fixed behaviour of AUTOLOAD-method
+##
 ##    Revision 1.11  2003/01/20 16:43:18  joko
 ##    + better argument-property merging
 ##    + debugging-output !!!
@@ -175,7 +181,7 @@
   # this is to prevent deep recursion's
   return if lc $methodname eq 'exists';
 
-print "$methodname - 1", "\n";
+#print "$methodname - 1", "\n";
 
   # TODO: enhance logging/debugging
   #if (!$self->exists('COREHANDLE')) { return; }
@@ -188,7 +194,7 @@
   }
   $self->{lock_info}->{last_method} = $methodname;
   
-print "$methodname - 2", "\n";
+#print "$methodname - 2", "\n";
 
 #print Dumper($self);
 #exit;
@@ -210,11 +216,15 @@
     $handlertype ||= '';
 
     my $err_msg_core = __PACKAGE__ . "[$handlertype]" . ": " . "COREHANDLE is undefined while trying to execute method \"$methodname\"";
-print $err_msg_core, "\n";
-    if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {
+
+#print $err_msg_core, "\n";
+
+    #if ($self->exists('lock_info') && !$self->{lock_info}->{log_lock}) {
       $logger->error( $err_msg_core );
-    }
+    #}
+
     return;
+    
   }
 #=cut
 
@@ -419,4 +429,28 @@
     return;
   }
 
+  sub getDbName {
+    my $self = shift;
+    $self->_abstract_function('getDbName');
+    return;
+  }
+
+  sub testAvailability {
+    my $self = shift;
+    $self->_abstract_function('testAvailability');
+    return;
+  }
+
+  sub isConnected {
+    my $self = shift;
+    $self->_abstract_function('isConnected');
+    return;
+  }
+
+  sub testDsn {
+    my $self = shift;
+    $self->_abstract_function('testDsn');
+    return;
+  }
+
 1;