diff options
Diffstat (limited to 'admin')
| -rw-r--r-- | admin/README | 5 | ||||
| -rwxr-xr-x | admin/getmaintbuilds | 9 | ||||
| -rwxr-xr-x | admin/getmaintdependees | 58 | ||||
| l--------- | admin/getmaintreqs | 1 | ||||
| -rwxr-xr-x | admin/masschangemaint | 24 | ||||
| -rwxr-xr-x | admin/offerbuild | 90 | ||||
| -rwxr-xr-x | admin/orphanize | 34 | ||||
| -rwxr-xr-x | admin/orphm | 3 | ||||
| -rwxr-xr-x | admin/pingmaint | 91 | ||||
| -rwxr-xr-x | admin/sbodeathrow | 171 |
10 files changed, 486 insertions, 0 deletions
diff --git a/admin/README b/admin/README new file mode 100644 index 0000000..fff6f01 --- /dev/null +++ b/admin/README @@ -0,0 +1,5 @@ +These tools are intended for SBo admins. I include them here because +they may also be useful for others, and because they need to be hosted +in a git repo *somewhere*. + +Don't expect them to be polished or well-documented. diff --git a/admin/getmaintbuilds b/admin/getmaintbuilds new file mode 100755 index 0000000..ea665c9 --- /dev/null +++ b/admin/getmaintbuilds @@ -0,0 +1,9 @@ +#!/bin/sh + +source ~/sbostuff/sbostuff.sh +cd $SBO_GITROOT || exit 1 +if echo "$*" | grep -q '@'; then + echo $( git grep 'EMAIL="'"$*"'"' '*/*/*.info' | cut -d/ -f2 ) +else + echo $( git grep 'MAINTAINER="'"$*"'"' '*/*/*.info' | cut -d/ -f2 ) +fi diff --git a/admin/getmaintdependees b/admin/getmaintdependees new file mode 100755 index 0000000..3fc31e1 --- /dev/null +++ b/admin/getmaintdependees @@ -0,0 +1,58 @@ +#!/bin/sh + +# dependees maintained by the same maintainer are listed without +# name/email. only "external" dependees (ones maintained by someone else) +# have the name/email displayed. + +EES=ees +if [ "$( basename $0 )" = "getmaintreqs" ]; then + REV=-r + EES=encies +fi + +source ~/sbostuff/sbostuff.sh + +##if [ "$1" = "-b" ]; then +## shift +## builds="$1" +## cdsb $builds && maint="$( source ./*.info && echo $MAINTAINER )" +## shift +## if [ "$*" ]; then +## echo "$( basename $0 ): -b only allows one build" 1>&2 +## exit 1 +## fi +##else +## maint="$*" +## builds="$( getmaintbuilds "$@" )" +##fi + +maint="$*" +builds="$( getmaintbuilds "$@" )" + +for i in $builds; do + set $( hoorex -m $REV $i ) + if [ "$2" ]; then + echo -n "$1" + shift + echo -n ": " + can_orphan=yes + for j in "$@"; do + echo -n "$j " + cdsb $j + source ./$j.info + if [ "$MAINTAINER" != "$maint" -a "$EMAIL" != "NOEMAIL" ]; then + can_orphan=no + echo -n "('$MAINTAINER' $EMAIL) " + fi + done + echo + [ "$can_orphan" = "yes" ] && orphanable+="$i " + else + orphanable+="$1 " + fi +done + +if [ "$orphanable" != "" ]; then + echo "These have no depend$EES by other maintainers:" + echo "$orphanable" +fi diff --git a/admin/getmaintreqs b/admin/getmaintreqs new file mode 120000 index 0000000..acec184 --- /dev/null +++ b/admin/getmaintreqs @@ -0,0 +1 @@ +getmaintdependees
\ No newline at end of file diff --git a/admin/masschangemaint b/admin/masschangemaint new file mode 100755 index 0000000..1c5dbdd --- /dev/null +++ b/admin/masschangemaint @@ -0,0 +1,24 @@ +#!/bin/sh + +source ~/sbostuff/sbostuff.sh + +if [ "$1" = "" ]; then + echo "Builds to change?" + read builds + set $builds +fi + +echo "New maintainer as [Real Name <email@addr>]?" +read maint +name="$( echo $maint | cut -d'<' -f1 | sed 's, *$,,' )" +mail="$( echo $maint | cut -d'<' -f2 | cut -d'>' -f1 )" + +echo "name: '$name'" +echo "mail: '$mail'" + +export SBOLINT=no +for i in $*; do + cdsb $i + sbonewmaint "$name" "$mail" + git commit -a -m'New maintainer' +done diff --git a/admin/offerbuild b/admin/offerbuild new file mode 100755 index 0000000..d067888 --- /dev/null +++ b/admin/offerbuild @@ -0,0 +1,90 @@ +#!/bin/bash + +source ~/sbostuff/sbostuff.sh + +FROM_NAME="B. Watson" +FROM_EMAIL="urchlay@slackware.uk" + +SELF="$( basename $0 )" + +die() { + echo "$SELF: $@" 2>&1 + exit 1 +} + +get_dependees() { + local build="$1" + local i + + i="$( git grep -l "^REQUIRES=.*\<$build\>" | cut -d/ -f1,2 )" + echo $i +} + +make_offer() { + local i + local j + local mailto + local build="$1" + local dependees="$( get_dependees "$1" )" + + if [ "$dependees" = "" ]; then + echo "No dependees for $build" + return + fi + echo "$build dependees: $dependees" + if [ "$dependees" = "" ]; then + echo "=> no dependees for $build, nobody offer to!" + return + fi + + for i in $dependees; do + cdsb $i + mailto="$( git grep '^EMAIL=' *.info | cut -d\" -f2 )" + + [ "$mailto" = "NOEMAIL" ] && continue + + echo "=> Enter email address for offer [$mailto]:" + read j + [ "$j" = "" ] && j="$mailto" + mailto="$j" + + tmpfile="$( mktemp $SELF.XXXXXXXXXX )" + rm -f $tmpfile + + echo "To: $mailto" + cat <<EOF >$tmpfile +From: $FROM_NAME <$FROM_EMAIL> +Subject: $( basename $i ) and $build on SBo + +$build needs a new maintainer. Your build $( basename $i ) lists it as +a dependency, so you're the logical choice to take it over. + +If you want, I can update the .info file with your contact +information, so you don't even have to submit an update. +EOF + cat $tmpfile + + echo + echo -n "=> Send this email[y]? " + read j + + if [ "$j" = "y" -o "$j" = "Y" -o "$j" = "" ]; then + j="y" + echo "==> Sending email to $mailto" + cat $tmpfile | msmtp "$mailto" + fi + + rm -f $tmpfile + [ "$j" = "y" ] && return + done +} + +### main() +hoorex --version > /dev/null || die "hoorex not installed" + +cd $SBO_GITROOT || die "edit sbostuff.sh and set SBO_GITROOT" + +for build in "$@"; do + echo "checking $build" + make_offer "$build" +done diff --git a/admin/orphanize b/admin/orphanize new file mode 100755 index 0000000..40da6a2 --- /dev/null +++ b/admin/orphanize @@ -0,0 +1,34 @@ +#!/bin/sh + +source ~/sbostuff/sbostuff.sh +export SBOLINT=no + +usage() { + cat <<EOF +Usage: +orphanize <build> [<build> ...] +orphanize -m <maintainer> +EOF +} + + +orphanize_builds() { + local b + for b in "$@"; do + cdsb "$b" && sbonewmaint nobody && git commit -a -m'Orphaned (unmaintained).' + done +} + +orphanize_maint() { + local i + cdsb + for i in $( git grep "^MAINTAINER=\"$@\"" '*/*/*.info' | cut -d/ -f1,2 ); do + orphanize_builds "$i" + done +} + +case "$1" in + "-m") shift; orphanize_maint "$@" ;; + ""|"-") usage ;; + *) orphanize_builds "$@" ;; +esac diff --git a/admin/orphm b/admin/orphm new file mode 100755 index 0000000..6d173c7 --- /dev/null +++ b/admin/orphm @@ -0,0 +1,3 @@ +#!/bin/sh + +exec orphanize -m "$*" diff --git a/admin/pingmaint b/admin/pingmaint new file mode 100755 index 0000000..76c6a34 --- /dev/null +++ b/admin/pingmaint @@ -0,0 +1,91 @@ +#!/bin/sh + +FROM_NAME="B. Watson" +FROM_EMAIL="urchlay@slackware.uk" + +# Usage: +# pingmaint "Maintainer Name" +# pingmaint maintainer@domain.tld + +SELF=$( basename $0 ) + +die() { + echo "$SELF: $@" 1>&2 + exit 1 +} + +source ~/sbostuff/sbostuff.sh +cdsb + +interactive=yes +if [ "$1" = "-m" ]; then + interactive=no + shift +fi + +# given a maintainer's name as args, set TO_ADDR to the email address. +# if there are more than one email address for the name, print them +# all and die. +get_email() { + TO_ADDR="" + + TO_ADDR="$( git grep -lF "MAINTAINER=\"$*\"" '*/*/*.info' | xargs grep '^EMAIL=' | cut -d\" -f2 | sort -u | cut -d\" -f2 )" + + if [ "$( echo "$TO_ADDR" | wc -l )" -gt 1 ]; then + if [ "$interactive" = "no" ]; then + die "Multiple email addresses: $TO_ADDR" + fi + echo "Multiple email addresses: $TO_ADDR" + echo "==> Which address to use?" + read TO_ADDR + fi +} + +builds="$( getmaintbuilds "$@" )" + +if echo "$*" | grep -q '@'; then + TO_ADDR="$@" +else + get_email "$@" +fi + +if ! echo "$TO_ADDR" | grep -q '@'; then + if [ "$interactive" = "no" ]; then + die "Obfuscated address: $TO_ADDR" + else + echo "==> Enter unobfuscated version of: $TO_ADDR" + read TO_ADDR + fi +fi + +tmpfile="$( mktemp $SELF.XXXXXXXXXX )" +rm -f $tmpfile + +echo "To: $TO_ADDR" +cat <<EOF >$tmpfile +From: $FROM_NAME <$FROM_EMAIL> +Subject: builds on SlackBuilds.org + +You're listed as maintainer for these builds: + +$builds + +It's been a while since your last update on SBo. Are you still +maintaining these? + +Please let me know. +EOF + +cat $tmpfile + +if [ "$interactive" = "yes" ]; then + echo + echo "===> Press Enter to send this email, ^C to abort." + read +fi + +echo +echo "==> Sending email to $TO_ADDR" +cat $tmpfile | msmtp "$TO_ADDR" + +rm -f $tmpfile diff --git a/admin/sbodeathrow b/admin/sbodeathrow new file mode 100755 index 0000000..1e111c2 --- /dev/null +++ b/admin/sbodeathrow @@ -0,0 +1,171 @@ +#!/bin/bash + +# sbodeathrow by B. Watson <urchlay@slackware.uk>, WTFPL. +# You shouldn't have to edit anything but SBO_GITROOT to make +# this work (or just set it in the environment). + +# Default for $THRESH, in days. Don't change this; change THRESH, below. +DEFTHRESH=180 + +####################################################################### +#### Configuration: + +# Where you keep your local git tree (which you must create yourself, +# and keep up to date) +SBO_GITROOT="${SBO_GITROOT:-/home/urchlay/sbogit}" + +# Builds orphaned >= $THRESH days ago will be removed (or just listed) +THRESH=${THRESH:-${DEFTHRESH}} + +#### End of config +####################################################################### + +SELF="$( basename $0 )" + +# For use with urchlay's git hooks. Ignore these if you don't +# know what they're for. +export NOAUTOCOMMIT=1 +export SBOLINT=no + +usage() { +cat <<EOF +$SELF - remove orphaned builds from the SBo repo. + +$SELF looks for builds that have been orphaned for more that $DEFTHRESH +days, and (optionally) removes them with "git rm -rf", each in its own +git commit. + +Builds that have dependees will not be removed, unless all the +dependees have also been orphaned for >= $DEFTHRESH days. These builds +will instead be listed on stderr, along with the dependee and its +maintainer's name/email. + +Options: + --remove Actually remove the builds. Without this, builds that + would be removed are listed on stdout, but not removed. + --help Show this help message. + +Environment: + THRESH - threshold (in days) for deleting orphans. Default is $DEFTHRESH. + Please don't change this in production; it's only provided for testing. + + SBO_GITROOT - where the local git clone of the SBo tree lives. This + script will *not* create the tree nor keep it up-to-date; use e.g. + "git clone" to create it, and "git pull" before each run. + Currently set to: $SBO_GITROOT +EOF +} + +die() { + echo "$SELF: fatal: $@" 2>&1 + exit 1 +} + +warn() { + echo "$SELF: $@" 2>&1 +} + +set_cat_prg() { + category="$( echo $1 | cut -d/ -f1 )" + prgnam="$( echo $1 | cut -d/ -f2 )" +} + +print_maint_info() { + local name="$( grep ^MAINTAINER $1/*.info | cut -d'"' -f2 )" + local email="$( grep ^EMAIL $1/*.info | cut -d'"' -f2 )" + echo "$name <$email>" 1>&2 +} + +# Return true if it's safe to remove the build $category/$prgnam. +# It's not safe if it has dependees, unless all the dependees are +# also going to be removed during this run. +safe_to_remove() { + local catprg="$category/$prgnam" + # hoorex adds a trailing space... + local d="$( hoorex -l $prgnam | sed 's, *$,,' )" + + if [ "$d" != "$catprg" ]; then + for i in $d; do + if [ "$i" != "$catprg" ]; then + if echo $INFOS | grep -q "\\<$i\\/"; then + #echo "$catprg: dependee $i exists, but is to be removed" 1>&2 + : # NOP, don't print a message + else + echo -n "$catprg: can't remove due to dependee:" 1>&2 + echo -n " $i: " 1>&2 + print_maint_info $i + return 1 # false + fi + fi + done + fi + return 0 # remember, 0 is 'true' in bash! +} + +# Die if hoorex isn't installed, or doesn't support --auto option +check_hoorex_version() { + local hoohelp="$( hoorex --help || echo MISSING )" + [ "$hoohelp" = "MISSING" ] && die "hoorex not installed" + echo "$hoohelp" | grep -q -- --auto || \ + die "hoorex too old (needs -a/--auto option; upgrade to >=0.10.4)" +} + +# With --remove, remove a build. Otherwise, print a message to stdout +# letting us know it would be removed. +remove_build() { + local catprg="$1" + if [ "$REMOVE" = "1" ]; then + git rm -rf "$catprg" || die "$catprg: git rm command failed" + git commit -m"$catprg: Removed (orphaned >$THRESH days)." || die "$catprg: git commit failed" + warn "removed $catprg" + else + echo "$catprg" + fi +} + +### main() +case "$1" in + "") ;; # NOP + --remove) REMOVE=1 ;; + --help) usage; exit 0 ;; + *) die "unknown argument $1, try --help" ;; +esac + +check_hoorex_version + +cd $SBO_GITROOT || die "edit script or set SBO_GITROOT in environment" +[ -d academic/ -a -d system/ -a -d .git/ ] || \ + die "$SBO_GITROOT is not a SBo git tree (set SBO_GITROOT)" + +case "$THRESH" in + [0-9]*) ;; # NOP + *) die "invalid THRESH '$THRESH' (non-numeric)" +esac + +hoorex -a -s `pwd` >/dev/null || die "hoorex failed" + +thresh_sec="$( date -d "$THRESH days ago" +%s )" +case "$thresh_sec" in + [1-9][0-9]*) ;; # OK, NOP + *) die "failed to get thresh_sec, coreutils too old or bad THRESH?" ;; +esac + +INFOS="$( git grep -l '^EMAIL="NOEMAIL"' '*/*/*.info' )" + +if [ "$INFOS" = "" ]; then + # nothing to do! + warn "nothing to do; no orphaned builds in the repo at $SBO_GITROOT" + exit 0 +fi + +for infofile in $INFOS; do + set_cat_prg $infofile + orphaned_sec="$( git blame --porcelain -L/MAINTAINER/,+1 $infofile | grep ^author-time | cut -d' ' -f2 )" + if [ "$orphaned_sec" -lt "$thresh_sec" ]; then + if safe_to_remove; then + remove_build "$category/$prgnam" + fi + fi +done + +exit 0 |