Storage/Handler/Files.pm

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