Commit f94e8562 authored by Leigh B Stoller's avatar Leigh B Stoller

Kill the xml (-x) output option; no longer needed/used.

parent 988b76bf
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2009 University of Utah and the Flux Group.
# Copyright (c) 2009-2010 University of Utah and the Flux Group.
# All rights reserved.
#
use English;
......@@ -13,7 +13,6 @@ sub usage ()
print STDERR " -p - pre-assign mode, as from tbprerun\n";
print STDERR " -v - Enables verbose output\n";
print STDERR " -u - Enables update mode\n";
print STDERR " -x - XML output\n";
print STDERR " -o - Send output to file instead of stdout\n";
print STDERR " -f - Fix current resources during update mode\n";
exit(1);
......@@ -24,7 +23,6 @@ my $fixmode = 0;
my $updating = 0;
my $warnings = 0;
my $preassign= 0;
my $xml = 0;
my $rspec = 0;
my $output = *STDOUT;
my $retval = 0;
......@@ -76,9 +74,6 @@ if (defined($options{"u"})) {
if (defined($options{"f"})) {
$fixmode = 1;
}
if (defined($options{"x"})) {
$xml = 1;
}
if (defined($options{"r"})) {
$rspec = 1;
}
......@@ -135,9 +130,6 @@ if ($preassign) {
if ($rspec && defined($vtop->rspec())) {
$retval = $vtop->PrintRspec($output);
}
elsif ($xml) {
$retval = $vtop->PrintXML($output);
}
else {
$retval = $vtop->PrintTop($output);
}
......
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