| @@ -62,9 +62,12 @@ Use gnus in emacs for email. Outside of normal emacs since its easier. | |||||
| (setq gnus-select-method | (setq gnus-select-method | ||||
| '(nnimap "outlook" | '(nnimap "outlook" | ||||
| (nnimap-address "outlook.office365.com") | (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 | (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-user-date-format-alist '((t . "%Y-%m-%d")) | ||||
| gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references | gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references | ||||
| gnus-sum-thread-tree-root "" | gnus-sum-thread-tree-root "" | ||||
| @@ -108,90 +111,7 @@ Use gnus in emacs for email. Outside of normal emacs since its easier. | |||||
| ) | ) | ||||
| #+END_SRC | #+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. | 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 | sudo launchctl load -w /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist | ||||
| exit $? | exit $? | ||||
| #+END_SRC | #+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) | #+BEGIN_SRC sh :tangle (when (eq cray-p t) "tmp/bin/tomod") :mkdirp yes :tangle-mode (identity #o755) | ||||
| #!/usr/bin/env sh | #!/usr/bin/env sh | ||||
| #-*-mode: Shell-script; coding: utf-8;-*- | #-*-mode: Shell-script; coding: utf-8;-*- | ||||
| @@ -275,7 +198,10 @@ rsync \ | |||||
| "${base_git}/" "${remote}:${remote_svn}" | "${base_git}/" "${remote}:${remote_svn}" | ||||
| echo "done rsyncing ${base_git} to ${remote}:${remote_svn}" | echo "done rsyncing ${base_git} to ${remote}:${remote_svn}" | ||||
| #+END_SRC | #+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) | #+BEGIN_SRC sh :tangle (when (eq cray-p t) "tmp/bin/towip") :mkdirp yes :tangle-mode (identity #o755) | ||||
| #!/usr/bin/env sh | #!/usr/bin/env sh | ||||
| #-*-mode: Shell-script; coding: utf-8;-*- | #-*-mode: Shell-script; coding: utf-8;-*- | ||||
| @@ -283,7 +209,7 @@ export script=$(basename "$0") | |||||
| export dir=$(cd "$(dirname "$0")"; pwd) | export dir=$(cd "$(dirname "$0")"; pwd) | ||||
| export iam=${dir}/${script} | export iam=${dir}/${script} | ||||
| remote=cfosbld01 | |||||
| remote=cfosbldvm01 | |||||
| export PATH=/usr/local/brew/10.10/bin:~/bin:${PATH} | export PATH=/usr/local/brew/10.10/bin:~/bin:${PATH} | ||||
| branch=$(git rev-parse --abbrev-ref HEAD) | branch=$(git rev-parse --abbrev-ref HEAD) | ||||