'Simple perl script doesn't work with itorrents API (12 LINES)
yesterday i tried to code an example script with perl and itorrents api, i'm using the perl IDE Padre. Basically, this script sends data to a server (itorrents) here's the link of the api: itorrents.org/automation i copied and pasted the code that the website gived to me, and it's not working! I installed this perl modules with windows cmd:
cpan App:cpanminus
cpanm MIME::Base64
cpanm MIME::Parser
cpanm MIME::Tools
cpanm Test::XML
cpanm SOAP::Lite
cpanm SOAP::WSDL
This is my script (caching.pl):
#!/usr/bin/perl
use MIME::Base64 ();
use SOAP::Lite ();
open( FILE, 'my.torrent' ) or die "$!";
while( read( FILE, $buf, 60*57 ) ) { $tor .= MIME::Base64::encode( $buf ); }
close( FILE );
$infoHash = SOAP::Lite->service( 'http://itorrents.org/api/torrage.wsdl' )->cacheTorrent( $tor );
print $infoHash;
Thanks in advance, im not fluent in this language, sorry. Edit: sorry i forget to post the error line:
Service description 'http://itorrents.org/api/torrage.wsdl' can't be loaded: 500 Can't connect to itorrents.org:443
Sources
This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.
Source: Stack Overflow
| Solution | Source |
|---|
