User:Rick Block/adminactivity

Script
This is a script that will create files containing active, semiactive, and inactive administrators. The criteria is:
 * Active - at least 30 edits in the last 2 months
 * Semiactive - not active, and at least one edit in last 3 months
 * Inactive - no edits in last 3 months

NOTE: The script preserves contact information and various other notes added to WP:LA.

NOTE: The list of inactives from this script is sorted by length of inactivity

Rick Block (talk) 17:51, July 23, 2005 (UTC) -
 * 1) !/bin/bash

WGET="/usr/bin/curl" # on a mac OS X
 * 1) WGET="wget -q -O -"   # on a linux box with wget

ACTIVE="admins.active" SEMIACTIVE="admins.semiactive" INACTIVE="admins.inactive" CONTRIBS="contrib.times" WPLA="wpla"
 * 1) files

function prevmonth { case $1 in   January) echo "December";;    February) echo "January";; March) echo "February";;   April) echo "March";; May) echo "April";;   June) echo "May";; July) echo "June";;   August) echo "July";; September) echo "August";;   October) echo "September";; November) echo "October";;   December) echo "November";; esac }

function inactive { # $1 is day number of latest contrib # $2 is month of latest contrib # $3 is year of latest contrib # $4 - $6 are day, month, year for today

# if latest contrib is this month, not inactive [ $2 = $5 -a $3 = $6 ] && return 1

# if latest contrib is last month, not inactive MONTH=`prevmonth $5` YEAR=$6 [ $MONTH = "December" ] && let YEAR=$YEAR-1 [ $2 = $MONTH -a $3 = $YEAR ] && return 1

# if latest contrib is two months ago, not inactive MONTH=`prevmonth $MONTH` [ $MONTH = "December" ] && let YEAR=$YEAR-1 [ $2 = $MONTH -a $3 = $YEAR ] && return 1

# if latest contrib is less than three months ago, not inactive MONTH=`prevmonth $MONTH` [ $MONTH = "December" ] && let YEAR=$YEAR-1 [ $2 = $MONTH -a $3 = $YEAR -a $1 -gt $4 ] && return 1

return 0 }

function semiactive { # $1 is day number of 30th most recent contrib # $2 is month of 30th most recent contrib # $3 is year of 30th most recent contrib # $4 - $6 are day, month, year for today

# if 30th most recent contrib is this month, not semi-active if [ $2 = $5 -a $3 = $6 ]; then return 1 fi

# if 30th most recent contrib is last month, not semi-active MONTH=`prevmonth $5` YEAR=$6 [ $MONTH = "December" ] && let YEAR=$YEAR-1 [ $2 = $MONTH -a $3 = $YEAR ] && return 1

# if 30th most recent contrib is less than two months ago, not semi-active MONTH=`prevmonth $MONTH` [ $MONTH = "December" ] && let YEAR=$YEAR-1 [ $2 = $MONTH -a $3 = $YEAR -a $1 -gt $4 ] && return 1

return 0 }

TODAY=`date +"%e %B %Y"`

rm -f $ACTIVE rm -f $INACTIVE rm -f $SEMIACTIVE

let n=1 $WGET 'http://en.wikipedia.org/w/index.php?title=Special%3aListusers&group=sysop&limit=1500' >sysops cat sysops | sed 's;;\
 * 1) A Man In Black
 * g' | grep -F "" | sed 's/^.*[^U]*User://' | sed 's/">.*//' | sed 's/.amp;action=edit. class=.new//' | while read line; do

let n=n+1 if [ $n -ge 10 -a "$1" != "-" ]; then echo $realname sleep 10 let n=1 fi urlname=${line%%\" title=\"User:*} realname=${line##*\" title=\"User:}

if [ "$1" != "-" -o ! -f $CONTRIBS.$urlname ]; then $WGET "http://en.wikipedia.org/w/index.php?title=Special:Contributions&target=$urlname&limit=30" | grep -F "" | sed -e 's/^.*//' -e 's/ (.*//' >$CONTRIBS.$urlname fi LATEST=`head -1 $CONTRIBS.$urlname | cut -c8-`  THIRTIETH=`tail -1 $CONTRIBS.$urlname | cut -c8-`  # inactive if LATEST contrib not within last three months  # semi-active if 30th most recent contrib is more than two months ago  inactive $LATEST $TODAY   if [ $? -eq 0 ]; then    case "$urlname" in      Jasonr) echo "#  - has administrator access for technical rather than administrative reasons.  Works on hardware upgrades." >> $INACTIVE;; *) echo "# - $LATEST" >>$INACTIVE;;    esac    continue  fi  semiactive $THIRTIETH $TODAY  if [ $? -eq 0 ]; then    echo "# " >>$SEMIACTIVE  else    echo "# " >>$ACTIVE  fi done

$WGET 'http://en.wikipedia.org/w/index.php?title=Wikipedia:List_of_administrators&action=raw' >$WPLA egrep "^# ",admin)   notetext = $0    sub("^.*}} *tmp.$SEMIACTIVE ( cat $WPLA.notes ; echo "END OF NOTES"; cat tmp.$SEMIACTIVE ) | awk >$SEMIACTIVE ' BEGIN { print "==Semi-active==" print "'""'These users are less active than those above, but do edit at least occasionally.'""'" print }

/END OF NOTES/ { noting=1 next }

{ if (noting == 0) { admin = $0 sub("}} *tmp.$INACTIVE

Inactive
Sorted by length of inactivity:

! grep "Jasonr}}" $INACTIVE >>tmp.$INACTIVE for year in 2002 2003 2004 2005 2006 2007; do echo "#: " >>tmp.$INACTIVE egrep "$year$" $INACTIVE | awk >>tmp.$INACTIVE ' { monthday = $(NF-1) $(NF-2) if (inactive[monthday] == "") { inactive[monthday] = $0 } else { inactive[monthday] = inactive[monthday] "\n" $0 } }

END { months[1] = "January" months[2] = "February" months[3] = "March" months[4] = "April" months[5] = "May" months[6] = "June" months[7] = "July" months[8] = "August" months[9] = "September" months[10] = "October" months[11] = "November" months[12] = "December" for (month=1; month<=12; month=month+1) { for (day=1; day<=31; day=day+1) { if (inactive[months[month] day] != "") { print inactive[months[month] day] }   }  } } ' done

cp tmp.$INACTIVE $INACTIVE