config/mldonkey/mldonkey_submit

   1 #!/usr/bin/perl
   2
   3 # Submit an eDonkey download request to mldonkey
   4 #
   5 # Argument(s): An ed2k URI of the form:
   6 #
   7 # ed2k://|file|<filename>|<filesize>|<MD4-sum|
   8 use LWP::UserAgent;
   9
  10 ($#ARGV >= 0) || die "Usage: mldonkey_submit <ed2kURI> ...
  11 ";
  12
  13 $vars{'HTTPURL'} = "http://127.0.0.1:4080";
  14 $vars{'HTTPUSER'} = "admin";
  15 $vars{'HTTPPASS'} = "";
  16
  17 my $ua = LWP::UserAgent->new;
  18
  19 while (my $uri = shift @ARGV) {
  20         $_ = URI::Escape::uri_unescape($uri);
  21         if (/^ed2k:\/\/\|file\|[^|]+\|(\d+)\|([\dabcdef]+)\|$/) {
  22                 my $size = $1;
  23                 my $md4 = $2;
  24                 my $req = HTTP::Request->new(
  25                         GET => "$vars{'HTTPURL'}/submit?q=dllink+$uri"
  26                 );
  27                 if (($vars{'HTTPUSER'}) && ($vars{'HTTPPASS'})) {
  28                         $req->authorization_basic($vars{'HTTPUSER'},
  29                                 $vars{'HTTPPASS'});
  30                 }
  31                 my $response = $ua->request($req);
  32                 if (!($response->is_success)) {
  33                         print $response->error_as_HTML;
  34                         exit 1;
  35                 }
  36         } else {
  37                 print "Not an ed2k URI: $_
  38 ";
  39         }
  40 }