1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
[!
sub title { $epreq -> gettext ('txt:setup_do_title')}
!]
[$ sub show $]
[-
$r = shift ;
$error = '' ;
$nostop = 0 ;
run_setup() ;
-]
<center>
[$if $error $]
<h2>[= err:setup_do =]</h2>
<br>
<font color=red>[+ $error +]</font>
<br>
[$else$]
<h2><div id="endblockmsg">[= txt:setup_do_start =]</div></h2>
[$if !$nostop $]
<p>[= txt:setup_do_no_cfg =]</p>
[$endif$]
<p>[= txt:setup_do_ip_hint =]
[$if !$nostop $]
[# + do { local $escmode = 0; _t('txt:setup_do_wait1', '<a href="/">', '</a>', '<a href="/setup/s.epl/wizconfig.pl">', '</a>') } + #]<br>
[$endif$]
<b>[= txt:setup_do_wait2 =]</b></p>
[$if $r -> {textonly} $]
<p><b>[= txt:setup_do_wait3 =]</b></p>
[$else$]
<iframe src="/bin/logger.pl?noalert=1&endmsg=Setup&endregex=(Setup|Importslave|Exportslave) (beendet|stopped)&nostop=[+ $nostop +]&filter=(setup|importslave|exportslave)&lang=[+ $fdat{'preferredLanguage'} +]" width=800 height=250></iframe>
[$endif$]
[$endif$]
<br>
<br>
</center>
[$endsub$]
[$ sub abort_button $]
[* my $r = shift ; *]
<input type="submit" name="-start" value="Zum Setup Menu" id="next_button" class="cStandardButton">
[$if $r -> {aborturl} $]<input type="submit" name="-abort" value="Setup Beenden" class="cStandardButton"> [$endif$]
[$ endsub $]
[$ sub prev_button $]
[* my $r = shift ; *]
[$ endsub $]
[$ sub next_button $]
[* my $r = shift ; *]
[$ endsub $]
[$ sub prevnext $]
[* my $r = shift ; *]
<div id="endblock" [$if !$error $]style="display:none"[$endif$]>
[- $r -> SUPER::prevnext -]
</div>
[$ endsub $]
[!
sub run_setup
{
my $data = $r -> {data} ;
my $action = $data -> {action} ;
#
# add action herer
#
}
!]
|
