}
zcheck() {
- s ssh bow DISPLAY=:0 scrot /tmp/oegu.jpg
- s scp bow:/tmp/oegu.jpg /t
- s ssh bow rm /tmp/oegu.jpg
+ ssh bow DISPLAY=:0 scrot /tmp/oegu.jpg
+ scp bow:/tmp/oegu.jpg /t
+ ssh bow rm /tmp/oegu.jpg
feh /t/oegu.jpg
- }
+}
slemacs() {
local arg rtime v
fi
ngreset
}
-ngset() {
- if shopt nullglob >/dev/null; then
- ngreset=false
- else
- shopt -s nullglob
- ngreset=true
- fi
-}
-ngreset() {
- if $ngreset; then
- shopt -u nullglob
- fi
-}
checkre() {
s checkrestart -b /a/bin/ds/checkrestart-blacklist -pv
}
aw() {
pushd /a/work/ans >/dev/null
- time ansible-playbook -v -i inventory adhoc.yml "$@"
+ time ansible-playbook -i inventory adhoc.yml "$@"
popd >/dev/null
}
ad() {
/a/opt/android-studio/bin/studio.sh "$@" &r;
}
+
+iki() {
+ local url path
+ if [[ $1 ]]; then
+ path="$*"
+ else
+ read -r -p "enter path" path
+ fi
+ url=$(readlink -f "$path")
+ url="https://brains.fsf.org/wiki/${url#*brains/}"
+ url="${url%.mdwn}"
+ echo "$url"
+ # /f/brains/sysadmin/interns/2022/nick_shrader/intro_blog_post.mdwn
+ # becomes
+ # https://brains.fsf.org/wiki/sysadmin/interns/2022/nick_shrader/intro_blog_post
+
+}
+
+# Generate beet smartplaylists for navidrome.
+# for going in the reverse direction, run
+# /b/ds/navidrome-playlist-export
+beetsmartplaylists() {
+ install -m 0700 -d /tmp/ianbeetstmp
+ beet splupdate
+ # kill off any playlists we deleted. they will still need manual
+ # killing from a navidrome client.
+ rm -rf /i/converted/beetsmartplaylists
+ mkdir -p /i/converted/beetsmartplaylists
+ for f in /tmp/ianbeetstmp/*; do
+ sed 's,^/i/m,/i/converted,;s,\.flac$,.mp3,' "$f" >"/i/converted/beetsmartplaylists/${f##*/}"
+ rm "$f"
+ done
+ rmdir /tmp/ianbeetstmp
+}
+
+# Export beets ratings into navidrome
+beetrating() {
+ local tmp tmpfile myuser userid rating path cpath sqlpath
+ # plucked this from the db. im the only user.
+ userid=23cc2eb9-e35e-4811-a0f0-d5f0dd6eb634
+ tmpfile=$(mktemp)
+ beet ls -f '$rating $path' ^genre:spoken-w ^genre:skit rating:2..5 >$tmpfile
+ while read -r rating path; do
+ tmp="/i/converted${path#/i/m}"
+ cpath="${tmp%.*}.mp3" # converted path
+ sqlpath="${cpath//\'/\'\'}"
+ old_rating=$(sqlite3 /i/navidrome/navidrome.db "select rating from annotation inner join media_file on item_id = id where path = '$sqlpath' and item_type = 'media_file';")
+ if [[ $old_rating ]]; then
+ if [[ $old_rating != $rating ]]; then
+ # https://stackoverflow.com/a/50317320
+ m sqlite3 /i/navidrome/navidrome.db "
+update annotation set rating = $rating
+ where item_id in (
+ select media_file.id from annotation inner join media_file on annotation.item_id = media_file.id
+ where media_file.path = '$sqlpath' and annotation.item_type = 'media_file' );"
+ fi
+ else
+ # /a/opt/navidrome/persistence/sql_annotations.go v0.48.0
+ # https://www.sqlite.org/lang_insert.html
+ m sqlite3 /i/navidrome/navidrome.db "insert into annotation select '$(uuidgen)', '$userid', id, 'media_file', 0, NULL, $rating, 0, NULL from media_file where path = '$sqlpath';"
+ fi
+ #sqlite3 /i/navidrome/navidrome.db "select path from annotation inner join media_file on item_id = id where rating = $r;"
+ done <$tmpfile
+}
+
+# Do transcoding and hardlinking of audio files for navidrome.
+#
+# This deletes files in the converted directory which should no longer
+# be there due to a rename of the unconverted file.
+beetconvert() {
+ local l query
+ local -A paths
+ query="^genre:spoken-w ^genre:skit ^lesser_version:t ^rating:1"
+ # redirect is to avoid printing every file
+ beet convert -y $query >/dev/null 2> >(grep -v '^convert: Skipping' ||:)
+
+ ## begin removal of files that are leftover from previous conversion,
+ # eg, previously rated > 1, now rated 1.
+ while read -r l; do
+ convertedpath="/i/converted${l#/i/m}"
+ case $convertedpath in
+ *.flac) convertedpath="${convertedpath%.flac}.mp3" ;;
+ esac
+ paths[$convertedpath]=t
+ done < <(beet ls -f '$path' $query)
+ while read -r l; do
+ if [[ ! ${paths[$l]} ]]; then
+ rm -v "$l"
+ fi
+ # note: the pruning is duplicative of filtering on name, but whatever.
+ done < <(find /i/converted -path /i/converted/beetsmartplaylists -prune -o \( -type f -print \) -name '*.mp3' -o -name '*.m4a')
+ ## end
+}
+
+# tag with beets.
+# usage: beetag QUERY
+# it lists the query, reads an input char for tagging one by one.
+# 1-5 = set rating
+# a-x 0 6-9 / . , = set genre/playlist. (available buttons: ` \ ) ] [
+# q = quit
+# y = toggle to setting rare genres
+# z = put the player in the foreground
+# enter = next song
+# ' = toggle playing of songs, also replays current song if hit twice
+# ; = go to previous song
+# _ = delete file, remove from library
+# -/+ = decrease / increase volume
+#
+# note, you may want to change the play command for doing rapid taging
+# by immediately jumping forward into the song. this is set in the beets
+# config yaml.
+beetag() {
+ local last_genre_i fstring tag id char new_item char_i genre tag remove doplay i j random
+ local do_rare_genres read_wait
+ local -a genres pl_tags buttons button_map ids tags rare_genres tmp_tags
+ local -A button_i
+ local -i volume
+ do_rare_genres=false
+ random=false
+ volume=70
+ read_wait=2
+ case $1 in
+ -r)
+ random=true
+ shift
+ ;;
+ esac
+ if (( ! $# )); then
+ echo beetag: error expected a query arg >&2
+ return 1
+ fi
+ doplay=true
+ genres=(
+ # gangsta rap / angry rap. something like g-rap would make beet queries for genre:rap include it
+ arp
+ ambient
+ avant
+ blues
+ classical
+ # slow instrumental. todo: reclassify some ambient into this.
+ chill
+ country
+ # like power glove
+ dark-wave
+ # lyrical edm. todo: some pop needs reclassification to this
+ dance
+ hardcore
+ instrumental
+ latin
+ metal
+ # mq = mac quale. similar to the mr robot soundtracks.
+ # slow, foreboding. usually electronic.
+ mq
+ pop
+ rap
+ rock
+ # like rain by brian crain. mostly slow broody piano
+ sleep
+ techno
+ world
+ )
+ # because we were destined to run out of single key buttons.
+ rare_genres=(
+ jazz
+ musical
+ noise
+ skit
+ spoken-w
+ )
+ pl_tags=(
+ ## cross-genre tags that dont really make a playlist
+ expl
+ # songs i like but they get old fast due to feeling gimicky, or cringy after a while.
+ gimicky
+ # alternate version of a song we already have which isn't as good
+ lesser_version
+ # anything sad which i sometimes like or avoid.
+ sad
+
+ ## playlists
+ # intimate, love
+ love
+ # favorite songs pump up songs
+ pump1
+ # favorite rap pump up songs, allows more songs than pump1
+ pumprap
+ # heart rending, spine tickling
+ rend
+ # for running
+ run
+ )
+ last_genre_i=$(( ${#genres[@]} - 1 ))
+ buttons=( {a..p} {r..w} 0 {6..9} , . / )
+ button_map=(${genres[@]} ${pl_tags[@]})
+ fstring=
+ for tag in "${pl_tags[@]}"; do
+ fstring+="%ifdef{$tag,$tag }"
+ done
+
+ for (( i=0; i<${#buttons[@]}; i++ )); do
+ button_i[${buttons[i]}]=$i
+ done
+ beet ls -f '%ifdef{rating,$rating }'"$fstring"', $genre $artist - $album - $title' "$@"
+ mapfile -t ids < <(beet ls -f '$id' "$@" | { if $random; then sort -R; else cat; fi; } )
+ for (( j=0; j<${#ids[@]}; j++ )); do
+ hr
+ id=${ids[j]}
+ lsout="$(beet ls -f '%ifdef{rating,$rating }'"$fstring"', $genre $id $artist - $album - $title' "id:$id")"
+ tags=( ${lsout%%,*} )
+ printf "%s\n" "$lsout"
+ for (( i=0; i<${#button_map[@]}; i++ )); do
+ echo ${buttons[i]} ${button_map[i]}
+ done
+ if $doplay; then
+ beet play --args=--volume=$volume "id:$id" &
+ fi
+ while true; do
+ char=
+ if $doplay; then
+ ret=0
+ read -r -N 1 -s -t $read_wait char || ret=$?
+ read_wait=2
+ # Automatically skip to the next song if this one ends, unless
+ # we turn off the autoplay.
+ if (( ret == 142 )) || [[ ! $char ]]; then
+ if bg %% &>/dev/null; then
+ continue
+ else
+ break
+ fi
+ fi
+ else
+ read -r -N 1 -s char
+ fi
+ if [[ $char == $'\n' ]]; then
+ kill %% ||: &>/dev/null
+ break
+ fi
+ case $char in
+ ";")
+ kill %% ||: &>/dev/null
+ j=$(( j - 2 ))
+ break
+ ;;
+ "'")
+ if $doplay; then
+ doplay=false
+ else
+ doplay=true
+ kill %% ||: &>/dev/null
+ beet play --args=--volume=$volume "id:$id" &
+ fi
+ continue
+ ;;
+ _)
+ kill %% ||: &>/dev/null
+ m beet rm --delete --force "id:$id"
+ break
+ ;;
+ [1-5])
+ beet modify -y "id:$id" rating=$char
+ continue
+ ;;
+ -)
+ volume=$(( volume - 5 ))
+ if (( volume < 0 )); then
+ volume=0
+ fi
+ echo volume=$volume
+ continue
+ ;;
+ q)
+ kill %% ||: &>/dev/null
+ return
+ ;;
+ +)
+ volume+=5
+ if (( volume > 130 )); then
+ volume=130
+ fi
+ echo volume=$volume
+ continue
+ ;;
+ y)
+ if $do_rare_genres; then
+ do_rare_genres=false
+ button_map=(${genres[@]} ${pl_tags[@]})
+ last_genre_i=$(( ${#rare_genres[@]} - 1 ))
+ else
+ do_rare_genres=true
+ button_map=(${rare_genres[@]} ${pl_tags[@]})
+ last_genre_i=$(( ${#genres[@]} - 1 ))
+ fi
+ local -A button_i
+ for (( i=0; i<${#buttons[@]}; i++ )); do
+ button_i[${buttons[i]}]=$i
+ done
+ for (( i=0; i<${#button_map[@]}; i++ )); do
+ echo ${buttons[i]} ${button_map[i]}
+ done
+ continue
+ ;;
+ z)
+ # if we ctrl-z, it will put the whole function into sleep. so
+ # basically, we can't return from a foregrounded mpv like we
+ # would like to without some strange mechanism I can't think
+ # of. So, instead, detect ctrl-c and wait a while for prompt
+ # input. One idea would be to use a music player like mpd where
+ # we can send it messages.
+ if ! fg; then
+ sleep_wait=10
+ fi
+ continue
+ ;;
+ esac
+ char_i=${button_i[$char]}
+ new_item=${button_map[$char_i]}
+ if [[ ! $char_i || ! $new_item ]]; then
+ echo "error: no mapping of input: $char found, try again"
+ continue
+ fi
+ if (( char_i <= last_genre_i )); then
+ m beet modify -y "id:$id" genre=$new_item
+ else
+ remove=false
+ tmp_tags=()
+ for tag in ${tags[@]}; do
+ if [[ $new_item == "$tag" ]]; then
+ remove=true
+ else
+ tmp_tags+=("$tag")
+ fi
+ done
+ if $remove; then
+ tags=("${tags[@]}")
+ m beet modify -y "id:$id" "$new_item!"
+ else
+ tags+=("$new_item")
+ m beet modify -y "id:$id" $new_item=t
+ fi
+ fi
+ done
+ done
+}
+
+# usage: FILE|ALBUM_DIR [GENRE]
+beetadd() {
+ local import_path genre_arg single_track_arg
+ import_path="$1"
+ if [[ ! -e $import_path ]]; then
+ echo "beetadd error: path does not exist"
+ fi
+ if [[ $2 ]]; then
+ genre_arg="--set genre=$2"
+ fi
+ if [[ -f $import_path ]]; then
+ single_track_arg=-s
+ fi
+ beet import --set totag=t $single_track_arg $genre_arg "$import_path"
+ beetag totag:t
+ beet modify -y totag:t "totag!"
+}
+
+# update navidrome music data after doing beets tagging
+beet2nav() {
+ beetconvert
+ beetsmartplaylists
+ beetrating
+}
+
+# pull in beets library locally
+beetpull() {
+ if [[ ! -e /i ]]; then
+ s mkdir /i
+ s chown iank:iank /i
+ sshfs b8.nz:/i /i
+ fi
+}
+
+# escape regex.
+#
+# This is not perfect but generally good enough. It escapes all
+# metachars listed man 3 pcrepattern.
+er() {
+ sed 's/[]\\^$.[|()?*+{}]/[&]/g; s/\^/\\^/g' <<<"$*"
+}
+
+# usage beegenre QUERY
+#
+# beet set genre for QUERY based on existing artist most used genre on
+#
+# inverse of query for each artist found in QUERY. If query starts with
+# "artist:" it is used as the artist instead of each artist in QUERY.
+#
+beegenre() {
+ local artist artregex genre term singleartist
+ local -a artists genres terms
+ singleartist=false
+ case $1 in
+ artist:*)
+ singleartist=true
+ artist="$term"
+ ;;
+ esac
+ if $singleartist; then
+ read count genre < <(beet ls -f '$genre' "$artist" "${@/#/^}" | sort | uniq -c | sort -n | tail -n1) ||:
+ beet modify "$artist" "$@" genre=$genre
+ else
+ while read -r artist; do
+ artregex=$(er "$artist")
+ read count genre < <(beet ls -f '$genre' "artist::^$artregex$" "${@/#/^}" | sort | uniq -c | sort -n | tail -n1) || continue
+ if [[ $count ]]; then
+ artists+=("$artregex")
+ genres+=("$genre")
+ echo "beet modify -y $@ \"artist::^$artist$\" genre=$genre # $count"
+ fi
+ done < <(beet ls -f '$artist' "$@" | sort -u)
+ read -r -N 1 -s -p "Y/n " char
+ case $char in
+ [Yy$'\n'])
+ for (( i=0; i<${#artists[@]}; i++ )); do
+ beet modify -y "$@" "artist::^${artists[i]}$" genre=${genre[i]}
+ done
+ ;;
+ esac
+ fi
+}
+
# note, to check for glue records
# First, find some the .org nameservers:
# dig +trace iankelling.org
install-my-scripts
# todo: consider changing this to srun and having the args come
# from a file like /etc/default/btrbk, like is done in exim
- s jrun btrbk-run "$@"
+ s jdo btrbk-run "$@"
if $active; then
if (( ret )); then
echo bbk: WARNING: btrbk.timer not restarted due to failure
ngreset
}
-# duplicated somewhat below.
-jrun() { # journal run. run args, log to journal, tail and grep the journal.
- # Note, an alternative without systemd would be something like ts.
- # Note, I tried using systemd-cat, but this seems obviously better,
- # and that seemed to have a problem exiting during a systemctl daemon-reload
- local cmd_name jr_pid s
+scr() {
+ screen -RD "$@"
+}
+
+# usage: first get an adb shell on the phone.
+#
+# just followed instructions in readme at
+# https://github.com/Yuubi-san/ceb-tools
+# tried to use ceb2txt but it failed because of schema
+# slightly different than what it expected.
+cheogram-get-logs() {
+ adb shell rm -r /storage/emulated/0/Download/Cheogram/Backup
+ read -p "do cheogram backup on phone, do not enable extra cheogram data. press any key when done"
+ cd /p/cheogram
+ rm -rf Backup b
+ adb pull /storage/emulated/0/Download/Cheogram/Backup
+ sqlite3 b </a/opt/ceb-tools/schema.sql
+ echo "note: the next step took 39 seconds last time i measured"
+ /a/opt/ceb-tools/ceb2sqlgz Backup/iank@fsf.org.ceb <pas | gunzip | sqlite3 b
+ rm -r Backup
+}
+
+# usage: cheologs [DAYS_LIMIT]
+# default days is 100
+cheologs() {
+ local days q
+ days=${1:-100}
+ q="
+select
+ datetime(substr(timeSent,0,11), 'unixepoch'),
+ replace(replace(counterpart,'@fsf.org',''),
+ '@conference.fsf.org',''),
+ body
+from messages
+where timeSent > $(( (EPOCHSECONDS - days * 60 * 60 * 24) * 1000 ))
+order by timeSent;"
+ sqlite3 /p/cheogram/b ".mode tabs" "$q" | less
+}
+
+mycheologs() {
+ local days q
+ days=${1:-16}
+ q="
+select
+ datetime(substr(timeSent,0,11), 'unixepoch'),
+ body
+from messages
+where timeSent > $(( (EPOCHSECONDS - days * 60 * 60 * 24) * 1000 ))
+and counterpart = 'office@conference.fsf.org/iank'
+order by timeSent;"
+ sqlite3 /p/cheogram/b ".mode tabs" "$q" | sed 's/ /./' | less
+}
+
+# version of jdo for my non-root user
+jdo() {
+ # comparison of alternative logging methods:
+ #
+ # systemd-run command (what this function does)
+ #
+ # If there is a user prompt, the program will detect that it is not
+ # connected to a terminal and act in a non-interactive way, skipping
+ # the prompt. This has the benefit that you know exactly how the
+ # program will act if you want to move it into a service that runs
+ # automatically.
+ #
+ # If run with sudo and command is a shell script which does a sleep,
+ # it can (sometimes?) output some extra whitespace in front of
+ # messages, more for each subsequent message. This can be avoided by
+ # becoming root first.
+ #
+ # It logs the command's pid and exit code, which is nice.
+ #
+ #
+ ### command |& ts | tee file.log
+ #
+ # If there is a user prompt, like "read -p prompt var", it will hang
+ # without outputting the prompt.
+ #
+ # I've had a few times where ts had an error and I wasn't totally sure
+ # if it was really the command or ts having the problem.
+ #
+ # Sometimes some output will get hidden until you hit enter.
+ #
+ #
+ ### command |& pee cat logger
+ #
+ # This seems to work. I need to test more.
+ #
+ #
+ ### command |& logger -s
+ #
+ # User prompts get confusingly prefixed to earlier output, and all log
+ # entries get prefixed with annoying priority level.
+ #
+ #
+ ### systemd-cat
+ #
+ # Had a few problems. One major one is that it exited in the middle of
+ # a command on systemctl daemon-reload
+ #
+ # Related commands which can log a whole session: script, sudo, screen
+ local cmd cmd_name jr_pid ret
ret=0
- cmd_name=${1##*/}
- cmd=$1
+ cmd="$1"
+ shift
+ cmd_name=${cmd##*/}
if [[ $cmd != /* ]]; then
- cmd=$(which $1)
+ cmd=$(type -P "$cmd")
fi
+ # -q = quiet
journalctl -qn2 -f -u "$cmd_name" &
- # Guess of time needed to avoid missing initial lines.
+ # Trial and error of time needed to avoid missing initial lines.
# .5 was not reliable. 1 was not reliable. 2 was not reliable
sleep 4
- # We kill this in prompt-command for the case that we ctrl-c the
- # systemd-cat. i dont know any way to trap ctrl-c and still run the
- # normal action for it. There might be a way, unsure.
jr_pid=$!
# note, we could have a version that does system --user, but if for example
# it does sudo ssh, that will leave a process around that we can't kill
# and it will leave the unit hanging around in a failed state needing manual
# killing of the process.
- m s systemd-run --uid $(id -u) --gid $(id -g) \
+ s systemd-run --uid $(id -u) --gid $(id -g) \
-E SSH_AUTH_SOCK=/run/openssh_agent \
- --unit "$cmd_name" --wait --collect "$cmd" "${@:2}" || ret=$?
- # This justs lets the journal output its last line
+ --unit "$cmd_name" --wait --collect "$cmd" "$@" || ret=$?
+ # The sleep lets the journal output its last line
# before the prompt comes up.
sleep .5
kill $jr_pid &>/dev/null ||:
unset jr_pid
fg &>/dev/null ||:
+ # this avoids any err-catch
+ (( $ret == 0 )) || return $ret
}
+
# service run, and watch the output
srun() {
local unit
s ssh-add /root/.ssh/home
fi
install-my-scripts
- s jrun switch-mail-host "$@"
+ s jdo switch-mail-host "$@"
return $ret
}
sh2() { # switch host2
s ssh-add /root/.ssh/home
fi
install-my-scripts
- s jrun switch-host2 "$@"
+ s jdo switch-host2 "$@"
return $ret
}
# work log
wlog() {
- local day now i
- for (( i=0; i<60; i++ )); do
+ local day now i days_back
+ days_back=${1:-16}
+ for (( i=0; i<days_back; i++ )); do
day=$( date +%F -d @$((EPOCHSECONDS - 86400*i )) )
date "+%a %b %d" -d @$((EPOCHSECONDS - 86400*i )) | tr '\n' ' '
/a/opt/timetrap/bin/t d -ftotal -s $day -e $day all -m '^w|lunch$'
m sudo losetup $l $fs_file
fi
if ! sudo cryptsetup status /dev/mapper/$base &>/dev/null; then
- if ! sudo cryptsetup luksOpen $l $base; then
+ if ! m sudo cryptsetup luksOpen $l $base; then
m sudo losetup -d $l
return 1
fi
done
}
-# these might need a mu index or something added.
-mbenable() {
- local mb=$1
- dst=/m/4e/$mb
- src=/m/md/$mb
- [[ -e $src ]] || { echo "src:$src does not exist"; return 1; }
- m mv -T $src $dst
- m ln -s -T $dst $src
-}
-mb2enable() {
- local mb
- for mb; do
- dst=/m/4e2/$mb
- link=/m/md/$mb
- src=/m/md/$mb
- if [[ ! -e $src || -L $src ]]; then
- src=/m/4e/$mb
+# maildir enable
+mdenable() {
+ local md dst ln_path src two
+
+ two=false
+ case $1 in
+ -2) two=true shift ;;
+ esac
+
+ for md; do
+ src=
+ if $two; then
+ dst=/m/4e2/$md
+ else
+ dst=/m/4e/$md
+ fi
+
+ ln_path=/m/md/$md
+ for d in /m/md/$md /m/4e2/$md; do
+ if [[ -d $d && ! -L $d ]]; then
+ src=$d
+ break
+ fi
+ done
+ if [[ ! $src ]]; then
+ echo "error: could not find $md" >&2
+ return 1
fi
- [[ -e $src ]] || { echo "src:$src does not exist"; return 1; }
m mv -T $src $dst
- m ln -sf -T $dst $link
+ m ln -sf -T $dst $ln_path
done
}
-mbdisable() {
- local mb=$1
- dst=/m/md/$mb
- src=/m/4e/$mb
- set -x
- [[ -e $src ]] || { set +x; return 1; }
- if [[ -L $dst ]]; then rm $dst; fi
- mv -T $src $dst
- set +x
+md2enable() {
+ mdenable -2 "$@"
}
-mb2disable() {
- local mb=$1
- dst=/m/md/$mb
- src=/m/4e2/$mb
- set -x
- [[ -e $src ]] || { set +x; return 1; }
- if [[ -L $dst ]]; then rm $dst; fi
- mv -T $src $dst
- set +x
+mddisable() {
+ local md=$1
+ dst=/m/md/$md
+
+ ### begin copied from mdenable, but different d ###
+ for d in /m/4e/$md /m/4e2/$md; do
+ if [[ -d $d && ! -L $d ]]; then
+ src=$d
+ break
+ fi
+ done
+ if [[ ! $src ]]; then
+ echo "error: could not find $md" >&2
+ return 1
+ fi
+ ### end copy from mdenable ###
+
+ if [[ -L $dst ]]; then m rm $dst; fi
+ m mv -T $src $dst
}
# get page source of https://en.wikipedia.org/w/index.php?title=Video_file_format&action=edit
# into /a/x.log, then
# grep '^| *\.' /a/x.log | sed 's/| *//;s/,//g'
+
+ # note: to join them together for a regex, do:
+ # old=; for e in ${extensions[@]/./}; do if [[ ! $old ]]; then old=$e; continue; fi; echo -n "$old|"; old=$e; done; echo $e
extensions=(
.webm
.mkv
ssh root@iankelling.org "cd $d; find . -mtime -60 -type f -exec grep '\<iank.*' {} +" | sed -r 's,^..([^/]*)/(.{11})(.{5})(.{8}).,\2\4 \1,' | sort
}
+# usage: debvm DEBIAN_VERSION RAM_MB
+debvm() {
+ local ver ram fname src
+ ver=$1
+ ram=${2:-2024}
+ # * is because it might have -backports in the name
+ fname=debian-$ver-*nocloud-$(dpkg --print-architecture).qcow2
+ src=/a/opt/roms/$fname
+ if [[ ! -f $src ]]; then
+ echo debvm: not found $src, download from eg: https://cloud.debian.org/images/cloud/buster/latest/
+ return 1
+ fi
+ cp -a $src /t
+ # note, in fai-revm we do this: not sure why, maybe because of br device
+ # --graphics spice,listen=0.0.0.0
+ m s virt-install --osinfo debian11 --rng /dev/urandom -n deb${ver}tmp --import -r $ram --vcpus 2 --disk /t/$fname --graphics spice
+ # note: to ssh into this machine will require host key generation: ssh-keygen -A
+
+ # random: for cvs2git on gnu www, use debian 10. I could use trisquel,
+ # but happen to want to try out the debian cloud images. the upstream
+ # requires python2 and hasn't really changed since the version in d10.
+ #
+ # apt install cvs2git cvs
+ # # 7G was not enough
+ # mount -o mode=1777,nosuid,nodev,size=34G -t tmpfs tmpfs /tmp
+ # cvs2git --encoding utf_8 --fallback-encoding ascii --dumpfile=dump www-rsync/www |& tee /tmp/l
+ ## www-rsync is an rsynced copy of the cvsfrom savannah
+}
+
mygajim() {
- local time time_sec time_pretty
+ local time time_sec time_pretty days
+ days=${1:-16}
sqlite3 -separator ' ' /p/c/subdir_files/.local/share/gajim/logs.db "select time, message from logs where contact_name = 'iank' and jid_id = 17;" | while read -r time l; do
case $time in
16*) : ;;
echo $time_pretty "$l"
time_sec=${time%%.*}
# only look at the last 18 days. generally just use this for timesheet.
- if (( time_sec < EPOCHSECONDS - 60 * 60 * 24 * 18 )); then break; fi
+ if (( time_sec < EPOCHSECONDS - 60 * 60 * 24 * days )); then break; fi
done
}
sqlite3 -separator ' ' /p/c/subdir_files/.local/share/gajim/logs.db "select time, message from logs" | less
}
+
net-dev-info() {
e "lspci -nnk|gr -iA2 net"
lspci -nnk|gr -iA2 net
# exim -t 'test@zroe.org, t2@zroe.org' <<'EOF'
#
# -t = get recipient from header
- exim -d -t <<'EOF'
-From: root@$(hostname-f)
-To: root@$(hostname-f)
+ exim -d -t <<EOF
+From: root@$(hostname -f)
+To: root@$(hostname -f)
Subject: test2
This is a test message.
EOF
}
+# test bounce exim
+testbexim() {
+ to=$1
+ exim -d -f '<>' $to <<EOF
+From: Mail Delivery System <Mailer-Daemon@gnu.org>
+To: $to
+Subject: Mail delivery failed: returning message to sender
+
+This message was created automatically by mail delivery software.
+EOF
+
+}
+
+
# toggle keyboard
tk() {
# based on
}
+# very useful, copy directory structure 3 deep. add remove /*/ to change level
+# rsync -aivh --exclude '/*/*/*/' -f"+ */" -f"- *" SRC DEST
+
+
# * stuff that makes sense to be at the end
if [[ "$SUDOD" ]]; then
# allow failure, for example if we are sudoing into a user with diffferent/lesser permissions.