Transmission

Code: Select all

on open some_items
	set transmissionurl to "http://admin:password@your.host.name:9091"
	set rpcurl to transmissionurl & "/transmission/rpc"
	repeat with this_item in some_items
		set filename to POSIX path of this_item
		set b64 to do shell script "openssl base64 -e -in " & quoted form of (filename) & " | tr -d \"\\n\" | tr -d \"\\r\" "
		set session to do shell script "curl -D - " & rpcurl & " 2>/dev/null | grep '^X-Transmission-Session-Id'"
		set json to "{ \"method\": \"torrent-add\", \"arguments\": { \"metainfo\": \"" & b64 & "\" } }"
		set result to do shell script "curl -H " & quoted form of (session) & " -d " & quoted form of (json) & " " & rpcurl
	end repeat
	tell application "Firefox"
		OpenURL transmissionurl
	end tell
end open

Code: Select all

on open some_items
        set transmissionurl to "http://admin:password@your.host.name:9091"
        set rpcurl to transmissionurl & "/transmission/rpc"
        repeat with this_item in some_items
                set filename to POSIX path of this_item
                set b64 to do shell script "openssl base64 -e -in " & quoted form of (filename) & " | tr -d \"\\n\" | tr -d \"\\r\" "
                set json to "{ \"method\": \"torrent-add\", \"arguments\": { \"metainfo\": \"" & b64 & "\" } }"
                set result to do shell script "curl -d " & quoted form of (json) & " " & rpcurl
        end repeat
        tell application "Firefox"
                OpenURL transmissionurl
        end tell
end open

Code: Select all

property transmissionurl : ""

on open some_items
	if transmissionurl is equal to "" then
		set newurl to display dialog "Transmission Url" default answer "http://username:password@host.name:9091" with title "Preferences"
		set transmissionurl to text returned of newurl
	end if
	
	set rpcurl to transmissionurl & "/transmission/rpc"
	
	set successes to ""
	set failures to ""
	
	repeat with this_item in some_items
		set filename to POSIX path of this_item
		set b64 to do shell script "openssl base64 -e -in " & quoted form of (filename) & " | tr -d \"\\n\" | tr -d \"\\r\" "
		try
			set session to do shell script "curl -D - " & rpcurl & " 2>/dev/null | grep '^X-Transmission-Session-Id'"
		on error
			set session to ""
		end try
		set json to "{ \"method\": \"torrent-add\", \"arguments\": { \"metainfo\": \"" & b64 & "\" } }"
		if session is equal to "" then
			set result to do shell script "curl -d " & quoted form of (json) & " " & rpcurl
		else
			set result to do shell script "curl -H " & quoted form of (session) & " -d " & quoted form of (json) & " " & rpcurl
		end if
		set resultstr to do shell script "echo " & quoted form of (result) & " | sed -e 's/.*\"result\": \"\\([^\"]*\\)\".*/\\1/'"
		if "success" is in resultstr then
			set successes to successes & "* " & this_item & "
"
		else
			set failures to failures & " * " & resultstr & " -  " & this_item & " 
"
		end if
		
		if failures is not equal to "" then
			display alert "Failed!" message "FAILED Torrents: 
" & failures as warning
		end if
		
		if successes is not equal to "" then
			set question to display dialog "Successfully Started Torrents: 
" & successes buttons {"OK", "View"} default button 2
			set answer to button returned of question
			
			if answer is equal to "View" then
				open location transmissionurl
			end if
		end if
	end repeat
end open

set newurl to display dialog "Transmission Url" default answer transmissionurl with title "Preferences"
set transmissionurl to text returned of newurl