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 |
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 |
56 |
exit; |
exit; |
57 |
} |
} |
58 |
|
|
59 |
sub getoptions { |
sub readoptions { |
60 |
my $self = shift; |
my $self = shift; |
61 |
|
|
62 |
GetOptions( |
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( |