Originally Posted by padmaja_3

Hi all,
I'm stuck with how to pass the return value to asterisk. That is, a value has to be passed from perl script to asterisk. The variable returned in Perl has to be passed to asterisk, where if the return value is 1 from perl , i have to do something and if return value is 0, i have to do something else.

I have written code like this.

Help with Code Tags

(Toggle Plain Text)

exten => 9999,23,AGI(insert_into_database.pl|${intime}|${outtime}|${telephone_number}|${date}|${month}|${year}

exten => 9999,23,AGI(insert_into_database.pl|${intime}|${outtime}|${telephone_number}|${date}|${month}|${year}

in Perl Script:
******************

Help with Code Tags

(Toggle Plain Text)

$fullDate = $ARGV[3]."".SARGV[4]."".$ARGV[5];
...........
........(some more code)


if($record == 0 && $rec == 0 && $pri == 0)
{
$stmt = "INSERT into $table_name values($ARGV[0],$ARGV[1],$ARGV[2],$fullDate)";
$fetch = $dbh->prepare($stmt);
$fetch->execute();
}
else
{
print "\nValues cannot be inserted in database\n\n";
}

$fullDate = $ARGV[3]."".SARGV[4]."".$ARGV[5]; ........... ........(some more code) if($record == 0 && $rec == 0 && $pri == 0) { $stmt = "INSERT into $table_name values($ARGV[0],$ARGV[1],$ARGV[2],$fullDate)"; $fetch = $dbh->prepare($stmt); $fetch->execute(); } else { print "\nValues cannot be inserted in database\n\n"; }

If that "if" condition satisfies, then it has to return some value, say 0.Otherwise 1. Even if i write return 0, there in "if" condition, how can i get that value to asterisk?

Pls suggest me how to proceed.

Thanks in advance,
Padmaja T N.