--- nfo/perl/libs/OEF/Script/AbstractFeeder.pm	2003/02/22 16:53:42	1.5
+++ nfo/perl/libs/OEF/Script/AbstractFeeder.pm	2004/06/19 01:49:07	1.6
@@ -1,9 +1,13 @@
 #!/usr/bin/perl
 
 ##    --------------------------------------------------------------------------------
-##    $Id: AbstractFeeder.pm,v 1.5 2003/02/22 16:53:42 joko Exp $
+##    $Id: AbstractFeeder.pm,v 1.6 2004/06/19 01:49:07 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: AbstractFeeder.pm,v $
+##    Revision 1.6  2004/06/19 01:49:07  joko
+##    enabled verbosing with Data::Transfer::Sync
+##    minor patch to option processing
+##
 ##    Revision 1.5  2003/02/22 16:53:42  joko
 ##    minor update: debugging
 ##
@@ -148,6 +152,7 @@
   # - use 'syncable'???
 
   #if ($self->{app}->{config}->{databases}->{$self->{opt}->{target}}->{syncable}) {
+  $self->{opt}->{action} ||= '';
 
     my $mode = '';
     my $erase = 0;
@@ -188,7 +193,7 @@
   #print "version: $sync_version", "\n";
 
   # create a new synchronization object
-    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 );
 
   # trace
     #print Dumper($self);