lilalo

annotate l3bashrc @ 155:8ee5e59f1bd3

find changesets by author, revision, files, or words in the commit message
Локальное хранение и анализ данных с помощью SQlite

Очень много изменений, касающихся работы с sqlite
и локального использования результатов записи.
Подробнее:
README.l3text
author Igor Chubin <igor@chub.in>
date Tue Mar 16 20:05:30 2010 +0200 (2010-03-16)
parents 40d843395547
children a0daf0c3fa52
rev   line source
devi@70 1 #!/bin/sh
devi@70 2
devi@105 3 # (c) Igor Chubin, igor@chub.in, 2004-2006
devi@70 4
devi@76 5 # Environment variables set by the script:
devi@76 6 #
devi@76 7 # L3_SESSION_ID - uniq id of the LiLaLo-session
devi@76 8 # L3_PARENT_TTY - name of tty on which script is running
devi@76 9 # PS1 - intercative shell prompt in which LiLaLo hides
devi@76 10 # various information about the command
devi@76 11 # L3_TAMPERED_EDITORS - list of editors which are tampered with functions
devi@76 12
devi@76 13
devi@76 14 # Functions with the names starting _l3_ are internal.
devi@76 15 # Such functions are unset before this rc script exits
devi@76 16
devi@76 17 _l3_editors_to_tamper='/bin/vi /usr/bin/vi /usr/bin/vim /bin/ee /usr/bin/ee /usr/bin/pico /usr/bin/nano /usr/local/bin/vim'
devi@76 18
devi@70 19 _l3_start()
devi@70 20 {
devi@80 21 echo $- | grep -q i || return 0
devi@79 22 if _l3_is_running_here
devi@76 23 then
devi@76 24 _l3_env
devi@76 25 _l3_init_prompt
devi@76 26 l3_fix_prompt
devi@76 27 _l3_tamper_editors
devi@76 28 _l3_tamper_commands
devi@76 29 _l3_unset_internal
devi@79 30 else
devi@79 31 _l3_start_session
devi@79 32 _l3_run_script
devi@76 33 fi
devi@76 34 }
devi@76 35
devi@76 36 # ===================== STAGE 1 ============================
devi@76 37
devi@79 38 _l3_is_running_here()
devi@76 39 {
devi@79 40 ps waux | awk '{print $2" "$11 }' | grep -q ^$PPID" "script
devi@79 41 return $?
devi@79 42
devi@79 43 # Check if ^^^^ run on Linux
devi@79 44 # and del vvvv this if it does
devi@79 45
devi@76 46 export L3_TTY=`/usr/bin/tty`
devi@79 47 uname -a | grep -qi bsd && bsd=yes
devi@70 48 proc_on_the_term=`w | grep "${L3_TTY##/dev/}" | awk '{print $8;}'`
devi@70 49 # freeBSD:
devi@70 50 [ -n "$bsd" ] && \
devi@70 51 proc_on_the_term=`w | grep "${L3_TTY##/dev/tty}" | awk '{print $6;}'`
devi@70 52
devi@79 53 [ -n "$proc_on_the_term" ] && echo $proc_on_the_term | grep -q script
devi@70 54 }
devi@70 55
devi@70 56 _l3_start_session()
devi@70 57 {
devi@79 58 export L3_SESSION_ID=${RANDOM}${RANDOM}${RANDOM}${RANDOM}-`date +%s`
devi@71 59 export L3_HOME=~/.lilalo/
igor@155 60 L3_SQLITE=$L3_HOME/report.sqlite
devi@70 61 mkdir -p $L3_HOME
devi@70 62
devi@79 63 tty=`/usr/bin/tty`
devi@70 64 uname -a | grep -qi bsd && bsd=yes
devi@70 65 parent=`cat /proc/$PPID/cmdline 2> /dev/null`
devi@79 66 [ -z "$parent" ] && parent="`ps waux | awk '{if ($2 == '$PPID') print $11; }'`"
devi@70 67 system=`uname -rs`
devi@79 68 login_from=`who | grep "${tty##/dev/}" | awk '{print $6;}' | tr -d '()'`
devi@70 69 #[ -n "$bsd" ] && login_from="" #FIXME!
devi@70 70 start_time=`date +%s`
devi@70 71 hostname=`hostname -f 2> /dev/null`
devi@70 72 [ -n "$bsd" ] && hostname=`hostname`
devi@70 73
igor@155 74 cat <<INFO | perl
igor@155 75 use DBI;
igor@155 76 use strict;
igor@155 77 my \$db = DBI->connect("dbi:SQLite:$L3_SQLITE", "", "",
igor@155 78 {RaiseError => 1, AutoCommit => 1});
igor@155 79
igor@155 80 \$db->do("CREATE TABLE IF NOT EXISTS sessions (id INTEGER PRIMARY KEY,
igor@155 81 session TEXT, hostname TEXT, user TEXT, uid TEXT, login_from TEXT,
igor@155 82 tty TEXT, system TEXT, parent TEXT, ppid TEXT, pid TEXT, start_time TEXT, lang TEXT)");
igor@155 83 \$db->do("INSERT INTO sessions VALUES (NULL, '$L3_SESSION_ID', '$hostname', '$USER', '$UID', '$login_from',
igor@155 84 '$tty', '$system', '$parent', '$PPID', '$$',
igor@155 85 '$start_time', '$LANG')");
igor@155 86 INFO
igor@155 87 #perl $temp_l3_name #; rm $temp_l3_name; unset temp_l3_name
igor@155 88
devi@70 89 cat <<INFO > $L3_HOME/$L3_SESSION_ID.info
devi@70 90 <session>
devi@70 91 <local_session_id>$L3_SESSION_ID</local_session_id>
devi@70 92 <hostname>$hostname</hostname>
devi@70 93 <user>$USER</user>
devi@70 94 <uid>$UID</uid>
devi@70 95 <login_from>$login_from</login_from>
devi@79 96 <tty>$tty</tty>
devi@70 97 <system>$system</system>
devi@70 98 <parent>$parent</parent>
devi@70 99 <ppid>$PPID</ppid>
devi@70 100 <pid>$$</pid>
devi@70 101 <start_time>$start_time</start_time>
devi@76 102 <lang>$LANG</lang>
devi@70 103 </session>
devi@70 104 INFO
devi@70 105
devi@79 106 unset parent system login_from start_time hostname tty
devi@70 107 }
devi@70 108
devi@70 109 _l3_run_script()
devi@70 110 {
devi@70 111 uname -a | grep -qi bsd && bsd=yes
devi@70 112 flush="-f" #linux
devi@70 113 [ -n "$bsd" ] && flush="-t 0" #freebsd
devi@76 114 export L3_PARENT_TTY=`/usr/bin/tty`
igor@149 115 exec script $flush -c ${0#-} -q $L3_HOME/${L3_SESSION_ID}.script
devi@70 116 }
devi@70 117
devi@76 118 # ===================== STAGE 2 ============================
devi@76 119
devi@76 120 _l3_env()
devi@76 121 {
devi@76 122 trap l3_close_session 2
devi@76 123 trap l3_close_session EXIT
devi@76 124 true
devi@76 125 }
devi@76 126
devi@76 127 l3_close_session()
devi@70 128 {
devi@71 129 (
devi@71 130 echo '<history>'
devi@71 131 history | sed 's/&/\&amp;/; s/</\&lt;/g; s/>/\&gt;/g'
devi@71 132 echo '</history>'
devi@71 133 ) >> $L3_HOME/$L3_SESSION_ID.info
devi@70 134 }
devi@70 135
devi@76 136 _l3_init_prompt()
devi@76 137 {
devi@76 138 PS1='[\u@\h:\W]\$ '
devi@77 139 [ $UID = 0 ] \
devi@77 140 && PS1='\[\033[0;31m\]'$PS1'\[\033[0m\]' \
devi@77 141 || PS1='\[\033[0;32m\]'$PS1'\[\033[0m\]' \
devi@76 142 export PS1
devi@76 143 }
devi@76 144
devi@76 145 l3_fix_prompt()
devi@76 146 {
igor@119 147 export PS1='\[$($L3_HOME/l3prompt "v3#\!#$?#$UID#$$#$(/bin/date +%s)#$PWD#$RANDOM#")$(l3_save_last_line >& /dev/null)\]'$PS1
devi@76 148 }
devi@76 149
devi@76 150 _l3_tamper_editors()
devi@76 151 {
devi@76 152 for editor_file in $_l3_editors_to_tamper
devi@76 153 do
devi@76 154 [ -x $editor_file ] || continue
devi@76 155 editor_name=${editor_file##*/}
devi@76 156 eval "
devi@76 157 $editor_name() {
devi@76 158 if [ -d \"\$1\" ]
devi@76 159 then
devi@76 160 $editor_file \"\$1\"
devi@76 161 return \$?
devi@76 162 else
devi@76 163 TIME=\"\`date +%s\`\"
devi@76 164 DIR=\"\"
devi@76 165 [ \"\${1#/}\" = \"\$1\" ] && DIR=\"\$PWD/\"
devi@80 166 DIFFNAME=\"\${L3_SESSION_ID}_\${TIME}\`echo \$DIR\$1| sed s@_@__@ | sed 's@/@_@g'\`.diff\"
devi@76 167 old_file=\"/tmp/l3-saved-\$\$.\$RANDOM.\$RANDOM\"
devi@76 168 /bin/cp -- \"\$1\" \"\$old_file\" 2> /dev/null
devi@76 169 $editor_file \"\$@\" || ERR=\$?
igor@112 170 if [ -e \"\$old_file\" ]
igor@112 171 then
igor@112 172 diff -u \"\$old_file\" \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null
igor@112 173 else
igor@112 174 diff -u /dev/null \"\$1\" > \"\$L3_HOME/\$DIFFNAME\" 2> /dev/null
igor@112 175 fi
devi@76 176 /bin/rm \"\$old_file\" 2> /dev/null
devi@76 177 return \$ERR
devi@76 178 fi
devi@76 179 }
devi@76 180 "
devi@76 181 L3_TAMPERED_EDITORS="$L3_TAMPERED_EDITORS $editor_name"
devi@76 182 done
devi@76 183 [ -n "$L3_TAMPERED_EDITORS" ] && export L3_TAMPERED_EDITORS
devi@76 184 }
devi@76 185
devi@76 186 _l3_tamper_commands()
devi@76 187 {
devi@76 188 tty()
devi@76 189 {
devi@76 190 [ -n "$L3_PARENT_TTY" ] && echo $L3_PARENT_TTY || /usr/bin/tty
devi@76 191 }
devi@76 192 }
devi@76 193
devi@76 194 _l3_unset_internal()
devi@76 195 {
devi@76 196 unset `set | grep '^_l3_.*()' | sed 's/()//'`
devi@76 197 unset `set | grep '^_l3_.*=' | sed 's/=.*//'`
devi@76 198 }
devi@78 199
devi@78 200 l3shot()
devi@78 201 {
devi@78 202 if [ -x "`which xwd`" ]
devi@78 203 then
devi@78 204 _l3_home=${L3_HOME:-~/.lilalo}
devi@78 205 shot_name="${L3_SESSION_ID}_`date +%s`".xwd
devi@78 206 echo -n Choose window to be shoot ... >&2
devi@78 207 [ -d ${_l3_home} ] || mkdir -p ${_l3_home}
devi@78 208 xwd -out "$_l3_home/$shot_name" \
devi@78 209 && echo Screenshot is written to ${_l3_home}/${shot_name} \
igor@115 210 && curl -s -F photo=@$_l3_home/$shot_name http://`l3-config backend_address`/l3-upload
devi@78 211 else
devi@78 212 {
devi@78 213 echo
devi@78 214 echo "Can't make screenshot :("
devi@78 215 echo
devi@78 216 echo I must use program xwd to make screenshot,
devi@78 217 echo but it seems not to be installed
devi@78 218 echo Try to find the program in the \"xbase-clients\" package
devi@78 219 echo
devi@78 220 } >&2
devi@78 221 fi
devi@78 222 }
devi@97 223
igor@111 224 l3upload()
igor@111 225 {
igor@111 226 if [ $# -lt 1 ]
igor@111 227 then
igor@111 228 echo Usage:
igor@111 229 echo
igor@144 230 echo l3upload "<filename> [<time>]"
igor@111 231 echo
igor@111 232 echo "<filename>" - name of the file to upload
igor@111 233 return 1
igor@111 234 else
igor@111 235 source=$1
igor@144 236 time=`date +%s`
igor@144 237 [ -n "$2" ] && time="$2"
igor@144 238 target="${L3_SESSION_ID}_$time"_"$(echo $source|sed s@.*/@@)"
igor@111 239 if echo $source | grep -q http://
igor@111 240 then
igor@111 241 curl -s "$source" > /tmp/$target
igor@111 242 else
igor@111 243 [ -r "$source" ] || { echo "l3upload: Can't open $source for reading" > /dev/stderr; return 1; }
igor@111 244 cp $source /tmp/$target
igor@111 245 fi
igor@111 246 echo Uploaded file name is ${target}
igor@115 247 curl -s -F photo=@/tmp/$target http://`l3-config backend_address`/l3-upload && rm -f /tmp/$target
igor@111 248 fi
igor@111 249 }
igor@111 250
igor@144 251 l3mass_upload()
igor@144 252 {
igor@144 253 for i in "$@"
igor@144 254 do
igor@144 255 l3upload $i `perl -e 'print (((stat("$i"))[9])."\n")'`
igor@144 256 done
igor@144 257 }
igor@144 258
devi@97 259 # Append lines from "$@" files to the end of the shell history
igor@111 260 hist_append ()
igor@111 261 {
igor@111 262 eval $(cat "$@" | sed 's/"/\\\\"/g' | while read line; do echo history -s \"$line\"\;; done);
devi@97 263 }
devi@97 264
devi@97 265 l3_save_last_line ()
devi@97 266 {
devi@97 267 (
devi@97 268 echo '<cline>'
devi@97 269 history 1 | sed 's/&/&amp;/; s/</\&lt;/g; s/>/\&gt;/g'
devi@97 270 echo '</cline>'
devi@97 271 ) >> $L3_HOME/$L3_SESSION_ID.info
devi@97 272 }
devi@97 273
devi@107 274 l3 ()
devi@107 275 {
devi@107 276 case "$1" in
igor@155 277 context)
igor@155 278 if [ -z "$2" ]
igor@155 279 then
igor@155 280 echo "$L3_CONTEXT"
igor@155 281 else
igor@155 282 echo $2 | grep -q ^/ && L3_CONTEXT="$2" || L3_CONTEXT="$L3_CONTEXT/$2"
igor@155 283 export L3_CONTEXT="`echo $L3_CONTEXT | perl -e '$_=<>; 1 while s@/[^/]*/\.\.@@; print;'`"
igor@155 284 fi
devi@107 285 ;;
devi@107 286 cd)
devi@107 287 echo l3cd="$2" > ~/.l3rc
devi@107 288 ;;
devi@107 289 pwd)
devi@107 290 grep ^l3cd= ~/.l3rc | sed s/[^=]*=//
devi@107 291 ;;
devi@107 292 *)
igor@155 293 l3text "$@"
devi@107 294 ;;
devi@107 295 esac
devi@107 296 }
devi@97 297
igor@109 298
igor@109 299