Extension:Wikical.pl

#!perl
 
use Getopt::Std;
 
getopt('my');
@nowdate=localtime(time());
 
$month=$opt_m?$opt_m:$nowdate[4]+1;
$year=$opt_y?$opt_y:$nowdate[5]+1900;
 
open CAL, "cal $month $year|";
 
print "{| border cellspacing=0 cellpadding=2\n";
 
while (<CAL>) {
  if (/^\s+[A-Z]/) {  # month and year
    print "|+$_";
    next;
  }
 
  if (/^Su/) {  # days of week
    @dow=split;
    print "|-\n|".join("||",@dow)."\n";
    next;
  }
 
  print "|-\n";
 
  @days=split;
  if ($days[0]==1) {
    $paddays=7-scalar(@days);
    while ($paddays--) { print "| |"; }
  }
 
  foreach $day (@days) {
    printf ("|'''[[{{PAGENAME}}/%4d-%02d-%02d|$day]]'''\n",$year,$month,$day);
  }
 
}  #end while
 
print "|}\n";