| @@ -62,9 +62,12 @@ Use gnus in emacs for email. Outside of normal emacs since its easier. | |||
| (setq gnus-select-method | |||
| '(nnimap "outlook" | |||
| (nnimap-address "outlook.office365.com") | |||
| (nnimap-server-port 993))) | |||
| (nnimap-server-port 993)) | |||
| message-send-mail-with-function 'smtpmail-send-it | |||
| send-mail-function 'smtpmail-send-it | |||
| ) | |||
| (setq-default | |||
| gnus-summary-line-format "[%U%R%z](%i) %(%&user-date; %-15,15f %B%s%)\n" | |||
| gnus-summary-line-format "[%U%R%z] %(%&user-date; %-15,15f %B%s%)\n" | |||
| gnus-user-date-format-alist '((t . "%Y-%m-%d")) | |||
| gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references | |||
| gnus-sum-thread-tree-root "" | |||
| @@ -108,90 +111,7 @@ Use gnus in emacs for email. Outside of normal emacs since its easier. | |||
| ) | |||
| #+END_SRC | |||
| ** ~/bin/essh | |||
| Expect ssh, to aide login to smw's etc.. | |||
| #+BEGIN_SRC expect :tangle (when (eq cray-p t) "tmp/bin/essh") :mkdirp yes :tangle-mode (identity #o755) | |||
| #!/usr/bin/expect | |||
| set prompt "> " | |||
| set password [lindex $argv 1] | |||
| set connstr [lindex $argv 0] | |||
| if {$argc > 2} { | |||
| eval spawn ssh -q $connstr "[lrange $argv 2 end]" | |||
| set timeout 3600 | |||
| expect { | |||
| timeout { | |||
| puts "Command took too long" | |||
| exit 1 | |||
| } | |||
| "yes/no" { | |||
| send "yes\r" | |||
| exp_continue | |||
| } | |||
| "assword:" { | |||
| send -- "$password\r" | |||
| exp_continue | |||
| } | |||
| } | |||
| } else { | |||
| spawn ssh -q $connstr | |||
| set timeout 5 | |||
| expect { | |||
| timeout { | |||
| puts "Connection timed out" | |||
| exit 1 | |||
| } | |||
| "yes/no" { | |||
| send "yes\r" | |||
| exp_continue | |||
| } | |||
| "assword:" { | |||
| send -- "$password\r" | |||
| exp_continue | |||
| } | |||
| "$prompt" { | |||
| interact | |||
| } | |||
| } | |||
| } | |||
| #+END_SRC | |||
| *** ~/bin/escp | |||
| Similar to the above only for scp. | |||
| #+BEGIN_SRC expect :tangle (when (eq cray-p t) "tmp/bin/escp") :mkdirp yes :tangle-mode (identity #o755) | |||
| #!/usr/bin/expect | |||
| set prompt "> " | |||
| set password [lindex $argv 0] | |||
| if {$argc > 2} { | |||
| eval spawn scp -q "[lrange $argv 1 end]" | |||
| set timeout 3600 | |||
| expect { | |||
| timeout { | |||
| puts "Command took too long" | |||
| exit 1 | |||
| } | |||
| "yes/no" { | |||
| send "yes\r" | |||
| exp_continue | |||
| } | |||
| "assword:" { | |||
| send -- "$password\r" | |||
| exp_continue | |||
| } | |||
| } | |||
| } | |||
| #+END_SRC | |||
| *** ~/bin/flushdns | |||
| ** ~/bin/flushdns | |||
| For some reason this sometimes needs to happen, stupid work dns. | |||
| @@ -205,7 +125,10 @@ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.mDNSResponder.p | |||
| sudo launchctl load -w /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist | |||
| exit $? | |||
| #+END_SRC | |||
| *** ~/bin/tomod | |||
| ** ~/bin/tomod | |||
| LEGACY svn interop | |||
| #+BEGIN_SRC sh :tangle (when (eq cray-p t) "tmp/bin/tomod") :mkdirp yes :tangle-mode (identity #o755) | |||
| #!/usr/bin/env sh | |||
| #-*-mode: Shell-script; coding: utf-8;-*- | |||
| @@ -275,7 +198,10 @@ rsync \ | |||
| "${base_git}/" "${remote}:${remote_svn}" | |||
| echo "done rsyncing ${base_git} to ${remote}:${remote_svn}" | |||
| #+END_SRC | |||
| *** ~/bin/towip | |||
| ** ~/bin/towip | |||
| LEGACY svn interop | |||
| #+BEGIN_SRC sh :tangle (when (eq cray-p t) "tmp/bin/towip") :mkdirp yes :tangle-mode (identity #o755) | |||
| #!/usr/bin/env sh | |||
| #-*-mode: Shell-script; coding: utf-8;-*- | |||
| @@ -283,7 +209,7 @@ export script=$(basename "$0") | |||
| export dir=$(cd "$(dirname "$0")"; pwd) | |||
| export iam=${dir}/${script} | |||
| remote=cfosbld01 | |||
| remote=cfosbldvm01 | |||
| export PATH=/usr/local/brew/10.10/bin:~/bin:${PATH} | |||
| branch=$(git rev-parse --abbrev-ref HEAD) | |||