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
|
use File::Basename ;
use Embperl::MyForm ;
# -------------------------------------------------------
#
# getpages returns the pages to use
#
sub getpages
{
[
'action.epl' ,
'importslave.epl',
'organisation.epl',
'name.epl' ,
'network.epl' ,
'inetconnect.epl' ,
'isdn.epl' ,
'dsl.epl' ,
'gateway.epl' ,
'exportslave.epl',
'finish.epl',
'do.epl'
] ;
}
# -------------------------------------------------------
#
# aborturl defines the url to requested when abort is clicked
#
sub aborturl
{
return '/' ;
}
# -------------------------------------------------------
#
# app_isa allows one to define a base class for the wizard application object
#
sub app_isa
{
''
}
# -------------------------------------------------------
#
# init is called at the start of each request
#
sub init
{
my ($self, $wiz, $r) = @_ ;
}
|
