Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
7167ee70
Commit
7167ee70
authored
Jan 26, 2016
by
Leigh B Stoller
Browse files
Minor fix to argument processing.
parent
e71b22df
Changes
1
Hide whitespace changes
Inline
Side-by-side
apt/manage_dataset.in
View file @
7167ee70
#!/usr/bin/perl -w
#
# Copyright (c) 2000-201
5
University of Utah and the Flux Group.
# Copyright (c) 2000-201
6
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
";
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment