From: Evan Broder Date: Wed, 26 Nov 2008 04:54:39 +0000 (-0500) Subject: Applescript for Mac users of kdo to open a tab for each server and connect X-Git-Url: http://xvm.mit.edu/gitweb/invirt/scripts/osx-update.git/commitdiff_plain/abc672cd95713824d85a5e465dfd4e34bbc57bfb?ds=sidebyside Applescript for Mac users of kdo to open a tab for each server and connect svn path=/trunk/scripts/; revision=1785 --- abc672cd95713824d85a5e465dfd4e34bbc57bfb diff --git a/osx-update.applescript b/osx-update.applescript new file mode 100644 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" 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