[Asterisk-Users] how to connect to asterisk via perl agi

[Kamran Ahmad]

hello


i am getting this error while trying to run
ast-rad-acc.pl

my $ast_connected = 1;
while( 1 ) {
	if( $astman->connect ) {
		$ast_connected = 1;
		syslog('info', 'Connected to Asterisk!');
		$astman->setcallback('DEFAULT', \&status_callback);
		eval { $astman->eventloop; };
		print STDERR "Connected To Asterisk\n";
	} else {
		syslog('err', 'Could not connect to Asterisk!') if
$ast_connected;
		print STDERR "could not Connect To Asterisk\n";
		$ast_connected = 0;
	}
	sleep 1;
}

--------------------------------------------------
error
--------------------------------------------------

Jul 13 12:06:19 Kamran ast-rad-acc[10094]: RADIUS
accounting for Asterisk started
Jul 13 12:06:19 Kamran ast-rad-acc[10094]: Could not
connect to Asterisk!
J

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com