0

我有一组 AJAX 代码，该代码调用 Perl 脚本并且脚本具有一些功能。每当我单击拨号按钮时，Perl 脚本应该运行，但我无法运行脚本。当我单击拨号按钮时，我的完整 Perl 程序正在Web上显示。当我强制执行我的程序时，它会正确执行。

HTML 代码

<!CTYPE html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">


<html>
<body>

<title>Outbound Calling Demo Site</title>
<script language="Javascript">


        function doDial(phone)
                {
                var phone_no = document.getElementById('phone').value;
//              alert(phone_no);

                var ajaxRequest;  // The variable that makes Ajax possible!

                if (window.XMLHttpRequest)
                        { //Opera 8.0+, Firefox, Safari
                        ajaxRequest= new window.XMLHttpRequest();
                        }
                else
                        {

                        try {
                                ajaxRequest= new ActiveXObject("Msxml2.XMLHTTP.6.0");
                            }
                        catch (e) {}
                        try { ajaxRequest= new ActiveXObject("Msxml2.XMLHTTP.3.0"); }
                        catch (e) {}
                        try { ajaxRequest= new ActiveXObject("Microsoft.XMLHTTP"); }
                            catch (e) {}
                        throw new Error("This browser does not support XMLHttpRequest.");

                        }
                 // Create a function that will receive data
                 // sent from the server and will update
                 // div section in the same page.

                function handler()
                        {
                        if (ajaxRequest.readyState==4 && ajaxRequest.status==200)
                        {
                        document.getElementById("ajaxDiv").innerHTML=ajaxRequest.responseText;
                        }
                        }




                 var queryString = "?phone=" + phone_no ;
                 get_selected_data(document.getElementById('agent'));


                if(ajaxRequest != null)
                        {
                        ajaxRequest.open("POST", "dial_call2.pl" +  queryString , true);
                        ajaxRequest.onreadystatechange = handler;
                        //console.log(queryObj.fund);
                        ajaxRequest.send(null);
                        }
                else
                        {
                        window.console.log("AJAX (XMLHTTP) not supported.");
                        }

                }

</script>



                 <table >
                                Number to dial: <input class="text_box" name="phone" type="text" id="phone"  size="14" value="" />
                                <input type="button" value="Dial" onClick="javascript:doDial();"/>
                                <div id='ajaxDiv'></div>

                         <tr>
                                <td><input type="button" name="dtmf1" value='1'  id="dtmf1" onClick="sendDTMF(1);"/></td>
                                <td><input type="button" name="dtmf2" value='2'  id="dtmf2" onClick="sendDTMF(2);"/></td>
                                <td><input type="button" name="dtmf3" value='3'  id="dtmf3" onClick="sendDTMF(3);"/></td>
                         </tr>

                         <tr>

                                <td><input type="button" name="dtmf4" value='4' id="dtmf4" onClick="sendDTMF(4);"/></td>
                                <td><input type="button" name="dtmf5" value='5' id="dtmf5" onClick="sendDTMF(5);"/></td>
                                <td><input type="button" name="dtmf6" value='6' id="dtmf6" onClick="sendDTMF(6);"/></td>
                         </tr>

                         <tr>
                                <td><input type="button" name="dtmf7" value='7' id="dtmf7" onClick="sendDTMF(7);"/></td>
                                <td><input type="button" name="dtmf8" value='8' id="dtmf8" onClick="sendDTMF(8);"/></td>
                                <td><input type="button" name="dtmf9" value='9' id="dtmf9" onClick="sendDTMF(9);"/></td>
                         </tr>

                         <tr>
                                <td><input type="button" name="dtmf*" value='*' id="dtmf*" onClick="sendDTMF(this.value);"/></td>
                                <td><input type="button" name="dtmf0" value='0' id="dtmf0" onClick="sendDTMF(0);"/></td>
                                <td><input type="button" name="dtmf#" value='#' id="dtmf#" onClick="sendDTMF(this.value);"/></td>
                         </tr>

                         <tr>
                                <td><input type="button" name="dtmfClr" value="Clr" onClick="number_clear(this.value);"/></td>
                                <td><input type="button" name="dtmfC" value="C" onClick="number_c(this.value);"/></td>
                         </tr>

                </table>
                        <tr>
                            <th>
                                <td><input type="button" id="hangup" value="Hangup" onClick="javascript:doHangup();"/></td>
                                <td><input type="button" id="unregister" value="Unregister" onClick="javascript:doUnregister();"/></td>
                                <td><input type="button" id="answer" value="Answer Call" onClick="javascript:doAnswer();" style="visibility:hidden;"/><br/></td>
                            </th>
                        </tr>

</form>
</body>
</html>

Perl 代码：-

#!/usr/bin/perl

use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
use IO::Socket;

print $cgi->header();
print $cgi->start_html('Asterisk Caller');
print '<center><p>call</p>';

my ($request,@phone_no,$phone_no);
        if ($ENV{'REQUEST_METHOD'} eq "GET")
                {                                             
                $request = $ENV{'QUERY_STRING'};              
                }                                             
        elsif ($ENV{'REQUEST_METHOD'} eq "POST")
                {                                      
                    read(STDIN, $request,$ENV{'CONTENT_LENGTH'}) || die "Could not get query\n";
                }

my @phone_no=split(/=/,$request);
my $phone_no;
my $phone_number = $phone_no[1];
chomp($phone_number);

my $host = '127.0.0.1';
my $login = "Action: login\r\nUsername: lite\r\nSecret: 4003\r\n\r\n";
$/ = "\r\n";    # <> reads a single line for signon banner

#       Code for making  connection with Telnet

my $s = IO::Socket::INET->new("$host:5038") or die "can't connect to $host: $!\n";
my $banner = <$s>;      # read the banner

my $line = ('-' x 78)."\n";
print $banner,$line;

print $s $login;
my $resp = <$s>;

print $resp,$line;

print $s "Action: Originate\r\nChannel: DAHDI/42/$phone_number\r\nContext: oreilly\r\nExten: s\r\nCallerID: 7702009896\r\nPriority: 1\r\nWaitTime: 10\r\nRetryTime: 20\r\nMaxRetries: 2\r\n\r\n";

$resp = <$s>;
print $resp,$line;

print $s "Action: Logoff\r\n\r\n";
$resp = <$s>;
print $resp,$line;

close $s;
4

1 回答 1

1

如果您使用 Apache 并在 Linux 服务器上运行，那么以下内容可能会有所帮助。

您可能需要以下.htaccess文件以及您的 Perl 代码：

<FilesMatch "\.pl$">
  Options +ExecCGI

  SetHandler cgi-script
</FilesMatch>

为此，您还需要确保 Perl 脚本是可执行的：

chmod 755 myscript.pl

..脚本的第一行类似于：

#!/usr/bin/perl
于 2013-10-29T17:36:33.750 回答