|
|
@ -448,8 +448,8 @@ ORDER BY |
|
|
|
push @{$links}, "bcn_link".$bcn; |
|
|
|
push @{$links}, "bcn_link".$bcn; |
|
|
|
my $this_ip_key = "bcn".$bcn."_ip"; |
|
|
|
my $this_ip_key = "bcn".$bcn."_ip"; |
|
|
|
my $this_subnet_key = "bcn".$bcn."_subnet"; |
|
|
|
my $this_subnet_key = "bcn".$bcn."_subnet"; |
|
|
|
my $this_iface1_key = "bcn".$bcn."_iface1_mac"; |
|
|
|
my $this_iface1_key = "bcn".$bcn."_link1_mac_to_set"; |
|
|
|
my $this_iface2_key = "bcn".$bcn."_iface2_mac"; |
|
|
|
my $this_iface2_key = "bcn".$bcn."_link2_mac_to_set"; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.",".$this_iface2_key.","; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.",".$this_iface2_key.","; |
|
|
|
my $this_ip = generate_ip($anvil, "bcn", $bcn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip = generate_ip($anvil, "bcn", $bcn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
@ -475,17 +475,18 @@ ORDER BY |
|
|
|
|
|
|
|
|
|
|
|
# Assemble the form |
|
|
|
# Assemble the form |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "bonded_interface_form", variables => { |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "bonded_interface_form", variables => { |
|
|
|
field => $anvil->Words->string({key => "striker_0018", variables => { number => $bcn }}), |
|
|
|
field => $anvil->Words->string({key => "striker_0018", variables => { number => $bcn }}), |
|
|
|
description => "#!string!striker_0019!#", |
|
|
|
description => "#!string!striker_0019!#", |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{'default'}{network}{bcn}{netmask}, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : "", |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
subnet_value_default => $anvil->data->{defaults}{network}{bcn}{netmask}, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
iface2_select => $this_iface2_form, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
|
|
|
|
iface2_select => $this_iface2_form, |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
@ -496,8 +497,8 @@ ORDER BY |
|
|
|
push @{$links}, "ifn_link".$ifn; |
|
|
|
push @{$links}, "ifn_link".$ifn; |
|
|
|
my $this_ip_key = "ifn".$ifn."_ip"; |
|
|
|
my $this_ip_key = "ifn".$ifn."_ip"; |
|
|
|
my $this_subnet_key = "ifn".$ifn."_subnet"; |
|
|
|
my $this_subnet_key = "ifn".$ifn."_subnet"; |
|
|
|
my $this_iface1_key = "ifn".$ifn."_iface1_mac"; |
|
|
|
my $this_iface1_key = "ifn".$ifn."_link1_mac_to_set"; |
|
|
|
my $this_iface2_key = "ifn".$ifn."_iface2_mac"; |
|
|
|
my $this_iface2_key = "ifn".$ifn."_link2_mac_to_set"; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.",".$this_iface2_key.","; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.",".$this_iface2_key.","; |
|
|
|
my $this_ip = generate_ip($anvil, "ifn", $ifn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip = generate_ip($anvil, "ifn", $ifn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
@ -523,17 +524,18 @@ ORDER BY |
|
|
|
|
|
|
|
|
|
|
|
# Assemble the form |
|
|
|
# Assemble the form |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "bonded_interface_form", variables => { |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "bonded_interface_form", variables => { |
|
|
|
field => $anvil->Words->string({key => "striker_0022", variables => { number => $ifn }}), |
|
|
|
field => $anvil->Words->string({key => "striker_0022", variables => { number => $ifn }}), |
|
|
|
description => "#!string!striker_0023!#", |
|
|
|
description => "#!string!striker_0023!#", |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{'default'}{network}{ifn}{netmask}, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : "", |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
subnet_value_default => $anvil->data->{defaults}{network}{ifn}{netmask}, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
iface2_select => $this_iface2_form, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
|
|
|
|
iface2_select => $this_iface2_form, |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
@ -547,7 +549,7 @@ ORDER BY |
|
|
|
push @{$links}, "bcn_link".$bcn; |
|
|
|
push @{$links}, "bcn_link".$bcn; |
|
|
|
my $this_ip_key = "bcn".$bcn."_ip"; |
|
|
|
my $this_ip_key = "bcn".$bcn."_ip"; |
|
|
|
my $this_subnet_key = "bcn".$bcn."_subnet"; |
|
|
|
my $this_subnet_key = "bcn".$bcn."_subnet"; |
|
|
|
my $this_iface1_key = "bcn".$bcn."_iface1_mac"; |
|
|
|
my $this_iface1_key = "bcn".$bcn."_link1_mac_to_set"; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.","; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.","; |
|
|
|
my $this_ip = generate_ip($anvil, "bcn", $bcn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip = generate_ip($anvil, "bcn", $bcn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
@ -565,16 +567,17 @@ ORDER BY |
|
|
|
|
|
|
|
|
|
|
|
# Assemble the form |
|
|
|
# Assemble the form |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "single_interface_form", variables => { |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "single_interface_form", variables => { |
|
|
|
field => $anvil->Words->string({key => "striker_0018", variables => { number => $bcn }}), |
|
|
|
field => $anvil->Words->string({key => "striker_0018", variables => { number => $bcn }}), |
|
|
|
description => "#!string!striker_0019!#", |
|
|
|
description => "#!string!striker_0019!#", |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{'default'}{network}{bcn}{netmask}, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{defaults}{network}{bcn}{netmask}, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
subnet_value_default => $anvil->data->{defaults}{network}{bcn}{netmask}, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
|
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
@ -585,7 +588,7 @@ ORDER BY |
|
|
|
push @{$links}, "ifn_link".$ifn; |
|
|
|
push @{$links}, "ifn_link".$ifn; |
|
|
|
my $this_ip_key = "ifn".$ifn."_ip"; |
|
|
|
my $this_ip_key = "ifn".$ifn."_ip"; |
|
|
|
my $this_subnet_key = "ifn".$ifn."_subnet"; |
|
|
|
my $this_subnet_key = "ifn".$ifn."_subnet"; |
|
|
|
my $this_iface1_key = "ifn".$ifn."_iface1_mac"; |
|
|
|
my $this_iface1_key = "ifn".$ifn."_link1_mac_to_set"; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.","; |
|
|
|
$cgi .= $this_ip_key.",".$this_subnet_key.",".$this_iface1_key.","; |
|
|
|
my $this_ip = generate_ip($anvil, "ifn", $ifn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip = generate_ip($anvil, "ifn", $ifn, $anvil->data->{cgi}{sequence}{value}); |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
|
my $this_ip_class = $anvil->data->{cgi}{$this_ip_key}{alert} ? "input_alert" : "input_clear"; |
|
|
@ -603,16 +606,17 @@ ORDER BY |
|
|
|
|
|
|
|
|
|
|
|
# Assemble the form |
|
|
|
# Assemble the form |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "single_interface_form", variables => { |
|
|
|
$interface_form .= $anvil->Template->get({file => "main.html", name => "single_interface_form", variables => { |
|
|
|
field => $anvil->Words->string({key => "striker_0022", variables => { number => $ifn }}), |
|
|
|
field => $anvil->Words->string({key => "striker_0022", variables => { number => $ifn }}), |
|
|
|
description => "#!string!striker_0023!#", |
|
|
|
description => "#!string!striker_0023!#", |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_key => $this_ip_key, |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value => defined $anvil->data->{cgi}{$this_ip_key}{value} ? $anvil->data->{cgi}{$this_ip_key}{value} : "", |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_value_default => $this_ip, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
ip_class => $this_ip_class, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_key => $this_subnet_key, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{'default'}{network}{ifn}{netmask}, |
|
|
|
subnet_value => defined $anvil->data->{cgi}{$this_subnet_key}{value} ? $anvil->data->{cgi}{$this_subnet_key}{value} : $anvil->data->{defaults}{network}{ifn}{netmask}, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
subnet_value_default => $anvil->data->{defaults}{network}{ifn}{netmask}, |
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
subnet_class => $this_subnet_class, |
|
|
|
|
|
|
|
iface1_select => $this_iface1_form, |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|