Applescript for Mac users of kdo to open a tab for each server and connect

svn path=/trunk/scripts/; revision=1785

diff --git a/osx-update.applescript b/osx-update.applescript
new file mode 100644 (file)
index 0000000..f749cb9
--- /dev/null
+++ b/osx-update.applescript
@@ -0,0 +1,18 @@
+set hosts to {"citadel-station.mit.edu", "aperture-science.mit.edu", "shadow-moses.mit.edu", "arklay-mansion.mit.edu", "xvm.mit.edu", "xvm-remote.mit.edu", "xvm-console.mit.edu"}
+
+tell application "Terminal"
+       activate
+       tell application "System Events" to tell process "Terminal" to keystroke "n" using command down
+       
+       set onFirst to true
+       repeat with host in hosts
+               if onFirst is true then
+                       set onFirst to false
+                       do script with command "kdo ${ATHENA_USER:-$USER}/root </dev/null >/dev/null" in selected tab of the first window
+               else
+                       tell application "System Events" to tell process "Terminal" to keystroke "t" using command down
+               end if
+               do script with command "kdo ${ATHENA_USER:-$USER}/root ssh -o GSSAPIDelegateCredentials=no root@" & host in selected tab of the front window
+               do script with command "aptitude update && aptitude dist-upgrade --without-recommends" in selected tab of the front window
+       end repeat
+end tell