/[cvs]/nfo/perl/libs/OEF/Script/AbstractFeeder.pm
ViewVC logotype

Diff of /nfo/perl/libs/OEF/Script/AbstractFeeder.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by joko, Thu Feb 20 21:11:15 2003 UTC revision 1.5 by joko, Sat Feb 22 16:53:42 2003 UTC
# Line 4  Line 4 
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
# Line 130  sub run { Line 133  sub run {
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'???
# Line 176  sub sync { Line 183  sub sync {
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 );
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed