(* Flora_ssh-D // Version 1.3 // Code by Leask Huang // www.leaskh.com // i@leaskh.com *)
(* ======= Variable Declaration ======= *)
global timeTry
global DNSResponse
global isOLast
(* ======= General Settings ======= *)
(* Custom these before you run this script *)
set SSHServerName to "*******" -- Set ServerName, You must set this
set SSHUserName to "*******" -- Set UserName, You must set this
set SSHPasswd to "*******" -- Set Password, You must set this
set TwitterUsername to "*******" -- If you don't want to update Twitter status, leave it blank
set TwitterPassword to "*******" -- same as above
set TwitterText to "@" & TwitterUsername & " is online now! // " & (current date) -- same as above
set DNSUsername to "*******"
set DNSPassword to "*******"
set appStList to {"Adium", "CoverSutra", "Google Notifier"} -- these aplications will launch while you are online (or leave it blank)
set appQuitList to {"CoverSutra", "Google Notifier"} -- these aplications will quit while you are offline (or leave it blank)
(* ======= Advanced Settings ======= *)
(* You don't need to change these normally *)
(* ======= Main Script ======= *)
set isOLast to ""
repeat
delay 10000
end repeat
repeat
if fnCheckNet() is true then
if isOLast is not "online" then
fnSSHCnt()
fnAppStart()
fnDNSUpdate()
fnTwitter()
end if
set isOLast to "online"
say "All done!"
else
if isOLast is not "offline" then
fnAppQuit()
end if
set isOLast to "offline"
say "All done!"
end if
-- delay 333
delay 60
end repeat
(* ======= Functions ======= *)
to fnCheckNet()
try
do shell script "curl --connect-timeout 7 apple.com/favicon.ico"
if isOLast is not "online" then
say "Great! You are online."
end if
return true
on error
if isOLast is not "offline" then
say "Opps! You are offline."
end if
return false
end try
end fnCheckNet
to fnCheckSSHD()
try
do shell script "curl --socks5 127.0.0.1:7070 --connect-timeout 7 apple.com/favicon.ico"
say "OK! SSH D has been successfully connected."
return true
on error
if timeTry > 0 then
say "Opps! SSH D connection failed."
end if
return false
end try
end fnCheckSSHD
to fnAppStart()
if (count appStList) > 0 then
say "Start Applications"
try
repeat with intSti from 1 to (count appStList)
tell application (item intSti of appStList)
activate
end tell
end repeat
on error
say "Opps! Error."
end try
end if
end fnAppStart
to fnAppQuit()
if (count appQuitList) > 0 then
say "Quit Applications"
try
repeat with intSti from 1 to count appQuitList
tell application (item intSti of appQuitList)
quit
end tell
end repeat
on error
say "Opps! Error."
end try
end if
end fnAppQuit
to fnSSHCnt()
if (length of SSHServerName) > 0 and (length of SSHUserName) > 0 and (length of SSHPasswd) > 0 then
set timeTry to 0
say "Create SSH D connection"
repeat while fnCheckSSHD() is false
if timeTry > 0 then
if (button returned of (display dialog "Opps! ssh -D connection failed. Do you want to retry?" & return & "" buttons {"Retry", "Quit"})) is "Quit" then
exit repeat
end if
end if
fnShellSSH()
set timeTry to timeTry + 1
end repeat
end if
end fnSSHCnt
to fnShellSSH()
try
tell application "Terminal"
quit
delay 1
activate
delay 1
do script "rm ~/Downloads/.Flora_ssh-D.out" in window 1
do script "killall ssh" in window 1
do script "killall ssh-agent" in window 1
do script "nohup ssh -D 7070 " & SSHUserName & "@" & SSHServerName & " > Downloads/.Flora_ssh-D.out" in window 1
end tell
say "SSH D connection request and log in request have been sent. Waiting for response from remote server."
tell application "Terminal"
do script SSHPasswd in window 1
delay 1
quit
end tell
on error
say "Opps! Error."
end try
end fnShellSSH
to fnTwitter()
if (length of TwitterUsername) > 0 and (length of TwitterPassword) > 0 and (length of TwitterText) > 0 then
say "Update Twitter state"
try
do shell script "curl --user " & (quoted form of (TwitterUsername & ":" & TwitterPassword)) & " --data-binary " & (quoted form of ("status=" & TwitterText)) & " https://twitter.com/statuses/update.json"
say "OK! Twitter state has been successfully updated."
on error
say "Opps! Error."
end try
end if
end fnTwitter
to fnDNSShell()
try
set DNSResponse to (do shell script "curl https://" & DNSUsername & ":" & DNSPassword & "@updates.dnsomatic.com/nic/update?&wildcard=NOCHG&mx=NOCHG&backmx=NOCHG")
if first word of DNSResponse is "good" then
return true
else
return false
end if
on error
return false
end try
end fnDNSShell
to fnDNSUpdate()
if (length of DNSUsername) > 0 and (length of DNSPassword) > 0 then
say "Update dynamic IP"
if fnDNSShell() is true then
say "OK! Dynamic IP has been successfully updated to " & (second word of DNSResponse)
else
say "Opps! Error."
end if
end if
end fnDNSUpdate
Tools 
Help
