VroniPlag Wiki:Tools/KreiereSeiten

Perl Skript zur Erstellung der "Seiten" Eintraege im Wiki. Die Variablen $KUERZEL, $START und $STOP muessen gesetzt werden, dann gibt das Skript den relevanten MediaWiki Code aus.

#!/usr/bin/perl

$KUERZEL = 'Ub';
$START = 1;
$STOP = 254;

$COLSPAN = 20;

print "== Seiten ==\n<br />\n{| class=\"ueberpruefte-fragmentseiten\"\n! colspan=\"$COLSPAN\" | Haupttext\n|-\n|";

$i = 1;
while($START - $i > $COLSPAN) {
        $i += $COLSPAN;
}

for(; $i < $START; $i++) {
        print '||';
}

for(; $i <= $STOP; $i++) {
        if($i != $START && ($i-1) % $COLSPAN == 0) {
                print "\n|-\n|";
        } elsif($i != $START) {
                print '||';
        }
        printf("[[$KUERZEL/%03d|%03d]]", $i, $i);
}

print "\n|}";