Skip to content
Snippets Groups Projects
Commit 2d8f96af authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- added global opts

parent 9cc95455
No related branches found
No related tags found
No related merge requests found
...@@ -66,6 +66,7 @@ sub opt_spec { ...@@ -66,6 +66,7 @@ sub opt_spec {
} }
sub validate_args { sub validate_args {
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
$self->usage_error("No args allowed") if @$args; $self->usage_error("No args allowed") if @$args;
if (exists $opt->{creationdate}) { if (exists $opt->{creationdate}) {
......
...@@ -74,9 +74,9 @@ sub opt_spec { ...@@ -74,9 +74,9 @@ sub opt_spec {
} }
sub validate_args { sub validate_args {
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
$self->usage_error("No args allowed") if @$args; $self->usage_error("No args allowed") if @$args;
SLUB::LZA::TA::validate_global(@_);
my ($cyear, $cmonth, $cday) = Today(); my ($cyear, $cmonth, $cday) = Today();
my ($from_year, $from_month, $from_day); my ($from_year, $from_month, $from_day);
my ($to_year, $to_month, $to_day); my ($to_year, $to_month, $to_day);
......
...@@ -120,6 +120,7 @@ sub opt_spec { ...@@ -120,6 +120,7 @@ sub opt_spec {
} }
sub validate_args { sub validate_args {
my ($self, $opt, $args) = @_; my ($self, $opt, $args) = @_;
SLUB::LZA::TA::common_global_validate($self, $opt, $args);
# no args allowed but options! # no args allowed but options!
$self->usage_error("No args allowed") if @$args; $self->usage_error("No args allowed") if @$args;
if (exists $opt->{creationdate}) { if (exists $opt->{creationdate}) {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment