[! sub title { $epreq -> gettext ('txt:setup_action_title') } !] [$ sub item ($action, $suffix) $] [- -]

[+ $epreq -> gettext ("txt:setup_${action}_title$suffix") +]
[+ $epreq -> gettext ("txt:setup_${action}_text$suffix") +]

[$endsub$] [$ sub show $] [- $r = shift ; init(); -]

[= txt:setup_action_language =]
[= txt:setup_action_language_foreign =]

[- Embperl::MyForm -> showfields ( [ { name => 'preferredLanguage', text => 'Sprache', type => 'select', datasrc => 'languages', noblank => 1, event => ['onChange' => 'this.form.submit()']} ]); -]

[= txt:setup_action_intro =]

[$if !$mini $] [- item ('master') -] [$if $isslave $] [- item ('standalone') -] [$else$] [- item ('addslave') -] [- item ('exportslave') -] [- item ('importslave') -] [# [- item ('initslave') -] ,"$bbname in Slave-Modus umschalten", qq{Im Slave-Modus wartet $der $bbname, bis $er $seine Konfigurationsdaten vom Master erhält. Ist $der $bbname im Slave-Modus, kann $er nur noch vom Master aus konfiguriert werden. })-] #] [$endif$] [#

Mittels der Option "Admin Kennwort zurücksetzen" haben Sie die Möglichkeit, ein neues Kennwort für den Benutzer "admin" zu vergeben. Diese Option ist sinnvoll, wenn eine Anmeldung für den Administrator nicht mehr möglich ist. In diesem Fall kann dieser Punkt direkt über die Konsole des BB-5000 ausgeführt werden

#] [$else$] [- item ('master', '_sthc') -] [$endif$] [- item ('reset') -] [$endsub$] [! #use Data::Dumper ; sub init { $isslave = $r -> {data}{-isslave} ; return if ($r -> {data}{-initialized}) ; $fdat{action} = $r -> {data}{action} = 'master' ; } sub verify { ($pageobj, $r, $wizard) = @_ ; return 1 if ($r -> {data}{-initialized}) ; $r -> {data}{-initialized} = 1 ; if ($r -> {data}{action} eq 'importslave' || $r -> {data}{action} eq 'addslave') { $r -> {data}{hostcn} = '' ; } foreach (qw{defaultgw dnsserver}) { $r -> {data}{$_} = '' if (!$r -> {data}{$_}) ; } my @cleanup = qw{hostdn} ; push @cleanup, grep /^ldap_/, keys (%{$r -> {data}}) ; foreach (@cleanup) { delete $r -> {data}{$_} ; } $wizard -> callpages ('init', $r -> {data}) ; return 1 ; } !]