|
Last change
on this file since 1952 was
1785,
checked in by broder, 16 years ago
|
|
Applescript for Mac users of kdo to open a tab for each server and connect
|
|
File size:
936 bytes
|
| Rev | Line | |
|---|
| [1785] | 1 | 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"} |
|---|
| 2 | |
|---|
| 3 | tell application "Terminal" |
|---|
| 4 | activate |
|---|
| 5 | tell application "System Events" to tell process "Terminal" to keystroke "n" using command down |
|---|
| 6 | |
|---|
| 7 | set onFirst to true |
|---|
| 8 | repeat with host in hosts |
|---|
| 9 | if onFirst is true then |
|---|
| 10 | set onFirst to false |
|---|
| 11 | do script with command "kdo ${ATHENA_USER:-$USER}/root </dev/null >/dev/null" in selected tab of the first window |
|---|
| 12 | else |
|---|
| 13 | tell application "System Events" to tell process "Terminal" to keystroke "t" using command down |
|---|
| 14 | end if |
|---|
| 15 | do script with command "kdo ${ATHENA_USER:-$USER}/root ssh -o GSSAPIDelegateCredentials=no root@" & host in selected tab of the front window |
|---|
| 16 | do script with command "aptitude update && aptitude dist-upgrade --without-recommends" in selected tab of the front window |
|---|
| 17 | end repeat |
|---|
| 18 | end tell |
|---|
Note: See
TracBrowser
for help on using the repository browser.
