Wikipedia:List of administrators/script
Appearance
This is the script I use for activity updates. I run it on a Mac OS X - I suspect it works on Linux. -- Rick Block (talk) 20:10, 3 December 2006 (UTC)
#!/bin/bash WGET="/usr/bin/curl" # on a mac OS X # WGET="wget -q -O -" # on a linux box with wget # files ACTIVE="admins.active" SEMIACTIVE="admins.semiactive" INACTIVE="admins.inactive" CONTRIBS="contrib.times" WPLA="wpla" 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://wiki.riteme.site/w/index.php?title=Special%3aListusers&group=sysop&limit=1500' >sysops # <li><a href="/wiki/User:A_Man_In_Black" title="User:A Man In Black">A Man In Black</a> cat sysops | sed 's;</a>;</a>\ ;g' | grep -F "<li>" | sed 's/^.*<li>[^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://wiki.riteme.site/w/index.php?title=Special:Contributions&target=$urlname&limit=30" | grep -F "<li>" | sed -e 's/^.*<li>//' -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 "# {{admin|$realname}} - has administrator access for technical rather than administrative reasons. Works on hardware upgrades." >> $INACTIVE;; *) echo "# {{admin|$realname}} - $LATEST" >>$INACTIVE;; esac continue fi semiactive $THIRTIETH $TODAY if [ $? -eq 0 ]; then echo "# {{admin|$realname}}" >>$SEMIACTIVE else echo "# {{admin|$realname}}" >>$ACTIVE fi done # get the current contents of WP:LA $WGET 'http://wiki.riteme.site/w/index.php?title=Wikipedia:List_of_administrators&action=raw' >$WPLA egrep "^# {{admin.*<noinclude>" $WPLA >$WPLA.notes # fix the format and sort order sort -fd $ACTIVE >tmp.$ACTIVE ( cat $WPLA.notes ; echo "END OF NOTES"; cat tmp.$ACTIVE ) | awk >$ACTIVE ' BEGIN { print "===#===" print "</noinclude>" nextletter = "A" alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ-" } /END OF NOTES/ { noting=1 next } { if (noting == 0) { admin = $0 sub("}} *<noinclude.*","}}",admin) notetext = $0 sub("^.*}} *<noinclude","<noinclude",notetext) note[admin] = " " notetext } else { if ( $0 ~ "^# {{admin." nextletter) { print "<noinclude>" print "" print "===" nextletter "===" print "</noinclude>" nextletter = substr(alphabet,index(alphabet,nextletter)+1,1) } print $0 note[$0] } } END { print "</onlyinclude>" }' sort -fd $SEMIACTIVE >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("}} *<noinclude.*","}}",admin) notetext = $0 sub("^.*}} *<noinclude","<noinclude",notetext) note[admin] = " " notetext } else { print $0 note[$0] } }' cat <<! >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