12 lines
261 B
Perl
Executable File
12 lines
261 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Stop sharing
|
|
if( $ENV{ "TR_TORRENT_ID" } )
|
|
{
|
|
print "/usr/bin/transmission-remote -t ".$ENV{ "TR_TORRENT_ID" }." -r\n";
|
|
system("/usr/bin/transmission-remote", "-t", $ENV{ "TR_TORRENT_ID" }, "-r" );
|
|
}
|