User:David/Imported Commands

Introduction

Like with the Imported Cvars this page is here in case the commands need to be reimported or its ever useful.

Steps

• Get a list.
  • /cmdlist in game.
  • Run it through sed and sort -u to strip the + and - and remove dupes.
• See steps 2-4 on User:David/Imported_Cvars. This is mostly the same.

The script

#!/usr/bin/perl -W
use strict;

my $count = 0;

sub pageno
{
	my ($pageno) = @_;
	return (int(($pageno)/95+1));
}

while(my $line = <STDIN>)
{
	$line =~ s/\n$//;
	$count++;
	if (pageno($count) != pageno($count-1) or $count == 1)
	{
		open (FILE, ">", "cmds-" . pageno($count) . ".xml" );
		print FILE "<mediawiki xml:lang=\"en\">\n";
	}
	else
	{
		open (FILE, ">>", "cmds-" . pageno($count) . ".xml" );
	}
	
	print FILE "  <page>\n";
	print FILE "    <title>$line</title>\n";
	print FILE "    <revision>\n";
	print FILE "      <timestamp>" . `echo -n \$(date '+%Y-%m-%dT%H:%M:%SZ')` . "</timestamp>\n";
	print FILE "      <contributor><username>David</username></contributor>\n";
	print FILE "      <comment>AUTO IMPORTED BY SCRIPT!  User:David/Imported_Commands for more info.</comment>\n";
	print FILE "      <text>{{DISPLAYTITLE:$line}}\n";	
	print FILE "{{stub}}\n";
	print FILE "{{Infobox Command\n";
	print FILE "|title      = $line\n";
	print FILE "|syntax     = \n";
	print FILE "|client     = \n";
	print FILE "|server     = \n";
	print FILE "|cheat      = \n";
	print FILE "}}\n";
	print FILE "== Usage ==\n";
	print FILE "\n";
	print FILE "[[Category:Unsorted Commands]]</text>\n";
	print FILE "    </revision>\n";
	print FILE "  </page>\n";
	
	if (pageno($count) != pageno($count+1))
	{
		print FILE "</mediawiki>\n";
	}
	
	close (FILE);
}

open (FILE, ">>", "cmds-" . pageno($count) . ".xml" );
print FILE "</mediawiki>\n";
close (FILE);