html/cgi-bin/asterisk/status.cgi

   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&nbsp;</FONT>\n";
  57         &Header::closebox();
  58 }
  59
  60 if ($message) {
  61         &Header::openbox('100%', 'LEFT', 'Message');
  62         print "<FONT CLASS='base'>$message&nbsp;</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();