smoker/screenrc-k93

   1 #
   2 # Example of a user's .screenrc file
   3 #
   4
   5 # This is how one can set a reattach password:
   6 #password ODSJQf.4IJN7E    # "1234"
   7
   8 # no annoying audible bell, please
   9 vbell on
  10
  11 # detach on hangup
  12 autodetach on
  13
  14 # don't display the copyright page
  15 startup_message off
  16
  17 # Extend the vt100 desciption with some sequences.
  18 termcap  vt100* ms:AL=\E[%dL:DL=\E[%dM:UP=\E[%dA:DO=\E[%dB:LE=\E[%dD:RI=\E[%dC
  19 terminfo vt100* ms:AL=\E[%p1%dL:DL=\E[%p1%dM:UP=\E[%p1%dA:DO=\E[%p1%dB:LE=\E[%p1%dD:RI=\E[%p1%dC
  20
  21 #xterm understands both im/ic and doesn't have a status line.
  22 #Note: Do not specify im and ic in the real termcap/info file as
  23 #some programs (e.g. vi) will not work anymore.
  24 termcap  xterm hs@:cs=\E[%i%d;%dr:im=\E[4h:ei=\E[4l
  25 terminfo xterm hs@:cs=\E[%i%p1%d;%p2%dr:im=\E[4h:ei=\E[4l
  26
  27 #80/132 column switching must be enabled for ^AW to work
  28 #change init sequence to not switch width
  29 termcap  xterm Z0=\E[?3h:Z1=\E[?3l:is=\E[r\E[m\E[2J\E[H\E[?7h\E[?1;4;6l
  30 terminfo xterm Z0=\E[?3h:Z1=\E[?3l:is=\E[r\E[m\E[2J\E[H\E[?7h\E[?1;4;6l
  31
  32 #make hp700 termcap/info better
  33 termcap  hp700 'Z0=\E[?3h:Z1=\E[?3l:hs:ts=\E[62"p\E[0$~\E[2$~\E[1$}:fs=\E[0}\E[61"p:ds=\E[62"p\E[1$~\E[61"p:ic@'
  34 terminfo hp700 'Z0=\E[?3h:Z1=\E[?3l:hs:ts=\E[62"p\E[0$~\E[2$~\E[1$}:fs=\E[0}\E[61"p:ds=\E[62"p\E[1$~\E[61"p:ic@'
  35
  36 #wyse-75-42 must have flow control (xo = "terminal uses xon/xoff")
  37 #essential to have it here, as this is a slow terminal.
  38 termcap wy75-42 xo
  39 terminfo wy75-42 xo
  40
  41 # New termcap sequences for cursor application mode.
  42 termcap wy* CS=\E[?1h:CE=\E[?1l:vi=\E[?25l:ve=\E[?25h:VR=\E[?5h:VN=\E[?5l:cb=\E[1K:CD=\E[1J
  43 terminfo wy* CS=\E[?1h:CE=\E[?1l:vi=\E[?25l:ve=\E[?25h:VR=\E[?5h:VN=\E[?5l:cb=\E[1K:CD=\E[1J
  44
  45 # Make the output buffer large for (fast) xterms.
  46 termcap xterm* OL=10000
  47 terminfo xterm* OL=10000
  48
  49 #remove some stupid / dangerous key bindings
  50 bind k
  51 bind ^k
  52 bind .
  53 bind ^\
  54 bind \\
  55 bind ^h
  56 bind h
  57 #make them better
  58 # NOOOO: bind '\\' quit
  59 bind 'K' kill
  60 bind 'I' login on
  61 bind 'O' login off
  62 bind '}' history
  63
  64 pow_detach_msg "Screen session of \$LOGNAME \$:cr:\$:nl:ended."
  65
  66 # Yet another hack:
  67 # Prepend/append register [/] to the paste if ^a^] is pressed.
  68 # This lets me have autoindent mode in vi.
  69 register [ "\033:se noai\015a"
  70 register ] "\033:se ai\015a"
  71 bind ^] paste [.]
  72
  73 # tell screen that xterm can switch to dark background and has function
  74 # keys.
  75 terminfo xterm 'VR=\E[?5h:VN=\E[?5l:k1=\E[11~:k2=\E[12~:k3=\E[13~:k4=\E[14~'
  76 termcap  xterm 'VR=\E[?5h:VN=\E[?5l:k1=\E[11~:k2=\E[12~:k3=\E[13~:k4=\E[14~'
  77 termcap  xterm 'kh=\E[1~:kI=\E[2~:kD=\E[3~:kH=\E[4~:kP=\E[5~:kN=\E[6~'
  78 terminfo xterm 'kh=\E[1~:kI=\E[2~:kD=\E[3~:kH=\E[4~:kP=\E[5~:kN=\E[6~'
  79
  80 # special xterm hardstatus: use the window title.
  81 termcap  xterm 'hs:ts=\E]2;:fs=\007:ds=\E]0;Screen\007'
  82 terminfo xterm 'hs:ts=\E]2;:fs=\007:ds=\E]0;Screen\007'
  83
  84 # advertise hardstatus support to $TERMCAP
  85 termcap  * '' 'hs:ts=\E_:fs=\E\\:ds=\E_\E\\'
  86 terminfo * '' 'hs:ts=\E_:fs=\E\\:ds=\E_\E\\'
  87
  88 # make the shell in every window a login shell
  89 #shell -$SHELL
  90
  91 # shellaka '> |tcsh'
  92 # shellaka '$ |sh'
  93
  94 terminfo wy75-42 'G0:S0=\E(K:E0=\E(B:C0=\104\133\126\134\134\135\144\173\166\174\174\175\137\176'
  95
  96 terminfo wy75-42 'hs@'
  97
  98 # our xterm has colors! (rxvt, too)
  99 termcap  xterm 'AF=\E[3%dm:AB=\E[4%dm'
 100 terminfo xterm 'AF=\E[3%p1%dm:AB=\E[4%p1%dm'
 101
 102 # set every new windows hardstatus line to somenthing descriptive
 103 defhstatus "Screen: window \5 (\5t)"
 104
 105 defscrollback 5000
 106
 107 #terminfo xterm 'vb=\E[?5h$<200/>\E[?5l'
 108 #termcap  xterm 'vi=\E[?25l:ve=\E[34h\E[?25h:vs=\E[34l'
 109
 110 # emulate part of the 'K' charset
 111 termcap   xterm 'XC=K%,%\E(B,[\304,\\\\\326,]\334,{\344,|\366,}\374,~\337'
 112 terminfo  xterm 'XC=K%,%\E(B,[\304,\\\\\326,]\334,{\344,|\366,}\374,~\337'
 113
 114 escape ^Oo
 115
 116 defutf8 on
 117
 118 msgminwait 4
 119
 120 # not possible with the standard version:
 121 # maxwin 199
 122
 123 # bindkey -k k8 windowlist -b
 124 bind ^i windowlist -b -m
 125
 126 #                   screen -fn -t foobar -L 2 telnet foobar
 127
 128 screen 0
 129 screen -t "____root____"
 130 stuff "ssh root@localhost -X -Y"
 131
 132 screen -t "TI I perl-clone secondsmoke"
 133 stuff 'cd /tmp && git clone /home/sand/src/perl/repoperls/perl5.git.perl.org/perl --no-single-branch perl-clone-$$ && cd perl-clone-$$/ && git config user.email root@dubravka.in-berlin.de && git config user.name "Andreas Koenig"'
 134
 135 screen -t "TI III run cpan"
 136 stuff "/home/sand/src/perl/repoperls/installed-perls/host/\$HOST/v5.[TAB]"
 137
 138 screen -t "TI V basesmoker (msid)"
 139 stuff "cd ~/megalog && perl ~/src/andk/andk-cpan-tools/bin/basesmoker.run.pl /home/sand/src/perl/repoperls/installed-perls/host/k93msid/v5.26.2/29fb/bin/perl"
 140
 141 screen -t "TI V basesmoker --extra (usually not msid)"
 142 stuff "cd /var/log/megasand && /home/sand/src/perl/repoperls/installed-perls/host/\$HOST/v5.26.2/29fb/bin/perl ~/src/andk/andk-cpan-tools/bin/basesmoker.pl --extra --perl=/home/sand/src/perl/repoperls/installed-perls/host/\$HOST/v5.[TAB]"
 143
 144 screen -t "TI V loop --makeperl (msid)"
 145 stuff "/home/sand/src/perl/repoperls/installed-perls/host/k93msid/v5.26.2/29fb/bin/perl  ~/src/andk/andk-cpan-tools/bin/loop-over-recent.pl --transient_build_dir --distro=Ref::Util --makeperl"
 146
 147 screen -t "TI VIII antihang (not msid)"
 148 stuff "cd /var/log/megasand && perl /home/sand/src/andk/andk-cpan-tools/bin/basesmoker-antihang.pl"
 149
 150 screen -t "TI VIII antihang (msid)"
 151 stuff "cd ~/megalog && perl /home/sand/src/andk/andk-cpan-tools/bin/basesmoker-antihang.pl"
 152
 153 screen -t "TI VII perl git (msid)"
 154 stuff "cd ~/src/perl/repoperls/perl5.git.perl.org/perl/ && git config user.email root@dubravka.in-berlin.de && git config user.name Andreas\ Koenig && /home/sand/src/perl/repoperls/installed-perls/host/k93msid/v5.26.2/29fb/bin/perl /home/sand/src/andk/andk-cpan-tools/bin/generate-recent.pl --jobs=2"
 155
 156 screen -t "TI C I replika (msid)"
 157 stuff "while true; do nice /home/sand/src/perl/repoperls/installed-perls/host/k93msid/v5.26.2/29fb/bin/perl -I ~/src/andk/rersyncrecent/lib -I ~/cpanpm/lib ~/src/andk/andk-cpan-tools/bin/loop-over-recent.pl --randomskip=0.75 --sleep=0.2 --parallel=7 --transient_build_dir --historical-excursions-arraysize=2800000 --reduce-perls-on-excursions --log ; date ; sleep 1800; date; done"
 158
 159 screen -t "TI C I replika (stretch)"
 160 stuff "/home/sand/src/perl/repoperls/installed-perls/host/k93stretch/v5.26.0/ccee/bin/perl -I ~/src/andk/rersyncrecent/lib -I ~/cpanpm/lib ~/src/andk/andk-cpan-tools/bin/loop-over-recent.pl  --parallel=1 --transient_build_dir --initial-backlog=600 --statefile=/home/sand/.cpan/loop-over-recent-k93stretch.state --test --perlglob='/home/sand/src/perl/repoperls/installed-perls/host/k93stretch/v5.{22.4/d123,24.3/9a27,26.1/751e}/bin/perl' --log"
 161
 162 screen -t "TI C VI replika cleanout ctr loop (msid)"
 163 stuff "/home/sand/src/perl/repoperls/installed-perls/host/k93msid/v5.26.2/29fb/bin/perl ~/src/andk/andk-cpan-tools/bin/cleanout-ctr-loop.pl"
 164
 165 screen -t "~~~~Xvfb :121~~~~ (all)"
 166 stuff "while true; do date ; if ! ps auxww | grep -v grep | grep -q Xvfb ; then Xvfb :121 & fi; echo -n 'sleeping 60 '; sleep 60; done"
 167
 168 screen -t "TI IX cleanup TEMP (all)"
 169 stuff "cd /home/sand/src/andk/andk-cpan-tools && while true; do perl bin/quick-tmp-cleanup.pl; echo sleeping; sleep 10800; done"