Commit 7167ee70 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor fix to argument processing.

parent e71b22df
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2000-2015 University of Utah and the Flux Group. # Copyright (c) 2000-2016 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -183,18 +183,18 @@ sub DoCreate() ...@@ -183,18 +183,18 @@ sub DoCreate()
if (defined($options{"d"})) { if (defined($options{"d"})) {
$debug = 1; $debug = 1;
} }
if (defined($options{"a"})) {
$aggregate_urn = $options{"a"};
}
else {
&$usage();
}
if (defined($options{"t"})) { if (defined($options{"t"})) {
$type = $options{"t"}; $type = $options{"t"};
&$usage() &$usage()
if (! ($type eq "stdataset" || $type eq "ltdataset" || if (! ($type eq "stdataset" || $type eq "ltdataset" ||
$type eq "imdataset")); $type eq "imdataset"));
} }
if (defined($options{"a"})) {
$aggregate_urn = $options{"a"};
}
elsif ($type ne "imdataset") {
&$usage();
}
if ($type eq "imdataset") { if ($type eq "imdataset") {
if (!exists($options{"i"})) { if (!exists($options{"i"})) {
print STDERR "Must provide -i opton for imdatasets\n"; print STDERR "Must provide -i opton for imdatasets\n";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment