[Asterisk-cvs] asterisk-addons/res_perl/INC/htdocs test.cgi, NONE, 1.1 test.html, NONE, 1.1

[anthm at lists.digium.com]

Update of /usr/cvsroot/asterisk-addons/res_perl/INC/htdocs
In directory mongoose.digium.com:/tmp/cvs-serv2784/INC/htdocs

Added Files:
	test.cgi test.html 
Log Message:
DoH forgot to add these files 

--- NEW FILE: test.cgi ---

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}");
    }

}



--- NEW FILE: test.html ---
<h1>hello</h1>