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

Ask tmcc for domU firewall info.

parent e1b0b29c
......@@ -299,8 +299,9 @@ my %vnconfig = ( "vnodeid" => $vnodeid,
"ldconfig" => undef,
"tunconfig" => undef,
"attributes"=> undef,
"environment" => undef,
"environment" => undef,
"storageconfig" => undef,
"fwconfig" => undef,
);
sub VNCONFIG($) { return $vnconfig{'config'}->{$_[0]}; }
......@@ -334,6 +335,9 @@ my @tmp;
my $tmp;
my %attrs;
my %envvars;
my $fwinfo;
my @fwrules;
my @fwhosts;
fatal("Could not get vnode config for $vnodeid")
if (getgenvnodeconfig(\%tmp));
......@@ -363,6 +367,13 @@ fatal("getenvvars(): $!")
if (getenvvars(\%envvars));
$vnconfig{"environment"} = \%envvars;
fatal("getfwconfig(): $!")
if (getfwconfig(\$fwinfo, \@fwrules, \@fwhosts));
$vnconfig{"fwconfig"} = {"fwinfo" => $fwinfo,
"fwrules" => \@fwrules,
"fwhosts" => \@fwhosts};
if ($debug) {
print "VN Config:\n";
print Dumper(\%vnconfig);
......
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