--- nfo/perl/libs/Data/Storage/Handler/Files.pm	2002/12/03 15:52:53	1.1
+++ nfo/perl/libs/Data/Storage/Handler/Files.pm	2003/02/11 05:17:24	1.4
@@ -1,11 +1,19 @@
-##    --------------------------------------------------------------------------------
-##    $Id: Files.pm,v 1.1 2002/12/03 15:52:53 joko Exp $
-##    --------------------------------------------------------------------------------
+##    ------------------------------------------------------------------------
+##    $Id: Files.pm,v 1.4 2003/02/11 05:17:24 joko Exp $
+##    ------------------------------------------------------------------------
 ##    $Log: Files.pm,v $
+##    Revision 1.4  2003/02/11 05:17:24  joko
+##    + fix: childnode metadata now gets set propery
+##
+##    Revision 1.3  2003/01/19 03:15:43  joko
+##    + modified header
+##
+##    Revision 1.2  2003/01/19 02:14:11  joko
+##    + proposal for more abstract filesystem-query-interface
+##
 ##    Revision 1.1  2002/12/03 15:52:53  joko
 ##    + initial check-in
-##
-##    --------------------------------------------------------------------------------
+##    ------------------------------------------------------------------------
 
 
 package Data::Storage::Handler::Files;
@@ -43,6 +51,8 @@
   #print "======\n";
   $logger->debug( __PACKAGE__ . "->getChildNodes()" );
   #print Dumper($self->{locator});
+  my @keys = keys %{$self->{locator}->{files}};
+  $self->{meta}->{childnodes} = \@keys;
   return $self->{locator}->{files};
 }
 
@@ -52,4 +62,21 @@
   return $self->{locator}->{files}->{$name};
 }
 
+sub sendQuery {
+  # transform query to searchrules
+  # addSearchRule( ... )
+  # addSearchRule( ... )
+  # addSearchRule( ... )
+  # runSearch( ... )
+  # returnSearchResult( ... )
+}
+
+sub addSearchRule {
+  
+}
+
+sub runSearch {
+  
+}
+
 1;