4 |
## $Id$ |
## $Id$ |
5 |
## -------------------------------------------------------------------------------- |
## -------------------------------------------------------------------------------- |
6 |
## $Log$ |
## $Log$ |
7 |
|
## Revision 1.6 2004/06/19 01:49:07 joko |
8 |
|
## enabled verbosing with Data::Transfer::Sync |
9 |
|
## minor patch to option processing |
10 |
|
## |
11 |
## Revision 1.5 2003/02/22 16:53:42 joko |
## Revision 1.5 2003/02/22 16:53:42 joko |
12 |
## minor update: debugging |
## minor update: debugging |
13 |
## |
## |
152 |
# - use 'syncable'??? |
# - use 'syncable'??? |
153 |
|
|
154 |
#if ($self->{app}->{config}->{databases}->{$self->{opt}->{target}}->{syncable}) { |
#if ($self->{app}->{config}->{databases}->{$self->{opt}->{target}}->{syncable}) { |
155 |
|
$self->{opt}->{action} ||= ''; |
156 |
|
|
157 |
my $mode = ''; |
my $mode = ''; |
158 |
my $erase = 0; |
my $erase = 0; |
193 |
#print "version: $sync_version", "\n"; |
#print "version: $sync_version", "\n"; |
194 |
|
|
195 |
# create a new synchronization object |
# create a new synchronization object |
196 |
my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self ); |
my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self, verbose => 1 ); |
197 |
|
|
198 |
# trace |
# trace |
199 |
#print Dumper($self); |
#print Dumper($self); |