User:Heb/PDSBA.pl

#!/usr/bin/perl -w

use strict;

my $weekbegin=1;
my $weekend=52;
my $year=2008;
my @otheryears = (2006,2007,2008);


my $header = qq{==[[Portal:Denmark|Denmark Portal]] selected biography archive: $year ==
This is the selected biography archive, for the [[Portal:Denmark|Denmark portal]].

};

my $footer = q{<small>This index is generated by [[User:Hebster/PDSBA.pl|this cruel]] but working [[Perl|perl-script]].</small>
};

################

print $header;

foreach my $otheryear (@otheryears) {
  if ($otheryear != $year) {
     print "* [[Portal:Denmark/Selected biography/Archive/$otheryear|Year $otheryear archive]]\n";
  }
}

print "\n\n";

while ($weekbegin <= $weekend) {
  print "'''$weekbegin:''' <small><span class=\"plainlinks\">[[Portal:Denmark/Selected biography/$year/$weekbegin|View]] {{·}} [http://en.wikipedia.org/w/index.php?title=Portal:Denmark/Selected_biography/$year/$weekbegin&action=edit edit] {{·}} [[Portal talk:Denmark/Selected biography/$year/$weekbegin|discuss]] {{·}} [http://en.wikipedia.org/w/index.php?title=Portal:Denmark/Selected_biography/$year/$weekbegin&action=history history]</span></small>\n";
  print "{{Portal:Denmark/Selected biography/$year/$weekbegin}}\n";
  print "----\n\n"; 

  $weekbegin++;
}

print $footer;