]>
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 | ||
6257cba2 CS |
9 | #use warnings; |
10 | #use CGI::Carp 'fatalsToBrowser'; | |
11 | ||
42dc0090 CS |
12 | my %asterisksettings; |
13 | ||
14 | &Header::getcgihash(\%asterisksettings); | |
15 | ||
16 | &Header::openpage('asterisk', 1, ''); | |
17 | ||
18 | &Header::openbigbox('100%', 'LEFT'); | |
19 | ||
20 | if ($asterisksettings{'ACTION'} eq 'Start') | |
21 | { | |
22 | system("/etc/init.d/asterisk start >/dev/null 2>&1"); | |
23 | sleep 5; | |
24 | } | |
25 | if ($asterisksettings{'ACTION'} eq $Lang::tr{'stop'}) | |
26 | { | |
27 | system("/etc/init.d/asterisk stop >/dev/null 2>&1"); | |
28 | sleep 5; | |
29 | } | |
30 | if ($asterisksettings{'ACTION'} eq $Lang::tr{'reboot'}) | |
31 | { | |
32 | system("/etc/init.d/asterisk restart >/dev/null 2>&1"); | |
33 | sleep 5; | |
34 | } | |
35 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} EXT") | |
36 | { | |
37 | system("/etc/init.d/asterisk remod ext >/dev/null 2>&1"); | |
38 | } | |
39 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} SIP") | |
40 | { | |
41 | system("/etc/init.d/asterisk remod sip >/dev/null 2>&1"); | |
42 | } | |
43 | if ($asterisksettings{'ACTION'} eq "$Lang::tr{'reload'} IAX") | |
44 | { | |
45 | system("/etc/init.d/asterisk remod iax >/dev/null 2>&1"); | |
46 | } | |
47 | ||
6257cba2 CS |
48 | my $pid = ''; |
49 | my $testcmd = ''; | |
50 | my $exename; | |
51 | my @memory; | |
52 | ||
53 | if (open(FILE, "/var/run/asterisk.pid")){ | |
54 | $pid = <FILE>; chomp $pid; | |
55 | close FILE; | |
56 | if (open(FILE, "/proc/${pid}/status")){ | |
57 | while (<FILE>){ | |
58 | if (/^Name:\W+(.*)/) {$testcmd = $1;} | |
59 | } | |
60 | close FILE; | |
61 | } | |
62 | } | |
63 | ||
64 | if ($testcmd !~ /asterisk/) { | |
42dc0090 CS |
65 | $checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:red;\"> $Lang::tr{'not running'}</font>"; |
66 | $checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='Start'>"; | |
67 | } else { | |
68 | $checked{'ENABLE_AST'}{'status_s'}="<font style=\"color:white;background-color:green;\"> $Lang::tr{'running'}</font>"; | |
69 | $checked{'ENABLE_AST'}{'status_b'}="<INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reboot'}'><INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'stop'}'>"; | |
70 | } | |
71 | ||
72 | if ($errormessage) { | |
73 | &Header::openbox('100%', 'LEFT', $tr{'error messages'}); | |
74 | print "<FONT CLASS='base'>$errormessage </FONT>\n"; | |
75 | &Header::closebox(); | |
76 | } | |
77 | ||
78 | if ($message) { | |
79 | &Header::openbox('100%', 'LEFT', 'Message'); | |
80 | print "<FONT CLASS='base'>$message </FONT>\n"; | |
81 | &Header::closebox(); | |
82 | } | |
83 | ||
84 | print "<FORM METHOD='POST'>\n"; | |
85 | ||
86 | &Header::openbox('100%', 'LEFT', 'Status:'); | |
87 | print <<END | |
88 | <center> | |
89 | <TABLE WIDTH='100%'> | |
90 | <TR> | |
91 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Asterisk</TD> | |
92 | <TD WIDTH='33%' ALIGN='RIGHT'>$checked{'ENABLE_AST'}{'status_s'}</TD> | |
93 | <TD WIDTH='33%' ALIGN='LEFT'>$checked{'ENABLE_AST'}{'status_b'}</TD> | |
94 | </TR> | |
95 | <TR> | |
96 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>Dialplan</TD> | |
97 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
98 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} EXT'></TD> | |
99 | </TR> | |
100 | <TR> | |
101 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>SIP</TD> | |
102 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
103 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} SIP'></TD> | |
104 | </TR> | |
105 | <TR> | |
106 | <TD WIDTH='33%' CLASS='base' ALIGN='RIGHT'>IAX</TD> | |
107 | <TD WIDTH='33%' ALIGN='RIGHT'></TD> | |
108 | <TD WIDTH='33%' ALIGN='LEFT'> <INPUT TYPE='submit' NAME='ACTION' VALUE='$Lang::tr{'reload'} IAX'></TD> | |
109 | </TR> | |
110 | ||
111 | </TABLE> | |
112 | END | |
113 | ; | |
114 | ||
115 | &Header::closebox(); | |
116 | ||
117 | &Header::closebigbox(); | |
118 | ||
119 | &Header::closepage(); |