/[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.2 by joko, Tue Feb 11 09:48:57 2003 UTC revision 1.3 by joko, Fri Feb 14 14:18:36 2003 UTC
# Line 4  Line 4 
4  ##    $Id$  ##    $Id$
5  ##    --------------------------------------------------------------------------------  ##    --------------------------------------------------------------------------------
6  ##    $Log$  ##    $Log$
7    ##    Revision 1.3  2003/02/14 14:18:36  joko
8    ##    + new get-/setter-methods
9    ##
10  ##    Revision 1.2  2003/02/11 09:48:57  joko  ##    Revision 1.2  2003/02/11 09:48:57  joko
11  ##    - moved notice output out of this module  ##    - moved notice output out of this module
12  ##    + some fixes  ##    + some fixes
# Line 28  use base qw( Line 31  use base qw(
31    
32  use Data::Dumper;  use Data::Dumper;
33  use Getopt::Long;  use Getopt::Long;
34    use Data::Transfer::Sync;
35    
36    
37  # get logger instance  # get logger instance
# Line 52  EOU Line 56  EOU
56    exit;    exit;
57  }  }
58    
59  sub getoptions {  sub readoptions {
60    my $self = shift;    my $self = shift;
61    
62    GetOptions(    GetOptions(
# Line 71  sub getoptions { Line 75  sub getoptions {
75    );    );
76  }    }  
77    
78    sub getoptions {
79      my $self = shift;
80      return $self->{opt};
81    }
82    
83    sub setoptions {
84      my $self = shift;
85      my $options = shift;
86      # FIXME: is this really true?
87      $self->{opt} = $options;
88    }
89    
90  sub getoptions_old {  sub getoptions_old {
91    my $self = shift;    my $self = shift;
92    GetOptions(    GetOptions(
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed