Storage/Handler/Files.pm

##    ------------------------------------------------------------------------
##    $Id: Files.pm,v 1.2 2003/01/19 02:14:11 joko Exp $
##    ------------------------------------------------------------------------
##    $Log: Files.pm,v $
##    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;

use strict;
use warnings;

use base ("Data::Storage::Handler::Abstract");

use Data::Dumper;
#use Data::Storage::Result::Files;

# get logger instance
my $logger = Log::Dispatch::Config->instance;


sub getMetaInfo {
  my $self = shift;
  $logger->debug( __PACKAGE__ . "->getMetaInfo()"  );
  return;
  return {
    'disconnectMethod' => 'disconnect',
  };
}

sub connect {
  my $self = shift;
  #$self->{COREHANDLE} = $self;
  #$self->{COREHANDLE} = 1;
}

sub getChildNodes {
  my $self = shift;
  #my @nodes;
  #print "======\n";
  $logger->debug( __PACKAGE__ . "->getChildNodes()" );
  #print Dumper($self->{locator});
  return $self->{locator}->{files};
}

sub getFileByName {
  my $self = shift;
  my $name = shift;
  return $self->{locator}->{files}->{$name};
}

sub sendQuery {
  # transform query to searchrules
  # addSearchRule( ... )
  # addSearchRule( ... )
  # addSearchRule( ... )
  # runSearch( ... )
  # returnSearchResult( ... )
}

sub addSearchRule {
  
}

sub runSearch {
  
}

1;
1	## ------------------------------------------------------------------------
2	## $Id: Files.pm,v 1.2 2003/01/19 02:14:11 joko Exp $
3	## ------------------------------------------------------------------------
4	## $Log: Files.pm,v $
5	## Revision 1.2 2003/01/19 02:14:11 joko
6	## + proposal for more abstract filesystem-query-interface
7	##
8	## Revision 1.1 2002/12/03 15:52:53 joko
9	## + initial check-in
10	## ------------------------------------------------------------------------
11
12
13	package Data::Storage::Handler::Files;
14
15	use strict;
16	use warnings;
17
18	use base ("Data::Storage::Handler::Abstract");
19
20	use Data::Dumper;
21	#use Data::Storage::Result::Files;
22
23	# get logger instance
24	my $logger = Log::Dispatch::Config->instance;
25
26
27	sub getMetaInfo {
28	my $self = shift;
29	$logger->debug( __PACKAGE__ . "->getMetaInfo()" );
30	return;
31	return {
32	'disconnectMethod' => 'disconnect',
33	};
34	}
35
36	sub connect {
37	my $self = shift;
38	#$self->{COREHANDLE} = $self;
39	#$self->{COREHANDLE} = 1;
40	}
41
42	sub getChildNodes {
43	my $self = shift;
44	#my @nodes;
45	#print "======\n";
46	$logger->debug( __PACKAGE__ . "->getChildNodes()" );
47	#print Dumper($self->{locator});
48	return $self->{locator}->{files};
49	}
50
51	sub getFileByName {
52	my $self = shift;
53	my $name = shift;
54	return $self->{locator}->{files}->{$name};
55	}
56
57	sub sendQuery {
58	# transform query to searchrules
59	# addSearchRule( ... )
60	# addSearchRule( ... )
61	# addSearchRule( ... )
62	# runSearch( ... )
63	# returnSearchResult( ... )
64	}
65
66	sub addSearchRule {
67
68	}
69
70	sub runSearch {
71
72	}
73
74	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26