#!/bin/bash

. ~/.aliases

#
function persist_svnserve() {
    # prep_svnserve hostname port repo_location
    echo "
function dopersist() {
while true; do
    ssh $1 << EOF
    while true; do
        svnserve -d --listen-port $2 --listen-host localhost -r $3
        sleep 600
        echo ping
    done
EOF
    sleep 120
done
}
"
}

session="persist"
screen-kill-session $session
sleep .5
screen-guarantee-session $session

tunnel1="
function dopersist() {
    while true; do
        ssh -R 2230:localhost:22 isrg ping -i 600 localhost
        sleep 120
    done
}
dopersist
"
screen-new-window $session isrg
screen-send-line $session isrg "$tunnel1"
tunnel2="
function dopersist() {
    while true; do
        ssh -R 2222:localhost:22 rainbow.nmt.edu ping -i 600 localhost
        sleep 120
    done
}
dopersist
"
screen-new-window $session rainbow1
screen-send-line $session rainbow1 "$tunnel2"

misvn="
`persist_svnserve underdog.nmt.edu 3457 /fs/tmp/dbaird/svn/micro_intf`
dopersist
"
screen-new-window $session misvn
screen-send-line $session misvn "$misvn"

sdsvn="
`persist_svnserve underdog.nmt.edu 3456 /u/dbaird/sdsvn`
dopersist
"
screen-new-window $session sdsvn
screen-send-line $session sdsvn "$sdsvn"

mywiki="
function dowiki() {
    cd ~/www/wiki/htdocs/
    python moin.py
}
dowiki
"
screen-new-window $session mywiki
screen-send-line $session mywiki "$mywiki"

myfetchmail="
function dofetchmail() {
    fetchmail
}
function dofetchmail2() {
    while true; do
        fetchmail -v
        sleep 300
    done
}
dofetchmail2
"
screen-new-window $session fetchmail
screen-send-line $session fetchmail "$myfetchmail"