[!
sub title { $epreq -> gettext ('txt:setup_do_title')}
!]
[$ sub show $]
[-
$r = shift ;
$error = '' ;
$nostop = 0 ;
run_setup() ;
-]
[$if $error $]
[= err:setup_do =]
[+ $error +]
[$else$]
[= txt:setup_do_start =]
[$if !$nostop $]
[= txt:setup_do_no_cfg =]
[$endif$]
[= txt:setup_do_ip_hint =]
[$if !$nostop $]
[# + do { local $escmode = 0; _t('txt:setup_do_wait1', '', '', '', '') } + #]
[$endif$]
[= txt:setup_do_wait2 =]
[$if $r -> {textonly} $]
[= txt:setup_do_wait3 =]
[$else$]
[$endif$]
[$endif$]
[$endsub$]
[$ sub abort_button $]
[* my $r = shift ; *]
[$if $r -> {aborturl} $] [$endif$]
[$ endsub $]
[$ sub prev_button $]
[* my $r = shift ; *]
[$ endsub $]
[$ sub next_button $]
[* my $r = shift ; *]
[$ endsub $]
[$ sub prevnext $]
[* my $r = shift ; *]
[- $r -> SUPER::prevnext -]
[$ endsub $]
[!
sub run_setup
{
my $data = $r -> {data} ;
my $action = $data -> {action} ;
#
# add action herer
#
}
!]