Perl Fax - Cancel Pending Fax
To cancel a previously-submitted (outbound) Perl fax, use the CancelFax method.
CancelFax only effects Perl faxes waiting to be sent (with the status codes: -1 Preprocessing, -2 Ready, or -3 Pending Retry), and not faxes that are being actively transmitted at the time the method is called.
The following Perl fax script cancels a fax and checks if the cancellation succeeded:
#/**************** Settings begin **************/ my $username = ''; # Enter your Interfax username here my $password = ''; # Enter your Interfax password here my $transactionID = ""; my $NS = 'http://www.interfax.cc'; #/**************** Settings end ****************/ my $client = SOAP::Lite ->uri($NS) ->on_action( sub { join '/', $NS, $_[1] } ) ->proxy('http://ws.interfax.net/dfs.asmx?WSDL'); my $result = $client ->call(SOAP::Data->name('CancelFax')->attr({xmlns => $NS}) => SOAP::Data->name('Username')->value($username)->type(''), SOAP::Data->name('Password')->value($password)->type(''), SOAP::Data->name('TransactionID')->value($transactionID)->type('') ); if ( $result->fault ) { print $result->faultstring . "\n"; } else { if( $result->valueof('//CancelFaxResult') == 0 ) { print "Success" . "\n"; } else { print "Error, return code=" . $result->valueof('//CancelFaxResult') . "\n"; } }
