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	## -------------------------------------------------------------------------
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