4 |
## $Id$ |
## $Id$ |
5 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
6 |
## $Log$ |
## $Log$ |
7 |
|
## Revision 1.5 2003/02/22 16:53:42 joko |
8 |
|
## minor update: debugging |
9 |
|
## |
10 |
## Revision 1.4 2003/02/20 21:11:15 joko |
## Revision 1.4 2003/02/20 21:11:15 joko |
11 |
## renamed module |
## renamed module |
12 |
## modified runtime namespace hierarchy |
## modified runtime namespace hierarchy |
133 |
$self->_before_run(); |
$self->_before_run(); |
134 |
$self->prepare(); |
$self->prepare(); |
135 |
#$self->tellWhatIAmDoing(); |
#$self->tellWhatIAmDoing(); |
136 |
|
#$self->_tellWhatIWillDo(); |
137 |
$self->sync(); |
$self->sync(); |
138 |
} |
} |
139 |
|
|
140 |
sub prepare { |
sub prepare { |
141 |
my $self = shift; |
my $self = shift; |
142 |
|
|
143 |
|
#print Dumper($self->{opt}); |
144 |
|
#exit; |
145 |
|
|
146 |
# TODO: |
# TODO: |
147 |
# - move this to Data::Transfer::Sync::checkOptions!!! |
# - move this to Data::Transfer::Sync::checkOptions!!! |
148 |
# - use 'syncable'??? |
# - use 'syncable'??? |
183 |
# is api-version specified? |
# is api-version specified? |
184 |
my $sync_version = $self->{opt}->{sv}; |
my $sync_version = $self->{opt}->{sv}; |
185 |
$sync_version ||= 'V1'; |
$sync_version ||= 'V1'; |
186 |
|
#$sync_version = 'V2'; |
187 |
|
|
188 |
|
#print "version: $sync_version", "\n"; |
189 |
|
|
190 |
# create a new synchronization object |
# create a new synchronization object |
191 |
my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self ); |
my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self ); |