DSM-G600, DNS-3xx and NSA-220 Hack Forum

#!/ffp/bin/perl

# tr_port is the port that transmission admin is running on
$tr_port = 9090;

# tr_bin is the path and name of transmission-remote executable
$tr_bin="/ffp/bin/transmission-remote";

$tdate = `/ffp/bin/date`;
chomp($tdate);
$tdate =~ s/E.T //ig;
#print $tdate." Running $0\n";

# query for any completed torrents
@trn_items=`$tr_bin $tr_port -l|grep "Finished"`;

foreach $item(@trn_items) {
  $item =~ s/^\s+//;
  while ( $item =~ m/  / ) { $item =~ s/  / /ig; }
  @b = split(/\s/,$item);
  $tname = $b[9];
  for ($i=10; $i<=($#b+1); $i++) { $tname .= " ".$b[$i]; }
  print $tdate." Removal of torrent [".$b[0]."] ".$tname;
  # delete the finished torrent entry
  $result = `$tr_bin $tr_port -t $b[0] -r`;
  chomp($result);
  print ( $result =~ m/success/i ? "Succeeded\n" : "Failed ".$result."\n" );
}

# eof