]>
Commit | Line | Data |
---|---|---|
42dc0090 CS |
1 | #!/usr/bin/perl |
2 | ||
3 | require '/var/ipfire/general-functions.pl'; | |
4 | require "${General::swroot}/lang.pl"; | |
5 | require "${General::swroot}/header.pl"; | |
6 | ||
7 | &Header::showhttpheaders(); | |
8 | ||
9 | my %asterisksettings; | |
10 | ||
11 | &Header::getcgihash(\%asterisksettings); | |
12 | ||
13 | &Header::openpage('asterisk', 1, ''); | |
14 | ||
15 | &Header::openbigbox('100%', 'LEFT'); | |
16 | ||
17 | if ($asterisksettings{'ACTION'} eq 'Start') | |
18 | { | |
19 | system("/etc/init.d/asterisk start >/dev/null 2>&1"); | |
20 | sleep 5; | |
21 | } | |
22 | if ($asterisksettings{'ACTION'} eq $Lang::tr{'stop'}) | |
23 | { | |
24 | system("/etc/init.d/asterisk stop >/dev/null 2>&1"); | |
25 | sleep 5; | |
26 | } | |
27 | if ($asterisksettings{'ACTION'} eq $Lang::tr{'reboot'}) | |
28 | { | |
29 | system("/etc/init.d/asterisk restart >/dev/null 2>&1"); | |
30 | sleep 5; | |
31 | } | |
32 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} EXT") | |
33 | { | |
34 | system("/etc/init.d/asterisk remod ext >/dev/null 2>&1"); | |
35 | } | |
36 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} SIP") | |
37 | { | |
38 | system("/etc/init.d/asterisk remod sip >/dev/null 2>&1"); | |
39 | } | |
40 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} IAX") | |
41 | { | |
42 | system("/etc/init.d/asterisk remod iax >/dev/null 2>&1"); | |
43 | } | |
44 | ||
45 | $checked{'ENABLE_AST'}{'status'} = system("/etc/init.d/asterisk status >/dev/null 2>&1"); | |
46 | if ($checked{'ENABLE_AST'}{'status'}) { | |
47 | $checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:red;\"> $Lang::tr{'not running'}</font>"; | |
48 | $checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='Start'>"; | |
49 | } else { | |
50 | $checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:green;\"> $Lang::tr{'running'}</font>"; | |
51 | $checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reboot'}'><INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'stop'}'>"; | |
52 | } | |
53 | ||
54 | if ($errormessage) { | |
55 | &Header::openbox('100%', 'LEFT', $tr{'error messages'}); | |
56 | print "<FONT CLASS='base'>$errormessage </FONT>\n"; | |
57 | &Header::closebox(); | |
58 | } | |
59 | ||
60 | if ($message) { | |
61 | &Header::openbox('100%', 'LEFT', 'Message'); | |
62 | print "<FONT CLASS='base'>$message </FONT>\n"; | |
63 | &Header::closebox(); | |
64 | } | |
65 | ||
66 | print "<FORM METHOD='POST'>\n"; | |
67 | ||
68 | &Header::openbox('100%', 'LEFT', 'Status:'); | |
69 | print <<END | |
70 | <center> | |
71 | <TABLE WIDTH='100%'> | |
72 | <TR> | |
73 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Asterisk</TD> | |
74 | <TD WIDTH='33%' ALIGN='RIGHT'>$checked{'ENABLE_AST'}{'status_s'}</TD> | |
75 | <TD WIDTH='33%' ALIGN='LEFT'>$checked{'ENABLE_AST'}{'status_b'}</TD> | |
76 | </TR> | |
77 | <TR> | |
78 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Dialplan</TD> | |
79 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
80 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} EXT'></TD> | |
81 | </TR> | |
82 | <TR> | |
83 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>SIP</TD> | |
84 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
85 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} SIP'></TD> | |
86 | </TR> | |
87 | <TR> | |
88 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>IAX</TD> | |
89 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
90 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} IAX'></TD> | |
91 | </TR> | |
92 | ||
93 | </TABLE> | |
94 | END | |
95 | ; | |
96 | ||
97 | &Header::closebox(); | |
98 | ||
99 | &Header::closebigbox(); | |
100 | ||
101 | &Header::closepage(); |