StDoodle: moved UserTalk:HippoKing/script to User talk:HippoKing/script

2010-03-14T05:35:13Z

moved UserTalk:HippoKing/script to User talk:HippoKing/script

← Older revision		Revision as of 05:35, 14 March 2010
(No difference)

StDoodle: moved List of KoLmafia Properties/script to UserTalk:HippoKing/script

2010-03-14T05:34:48Z

moved List of KoLmafia Properties/script to UserTalk:HippoKing/script

← Older revision	Revision as of 05:34, 14 March 2010
(No difference)

HippoKing: Created page with 'This is the perl script I used to generate the page, in case it needs updating. Note that this needs to share a folder with the defaults.txt file from kolmafia, and you have to …'

2009-08-29T20:58:27Z

Created page with 'This is the perl script I used to generate the page, in case it needs updating. Note that this needs to share a folder with the defaults.txt file from kolmafia, and you have to …'

New page

This is the perl script I used to generate the page, in case it needs updating.

Note that this needs to share a folder with the defaults.txt file from kolmafia, and you have to change the revision number manually. It was intended to be used, not to be published, so it works but it's not pretty in the slightest.

Output overwrites wiki.txt.

<pre>#!perl
use strict;
use warnings;

my $revision = 7582;

open INFILE, '< defaults.txt' or die $!;
open OUTFILE, '> wiki.txt' or die $!;

my @global;
my @user;

while(<INFILE>) {
chomp;
my @line = split /\t/;
if (exists($line[0])) {
if ($line[0] eq "global") {
shift @line;
push @global,\@line;
}
if ($line[0] eq "user") {
shift @line;
push @user,\@line;
}
}
}

print OUTFILE ("This is a list of all the Property variables included in KoLmafia. It was automatically generated from r",$revision);
# global variables

print OUTFILE (
"\n==Global Variables==\n",
'{| class="wikitable" border="1"',
"\n|-\n! Variable Name\n! Default Value\n! Notes\n");

foreach my $line (@global) {
print OUTFILE ('|-',"\n");

for (my $i = 0; $i<3;$i++) {
if (defined(@$line[$i])) {
print OUTFILE ('| ',@$line[$i],"\n");
}
else {
print OUTFILE ('| ',"\n");
}
}

}

print OUTFILE ('|}',"\n");

# user Variables

print OUTFILE (
"\n==Per-Account Variables==\n",
'{| class="wikitable" border="1"',
"\n|-\n! Variable Name\n! Default Value\n! Notes\n");

foreach my $line (@user) {
print OUTFILE ('|-',"\n");

for (my $i = 0; $i<3;$i++) {
if (defined(@$line[$i])) {
print OUTFILE ('| ',@$line[$i],"\n");
}
else {
print OUTFILE ('| ',"\n");
}
}

}

print OUTFILE ('|}',"\n");
</pre>

User talk:HippoKing/script - Revision history

StDoodle: moved UserTalk:HippoKing/script to User talk:HippoKing/script

StDoodle: moved List of KoLmafia Properties/script to UserTalk:HippoKing/script

HippoKing: Created page with 'This is the perl script I used to generate the page, in case it needs updating. Note that this needs to share a folder with the defaults.txt file from kolmafia, and you have to …'