test.cgi

linux下的PBX源码（SIP）

sub ast_cgi() {
  my $CENV = shift;
  my %F;
  print "Content-Type: text/html\n\n";
  $c = new CGI($CENV->{QUERY_STRING});
  for($c->param) {
    $F{$_} = $c->param($_);
  }
  print qq#
  <form>
  <input size=50 name=command>
  <input type=submit>
  </form>
#;
    if($F{command}) {
      print "<hr noshoade size=1><pre>";
      asterisk_manager_command($CENV->{SOCKET_NO},"$F{command}");
    }

}