Ok now it seems that the perl script is called (even php script called inside perl script works)

but $session is empty, despite of session_in_hangup_hook=true

my Perl script is very simple :

----------------------------------------

#!/usr/local/bin/perl
use strict;
our $session;
my %VARS;

        sub fprint($) #Dump string to the console
        {
                my ($msg) = @_;
                freeswitch::consoleLog("CRIT",$msg . "\n");
        }

        sub GETV #takes one or more variables names to import in
        {
                my @arr = @_;
                foreach my $var (@arr)
                {
                        $VARS{$var} = $session->getVariable($var);
                }
                &QWPHP();
        }

        sub QWPHP
        {
                my $shell_result;
                if($VARS{fax_mode} eq "recv")
                {
                        $shell_result = `/usr/local/bin/php /usr/local/freeswitch/scripts/php/faxCallBack.php $VARS{account_email} $VARS{effective_caller_id_name} $VARS{caller_id_number} $VARS{fax_file} $VARS{fax_status} $VARS{fax_result_text}`;
                }
                elsif($VARS{fax_mode} eq "send")
                {
                        $shell_result = `/usr/local/bin/php /usr/local/freeswitch/scripts/php/faxCallBack.php $VARS{php_session} $VARS{fax_status} $VARS{fax_result_text}`;
                }
        }

GETV(qw/fax_mode destination_number effective_caller_id_name effective_caller_id_number caller_id_number fax_file fax_status fax_result_text/);

----------------------

----- Original Message -----

Sent: Tuesday, December 07, 2010 11:04 PM

Subject: Re: [Freeswitch-users] api_hangup_hook question

why I put parenthesis, this is the right syntax :

----- Original Message -----

Sent: Tuesday, December 07, 2010 10:58 PM

Subject: Re: [Freeswitch-users] api_hangup_hook question

Sorry correction for the last code it shows

2010-12-07 22:57:25.262675 [DEBUG] switch_core_state_machine.c:492 Hangup Command with Session system(/usr/local/freeswitch/scripts/perl/faxStatus.pl)():
INVALID COMMAND!

----- Original Message -----

Sent: Tuesday, December 07, 2010 10:53 PM

Subject: Re: [Freeswitch-users] api_hangup_hook question

mmmhmm, weird in the logs I can see :

/usr/local/freeswitch/scripts/perl/faxStatus.pl(): ///////////// what is these parenthesis at the last?

system(usr/local/freeswitch/scripts/perl/faxStatus.pl()):

INVALID COMMAND!

if you think this log is not enough I will pastebin, but the rest of logs are ok....

----- Original Message -----

From: Michael Collins

Sent: Tuesday, December 07, 2010 3:51 PM

Subject: Re: [Freeswitch-users] api_hangup_hook question

-MC

On Tue, Dec 7, 2010 at 10:27 AM, Madovsky <infos@madovsky.org> wrote:

I have this in dialplan/default

        <extension name="9999999999">
                <condition field="destination_number" expression="^(9999999999)$">
                        <action application="set" data="domain_name=$${domain}"/>
                        <action application="export" data="dialed_extension=$1"/>
                        <action application="set" data="hangup_after_bridge=true"/>
                        <action application="set" data="continue_on_fail=NORMAL_TEMPORARY_FAILURE,CALL_REJECTED,USER_NOT_REGISTERED,NO_ANSWER,NO_USER_RESPONSE,USER_BUSY"/>
                        <action application="ring_ready"/>
                        <action application="tone_detect" data="fax 1100 r +5000 transfer 'receivefax XML features' 1" />
                        <action application="export" data="originate_timeout=15"/>
                        <action application="bridge" data="{absolute_codec_string='speex@16000k,G729,GSM,G726,PCMU,PCMA',sip_from_uri=${sip_from_user}@${sip_from_host},origination_caller_id_name=${caller_id_name},origination_caller_id_number=${caller_id_number}}user/${dialed_extension}"/>
                        <action application="sleep" data="3000"/>
                        <action application="answer"/>
                        <action application="voicemail" data="default ${domain_name} ${dialed_extension}"/>
                </condition>
        </extension>

and this in dialplan/features

    <extension name="receivefax">
      <condition field="destination_number" expression="^receivefax$">
        <action application="set" data="session_in_hangup_hook=true"/>
        <action application="set" data="fax_file=/usr/local/freeswitch/storage/fax/${caller_id_number}-${uuid}.rxfax.tiff"/>
        <action application="set" data="fax_mode=recv"/>
        <action application="set" data="api_hangup_hook=perl /usr/local/freeswitch/scripts/perl/faxStatus.pl"/>
        <action application="answer" />
        <action application="playback" data="silence_stream://2000"/>
        <action application="set" data="fax_enable_t38_request=true"/>
        <action application="set" data="fax_enable_t38=true"/>
        <action application="rxfax" data="/usr/local/freeswitch/storage/fax/${caller_id_number}-${uuid}.rxfax.tiff"/>
        <action application="hangup"/>
      </condition>
    </extension>

the fax is received well, but the perl script is not executed.

Am I missing anything ?

Thanks

Franck

_______________________________________________
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org