Wikipedia:List of Wikipedians by featured article nominations/script

From Wikipedia, the free encyclopedia

This is the script I currently run to produce the content of Wikipedia:List of Wikipedians by featured article nominations from the by year articles (which are updated separately). -- Rick Block (talk) 21:51, 16 July 2006 (UTC)

#!/bin/bash

# get the former featureds
/usr/bin/curl "http://en.wikipedia.org/w/index.php?title=Wikipedia:Former_featured_articles&action=raw" | awk '

/^==Former featured articles that have been re-promoted/ {
  nextfile
}

/[[][[]/ {
  sub("^.*[[][[]","",$0)
  sub("]].*","",$0)
  sub("[|].*","",$0)
  if ( substr($0,1,1) != "#" ) {
    former[$0] = 1
  }
}

END {
  for (art in former) {
    print "FORMER#" art
  }
}' >formers

# get all the articles nominated by year 
if [ "$1" = "" ];  then
        for YEAR in 2007 2006 2005 2004 2003; do
                /usr/bin/curl "http://en.wikipedia.org/w/index.php?title=Wikipedia:Featured_articles_nominated_in_${YEAR}&action=raw"
                echo
        done >fasbyyear
fi

cat fasbyyear| awk '
function nomd(nom, article) {

  sub("^ *","",nom)
  sub(" *$","",nom)
  sub("^ *","",article)
  sub(" *$","",article)
  user = nom
  if (sub("\\|.*]]","",user) > 0) {
    sub("^..[uU][sS][eE][rR]:","",user)
  }
  if (fulluser[user] == "") {
    fulluser[user] = nom
  }
  if (sub("^'"''"'*\\[","[",article) > 0) {
    sub("'"'"'* *$","",article)
  }
  noms[user] = noms[user] "#" article
  nomcount[user] = nomcount[user] + 1
}

BEGIN {
  FS="\\|\\|"
}

/^\|\|/ {
  if ($4 ~ /]] & /) {
    split($4,multinoms," & ")
    for (nom in multinoms) {
      nomd(multinoms[nom],$2)
    }
  } else {
    nomd($4,$2)
  }
}

END {
  for (nom in nomcount) {
    if (nom != "") {
      print nomcount[nom] "#" fulluser[nom] noms[nom]
    }
  }
}
' | sort -t'#' +0rn +1f| cat formers - | awk '
BEGIN {
  FS="#"
}

/^FORMER/ {
  former[$2] = 1
  next
} 

{
  print "|-"
  print "| " $2 
  numarts = 0
  for ( i=3; i<=NF; i=i+1) {
    sub("\\|.*]]","]]",$i)
    numarts = numarts + 1
    if (numarts > 20) {
      printf "|-\n||\n"
      numarts = 1
    }
    sub("]] *$","",$i)
    sub("^[[][[]","",$i)
    if (former[$i] == 1) {
      print "| [[" $i "|<span style=\"color: #B7410E;\">★</span>]]"
    } else {
      print "|  [[" $i "|★]]"
    }
  }
}'