Rosetta Code/List authors of task descriptions: Difference between revisions

{{draft task}}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:

 

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

Cache as $previous. Note $author.

compare $previous2 to $previous. If different, record $author to $list.

replace $previous with $previous2

 

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

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]].

 

 

{{works with|Rakudo|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.)

 

use URI::Escape;

use JSON::Fast;

my $client = HTTP::UserAgent.new;

 

 

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

# clear screen

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

 

#=begin update

 

 

mediawiki-query(

$url, 'pages',

:rawcontinue(),

:prop<title>

%tasks{.[0]<title>}<author> = .[0]<revisions>[0]<user>;

%tasks{.[0]<title>}<date> = .[0]<revisions>[0]<timestamp>.subst(/'T'.+$/, '')

}

 

# Add table boilerplate and header

$out.say:

"|+ As of { Date.today } :: Total Tasks: { $count }:: Tasks: { $taskcnt }",

;

 

# Get sorted unique list of task authors

 

# Get list of tasks by this author

my $s = +@these == 1 ?? '' !! 's';

 

 

 

# Tasks by this author, sorted by name

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

$out.close;

 

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

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

 

 

 

{{out|Sample output}}

See full output at [[Rosetta_Code/List_authors_of_task_descriptions/Full_list]]

 

|-

|style="padding: 0px;"|

|-

|style="background-color: #ffd;"| [[Names%20to%20numbers|Names to numbers]]

|}

|-

|style="padding: 0px;"|

|-

|style="background-color: #fff;"| [[Soundex|Soundex]]

|}

|-

|style="padding: 0px;"|

|-

|style="background-color: #fff;"| [[Draw%20a%20rotating%20cube|Draw a rotating cube]]

|}

|-

|-

|style="padding: 0px;"|

|-

|style="background-color: #fff;"| [[Perfect%20shuffle|Perfect shuffle]]

|}

|-

|style="padding: 0px;"|

|-

|style="background-color: #fff;"| [[Thue-Morse|Thue-Morse]]

|}

|-

|style="padding: 0px;"|

{|class="broadtable sortable" style="width: 100%;"

|}

|}