|
|
@ -220,12 +220,14 @@ sub change_settings { |
|
|
|
|
|
|
|
|
|
|
|
$rec = $db->get('spectrum'); |
|
|
|
$rec = $db->get('spectrum'); |
|
|
|
|
|
|
|
|
|
|
|
foreach my $proto (@transports){ |
|
|
|
if ($rec){ |
|
|
|
if (grep ($proto, @gateways)){ |
|
|
|
foreach my $proto (@transports){ |
|
|
|
$rec->set_prop("$proto",'enabled'); |
|
|
|
if (grep ($proto, @gateways)){ |
|
|
|
} |
|
|
|
$rec->set_prop("$proto",'enabled'); |
|
|
|
else{ |
|
|
|
} |
|
|
|
$rec->set_prop("$proto",'disabled'); |
|
|
|
else{ |
|
|
|
|
|
|
|
$rec->set_prop("$proto",'disabled'); |
|
|
|
|
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
@ -266,6 +268,8 @@ sub print_gateways |
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
my $q = $self->{cgi}; |
|
|
|
my $q = $self->{cgi}; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $spectrum = $db->get('spectrum') || return undef; |
|
|
|
|
|
|
|
|
|
|
|
print "<tr><td class=\"sme-noborders-label\">", |
|
|
|
print "<tr><td class=\"sme-noborders-label\">", |
|
|
|
$self->localise('LABEL_GATEWAYS'), |
|
|
|
$self->localise('LABEL_GATEWAYS'), |
|
|
|
"</td><td>\n"; |
|
|
|
"</td><td>\n"; |
|
|
@ -275,7 +279,6 @@ sub print_gateways |
|
|
|
esmith::cgi::genSmallCell($q, $self->localise('PROTOCOL'),"header"), |
|
|
|
esmith::cgi::genSmallCell($q, $self->localise('PROTOCOL'),"header"), |
|
|
|
esmith::cgi::genSmallCell($q, $self->localise('STATUS'),"header"), |
|
|
|
esmith::cgi::genSmallCell($q, $self->localise('STATUS'),"header"), |
|
|
|
); |
|
|
|
); |
|
|
|
my $spectrum = $db->get('spectrum'); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
foreach my $proto (@transports){ |
|
|
|
foreach my $proto (@transports){ |
|
|
|
my $status = $spectrum->prop($proto) || 'disabled'; |
|
|
|
my $status = $spectrum->prop($proto) || 'disabled'; |
|
|
|