<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Hey Guys!<br><br>I have perl script for allpage which is working fine with asterisk 1.8.2.3 version but same script same dialplan wouldn't working on asterisk-1.8.3.2 is there anything changes ?<br><br>If i run this script from command like it works but not from asterisk dialplan. This script nothing but just connecting AMI interface and using Variable: SIPADDHEADER=Alert-Info: Ring Answer variable to call all phones and putting them in meetme conf room.<br><br>following is sample of script ( I am pasting half script ) <br><br># Now, we have an array (@tocall) with all valid SIP extensions.<br>while (my $sipxtn = shift @tocall) {<br> print "VERBOSE \"Doing $sipxtn\" 0\n";<br># Open connection to AGI<br> my $tn = new Net::Telnet ( Port => $mgrport,<br> Prompt => '/.*[\$%#>] $/',<br> Output_record_separator => '',<br> Input_Log=> "/tmp/input.log",<br> Output_Log=> "/tmp/output.log",<br> Errmode => 'return', );<br><br> $tn->open("127.0.0.1");<br> $tn->waitfor('/0\n$/');<br> $tn->print("Action: Login\n");<br> $tn->print("Username: $mgruser\n");<br> $tn->print("Secret: $mgrpass\n");<br> $tn->print("Events: off\n\n");<br> my ($pm, $m) = $tn->waitfor('/Authentication (.+)\n\n/');<br> if ($m =~ /Authentication failed/) {<br> print "VERBOSE \"Incorrect MGRUSER or MGRPASS - unable to connect to manager interface\" 0\n";<br> exit;<br> }<br> $tn->print("Action: Originate\nChannel: SIP/$sipxtn\nContext: all-page\nPriority: 1\n");<br> $tn->print("Variable: SIPADDHEADER=Alert-Info: Ring Answer\n");<br> $tn->print("Extension: s\n");<br> $tn->print("CallerID: System Page\n");<br> $tn->print("Action: Logoff\n\n");<br> $tn->close;<br>}<br><br><br>-S<br><br> </body>
</html>