/[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.5 by joko, Sat Feb 22 16:53:42 2003 UTC revision 1.6 by joko, Sat Jun 19 01:49:07 2004 UTC
# Line 4  Line 4 
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  ##  ##
# Line 148  sub prepare { Line 152  sub prepare {
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;
# Line 188  sub sync { Line 193  sub sync {
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);
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed