Rosetta Code/List authors of task descriptions

Rosetta Code/List authors of task descriptions is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

In this task, the goal is to compile an authorship list for task descriptions. A pseudocode example (in imperative style) that should accomplish this is as follows:

<lang pseudocode>for each task page

 grab page source, discard everything after the first ==section==.

Cache as $previous. Note $author.

 for each revision
   grab page source, discard everything after first ==section==.

Cache as $previous2. Note $author2

   compare $previous2 to $previous. If different, record $author to $list.
   replace $previous with $previous2
   replace $author with $author2</lang>

The following resources for HTTP interface information for MediaWiki may prove to be useful:

• https://www.mediawiki.org/wiki/Index.php#Raw
• https://www.mediawiki.org/wiki/Index.php#History
• https://www.mediawiki.org/wiki/API:Main_page

Conversely, some languages have libraries which abstract these interfaces into language-native idioms. Use of these abstractions is perfectly fine.

Please DO NOT add a full output for each programming language; just show a representative sample. For an full listing, see Rosetta_Code/List_authors_of_task_descriptions/Full_list.

Perl 6

Works with: Rakudo version 2018.03

The pseudocode above is no longer really useful as the page format has changed significantly since this task was written. Rather than checking every edit to see if it was a change to the task description, we'll just assume the user that created the page is the task author. This isn't 100% accurate; a very few pages got renamed and recreated by someone other than the original author without preserving the history, so they are misreported (15 Puzzle Game for instance,) but is as good as it is likely to get without extensive manual intervention. Subsequent edits to the task description are not credited. As it is, we must still make thousands of requests and pound the server pretty hard. Checking every edit would make the task several of orders of magnitude more abusive of the server (and my internet connection.)

<lang perl6>use HTTP::UserAgent; use URI::Escape; use JSON::Fast; use Sort::Naturally;

1. Friendlier descriptions for task categories

my %cat = (

   'Programming_Tasks' => 'Task',
   'Draft_Programming_Tasks' => 'Draft'

);

my $client = HTTP::UserAgent.new;

my $url = 'http://rosettacode.org/mw';

my $tablefile = './RC_Authors.txt'; my $hashfile = './RC_Authors.json';

my %tasks;

1. clear screen

run($*DISTRO.is-win ?? 'cls' !! 'clear');

1. =begin update

note 'Retreiving task information...';

for %cat.keys -> $category {

   mediawiki-query(
       $url, 'pages',
       :generator<categorymembers>,
       :gcmtitle("Category:$category"),
       :gcmlimit<350>,
       :rawcontinue(),
       :prop<title>
   ).map({
       mediawiki-query(
           $url, 'pages',
           :titles(.<title>),
           :prop<revisions>,
           :rvprop<user|timestamp>,
           :rvstart<2000-01-01T01:01:01Z>,
           :rvdir<newer>,
           :rvlimit<1>
       )}
   ).map({
       print clear, 1 + $++, ' ', %cat{$category}, ' ', .[0]<title>;
       %tasks{.[0]<title>}<category> = %cat{$category};
       %tasks{.[0]<title>}<author> = .[0]<revisions>[0]<user>;
       %tasks{.[0]<title>}<date> = .[0]<revisions>[0]<timestamp>.subst(/'T'.+$/, )
       }
   )

}

print clear;

1. Save information to a local file

note "\nTask information saved to local file: {$hashfile.IO.absolute}"; $hashfile.IO.spurt(%tasks.&to-json);

1. =end update

1. Load information from local file

%tasks = $hashfile.IO.e ?? $hashfile.IO.slurp.&from-json !! ( );

1. Convert saved task / author info to a table

note "\nBuilding table..."; my $count = +%tasks; my $taskcnt = +%tasks.grep: *.value.<category> eq %cat<Programming_Tasks>; my $draftcnt = $count - $taskcnt;

1. Open a file handle to dump table in

my $out = open($tablefile, :w) or die "$!\n";

1. Add table boilerplate and header

$out.say:

   "\{|class=\"wikitable\"\n",
   "|+ As of { Date.today } :: Total Tasks: { $count }:: Tasks: { $taskcnt }",
   " :: Draft Tasks: { $draftcnt }\n",
   "! Author !! Authored"

1. Get sorted unique list of task authors

for %tasks{*}».<author>.unique.sort(*.&naturally) -> $author {

   # Get list of tasks by this author
   my @these = %tasks.grep( { $_.value.<author> eq $author } );
   my $s = +@these == 1 ??  !! 's';

   # Add author and contributions link to the first cell
   $out.say: "|-\n| $author : ",
     " { +@these } task{ $s }";

   $out.say: "|style=\"padding: 0px;\"|\n",
     "\{|class=\"broadtable sortable\" style=\"width: 100%;\"\n",
     "! Task Name !! Date Added !! Status";

   # Tasks by this author, sorted by name
   for @these.sort({.key.&naturally}) -> $task {

       my $color = $task.value.<category> eq 'Draft' ?? '#ffd' !! '#fff';

       # add the task link, date and status to the table in the second cell
       $out.say: "|-\n|style=\"background-color: $color;\"",
         ( $task.key ~~ /\d/
           ?? " data-sort-value=\"{ sort-key $task.key }\"| [[{uri-escape $task.key}|{$task.key}]]\n"
           !! "| [[{uri-escape $task.key}|{$task.key}]]\n"
         ),
         "|style=\"width: 10em; background-color: $color;\"| {$task.value.<date>}\n",
         "|style=\"width: 6em; background-color: $color;\"| {$task.value.<category>}",
   }
    $out.say: '|}'

} $out.say( "|}\n" ); $out.close;

note "Table file saved as: {$tablefile.IO.absolute}";

sub mediawiki-query ($site, $type, *%query) {

   my $url = "$site/api.php?" ~ uri-query-string(
       :action<query>, :format<json>, :formatversion<2>, |%query);
   my $continue = ;

   gather loop {
       my $response = $client.get("$url&$continue");
       my $data = from-json($response.content);
       take $_ for $data.<query>.{$type}.values;
       $continue = uri-query-string |($data.<query-continue>{*}».hash.hash or last);
   }

}

sub uri-query-string (*%fields) { %fields.map({ "{.key}={uri-escape .value}" }).join("&") }

sub sort-key ($a) { $a.lc.subst(/(\d+)/, ->$/ {0~(65+$0.chars).chr~$0},:g) }

sub clear { "\r" ~ ' ' x 100 ~ "\r" } </lang>

Sample output:

See full output at Rosetta_Code/List_authors_of_task_descriptions/Full_list

As of 2018-03-31 :: Total Tasks: 1080:: Tasks: 871 :: Draft Tasks: 209

Author	Authored
2Powers : 2 tasks	Task Name Date Added Status Names to numbers 2013-05-16 Draft Solving coin problems 2013-05-16 Draft
12.175.32.19 : 1 task	Task Name Date Added Status Soundex 2009-11-12 Task
12Me21 : 1 task	Task Name Date Added Status Draw a rotating cube 2015-05-04 Task
many rows omitted...
Zorro1024 : 2 tasks	Task Name Date Added Status Perfect shuffle 2015-04-16 Task Vector 2015-03-21 Draft
Zzo38 : 1 task	Task Name Date Added Status Thue-Morse 2015-09-20 Task
Русский : 3 tasks	Task Name Date Added Status Main step of GOST 28147-89 2012-08-31 Task Old Russian measure of length 2013-01-09 Draft Transportation problem 2013-05-24 Draft