[! sub title { $epreq -> gettext ('txt:setup_network_title') } sub condition { my ($self, $r) = @_ ; $r -> {data}{action} eq 'master' || $r -> {data}{action} eq 'addslave' } !] [$ sub show $] [- $sthc = 0; -]
[- $escmode = 0 -]

[= txt:setup_network1 =]

[= txt:setup_network2 =]

[= txt:setup_network3 =]

[$if !$sthc $] [$if 1 $]

[= txt:setup_network4inet =]

[$else$]

[= txt:setup_network4 =]

[$endif$] [$else$]

[= txt:setup_network5 =]

[$endif$]

[= txt:setup_network6 =]

[- $escmode = 7 -]
[- $i = 33 ; @values = () ; @options = map { $i-- ; push @values, $i ; "/$i ($_)" } ( '255.255.255.255', '255.255.255.254', '255.255.255.252', '255.255.255.248', '255.255.255.240', '255.255.255.224', '255.255.255.192', '255.255.255.128', '255.255.255.0', '255.255.254.0', '255.255.252.0', '255.255.248.0', '255.255.240.0', '255.255.224.0', '255.255.192.0', '255.255.128.0', '255.255.0.0', '255.255.0.0', '255.254.0.0', '255.252.0.0', '255.248.0.0', '255.240.0.0', '255.224.0.0', '255.192.0.0', '255.128.0.0', '255.0.0.0', ) ; Embperl::MyForm -> showfields ( [ { name => 'ipaddr', text => "IP Adresse des $epreq->{data}{-bbname}", validate => [ required => 1, -type => 'IPAddr', ], }, { name => 'netmask', text => 'Netzmaske', validate => [ required => 1, -type => 'Integer', gt => 0, le => 32], type => 'select', values => \@values, options => \@options, }, { name => 'defaultgw', text => 'IP Adresse des Default Gateways',validate => [ emptyok => 1, -type => 'IPAddr', ], }, { name => 'dnsserver', text => 'IP Adresse des DNS-Servers', validate => [ emptyok => 1, -type => 'IPAddr', ], width => 1}, ($sthc?( { name => 'trusted-networks', text => 'Netzwerk für Remote-Administration', validate => [ emptyok => 1, -type => 'IPAddr', ]}, { name => 'trusted-netmask', text => 'Netzmaske', validate => [ required => 1, -type => 'Integer', gt => 0, le => 32], type => 'select', values => \@values, options => \@options }, ):( { name => 'localdomain', text => 'Lokale (interne) Domäne', }, { name => 'domain', nameprefix => 'internet+', text => 'Internet (externe) Domäne', }, )), ]); -] [$endsub$]