--- nfo/perl/libs/OEF/Script/AbstractFeeder.pm	2003/02/20 21:11:15	1.4
+++ nfo/perl/libs/OEF/Script/AbstractFeeder.pm	2003/02/22 16:53:42	1.5
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ##    --------------------------------------------------------------------------------
-##    $Id: AbstractFeeder.pm,v 1.4 2003/02/20 21:11:15 joko Exp $
+##    $Id: AbstractFeeder.pm,v 1.5 2003/02/22 16:53:42 joko Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: AbstractFeeder.pm,v $
+##    Revision 1.5  2003/02/22 16:53:42  joko
+##    minor update: debugging
+##
 ##    Revision 1.4  2003/02/20 21:11:15  joko
 ##    renamed module
 ##    modified runtime namespace hierarchy
@@ -130,12 +133,16 @@
   $self->_before_run();
   $self->prepare();
   #$self->tellWhatIAmDoing();
+  #$self->_tellWhatIWillDo();
   $self->sync();
 }
 
 sub prepare {
   my $self = shift;
 
+  #print Dumper($self->{opt});
+  #exit;
+
   # TODO: 
   # - move this to Data::Transfer::Sync::checkOptions!!!
   # - use 'syncable'???
@@ -176,6 +183,9 @@
     # is api-version specified?
     my $sync_version = $self->{opt}->{sv};
     $sync_version ||= 'V1';
+    #$sync_version = 'V2';
+
+  #print "version: $sync_version", "\n";
 
   # create a new synchronization object
     my $sync = Data::Transfer::Sync->new( 'sync_version' => $sync_version, __parent => $self );