I am working on Perl API for fax sending. I have created a script that resends a message. The method's variables are: the system's token and the message transaction ID. I receive the ID when I send the message for the first time.
When I run the script, it resends the message. Everything works perfectly. But, the script runs again in several minutes without me executing it. The script looks perfect to me. I am not too familiar with Perl, so maybe I am missing something obvious.
Any ideas why is it happening? I have tested the script in Mozilla and IE with the same result. I would really appreciate any help with that! Thanks.
use SOAP::Lite; print "Content-type: text/html\n\n"; #---------------------- Please enter your data my $token = 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; my $link ='xxxxxxxxxxxxxxxxx'; my $msgid = 'xxxx'; #transaction ID #----------------------------------------------------- my $start = SOAP::Lite ->uri($link) ->on_action( sub { join '/', $link, $_[1] } ) ->proxy('https://xxxxxxxxxxxxxxxx?WSDL'); my $response = $start ->call(SOAP::Data->name('ResendMsg')->attr({xmlns => 'xxxxxxxxxxxx +xx/'}) => SOAP::Data->name("token" => $token), SOAP::Data->name("TransactionID" => $msgid) ); if ( $response->fault ) { print $response->faultstring . "\n"; } print "Result: ".$response->valueof('//ResendMsgRes')."<br/>"; #If suc +cessful, returns the transactionID
In reply to Script runs twice by NatalieQ
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |