Sync/API/V2.pm

## -------------------------------------------------------------------------
##
##  $Id: Sync.pm,v 1.15 2003/01/20 16:58:07 joko Exp $
##
##  Copyright (c) 2002, 2003  Andreas Motl <andreas.motl@ilo.de>
##
##  This module is licensed under the same terms as Perl itself.
##
## -------------------------------------------------------------------------
##  $Log: Sync.pm,v $
## -------------------------------------------------------------------------


package Data::Transfer::Sync::API::V2;

use strict;
use warnings;

use mixin::with qw( Data::Transfer::Sync );


# start here

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


sub checkOptions {
  my $self = shift;

#print Dumper($self->{options});

  my $result = 1;

  # check - do we have a target node?
  if (!$self->{options}->{target}->{nodeName}) {
    $logger->warning( __PACKAGE__ . "->checkOptionsV2: name of target node missing - please check metadata or specify '--target-node=*'.");
    $result = 0;
  }
  
  # check - do we have a mapping?
  if (!$self->{options}->{fieldmap}) {
    $logger->warning( __PACKAGE__ . "->checkOptionsV2: Error while resolving resource metadata - no 'fieldmap' could be determined.");
    $result = 0;
  }
  
  # TODO: extend!

  return $result;

}


1;
1	joko	1.1	## -------------------------------------------------------------------------
2			##
3			## $Id: Sync.pm,v 1.15 2003/01/20 16:58:07 joko Exp $
4			##
5			## Copyright (c) 2002, 2003 Andreas Motl <andreas.motl@ilo.de>
6			##
7			## This module is licensed under the same terms as Perl itself.
8			##
9			## -------------------------------------------------------------------------
10			## $Log: Sync.pm,v $
11			## -------------------------------------------------------------------------
12
13
14			package Data::Transfer::Sync::API::V2;
15
16			use strict;
17			use warnings;
18
19			use mixin::with qw( Data::Transfer::Sync );
20
21
22			# start here
23
24			# get logger instance
25			my $logger = Log::Dispatch::Config->instance;
26
27
28			sub checkOptions {
29			my $self = shift;
30
31			#print Dumper($self->{options});
32
33			my $result = 1;
34
35			# check - do we have a target node?
36			if (!$self->{options}->{target}->{nodeName}) {
37			$logger->warning( __PACKAGE__ . "->checkOptionsV2: name of target node missing - please check metadata or specify '--target-node=*'.");
38			$result = 0;
39			}
40
41			# check - do we have a mapping?
42			if (!$self->{options}->{fieldmap}) {
43			$logger->warning( __PACKAGE__ . "->checkOptionsV2: Error while resolving resource metadata - no 'fieldmap' could be determined.");
44			$result = 0;
45			}
46
47			# TODO: extend!
48
49			return $result;
50
51			}
52
53
54			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26