user-tools/mkmagnetlink

   1 #!/usr/bin/env perl
   2
   3 for my $file (@ARGV)
   4 {
   5         my $hash = '';
   6         my $trackers = '';
   7         my $trackers_section = 0;
   8
   9         open my $pipe, '-|', "transmission-show", $file or warn "transmission-show $file: $!\n";
  10         while(<$pipe>)
  11         {
  12                 /^\s*Hash:\s*(\S+)/ and $hash = $1;
  13                 /^TRACKERS/ and $trackers_section = 1;
  14                 /^(?!TRACKERS)\S/ and $trackers_section = 0;
  15                 if($trackers_section and /^\s*Tier/)
  16                 {
  17                         my $tracker = <$pipe>;
  18                         $tracker =~ s/^\s*//;
  19                         $tracker =~ s/\s*$//;
  20                         $tracker =~ s/[^a-zA-Z0-9._-]/sprintf "%%%02X", ord $&/ige;
  21                         $trackers .= '&tr='.$tracker;
  22                 }
  23         }
  24         close $pipe;
  25
  26         print "magnet:?xt=urn:btih:$hash$trackers\n";
  27 }
  28
  29 __END__
  30
  31 =pod
  32
  33 =head1 NAME
  34
  35 mkmagnetlink - Create a "magnet:" link out of a torrent file
  36
  37 =cut
  38