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

Minor fix to argument processing.

parent e71b22df
#!/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
#
......@@ -183,18 +183,18 @@ sub DoCreate()
if (defined($options{"d"})) {
$debug = 1;
}
if (defined($options{"a"})) {
$aggregate_urn = $options{"a"};
}
else {
&$usage();
}
if (defined($options{"t"})) {
$type = $options{"t"};
&$usage()
if (! ($type eq "stdataset" || $type eq "ltdataset" ||
$type eq "imdataset"));
}
if (defined($options{"a"})) {
$aggregate_urn = $options{"a"};
}
elsif ($type ne "imdataset") {
&$usage();
}
if ($type eq "imdataset") {
if (!exists($options{"i"})) {
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