$| = 1;
@file_names = ();
if ($month == 1) {
  $cmd = sprintf ("gif-cal $user day-cal.pl 12 %d", $year - 1);
}
else {
  $cmd = sprintf ("gif-cal $user day-cal.pl %d $year", $month - 1);
}
push (@file_names, `$cmd < $user.app`);
push (@file_names, `gif-cal $user day-cal.pl $month $year < $user.app`);
if ($month == 12) {
  $cmd = sprintf ("gif-cal $user day-cal.pl 1 %d", $year + 1);
}
else {
  $cmd = sprintf ("gif-cal $user day-cal.pl %d $year", $month + 1);
}
push (@file_names, `$cmd < $user.app`);

foreach $file (@file_names) {
  chop $file;
}

if ($month == 1) {
  $prev = sprintf ("month=12&year=%d", $year - 1);
  $map = sprintf ("CAL%04d%02d_MAP", $year - 1, 12);
}
else {
  $prev = sprintf ("month=%d&year=%d", $month - 1, $year);
  $map = sprintf ("CAL%04d%02d_MAP", $year, $month - 1);
}
print ("<IMG SRC=\"tmp-gif.pl?$file_names[0].gif\" BORDER=0 USEMAP=\"#$map\">&nbsp;&nbsp;&nbsp;");

$map = sprintf ("CAL%04d%02d_MAP", $year, $month);
print ("<IMG SRC=\"tmp-gif.pl?$file_names[1].gif\" BORDER=0 USEMAP=\"#$map\">&nbsp;&nbsp;&nbsp;");

if ($month == 12) {
  $next = sprintf ("month=1&year=%d", $year + 1);
  $map = sprintf ("CAL%04d%02d_MAP", $year + 1, 1);
}
else {
  $next = sprintf ("month=%d&year=%d", $month + 1, $year);
  $map = sprintf ("CAL%04d%02d_MAP", $year, $month + 1);
}
print ("<IMG SRC=\"tmp-gif.pl?$file_names[2].gif\" BORDER=0 USEMAP=\"#$map\"><P>\n");

system "cat $file_names[0].map $file_names[1].map $file_names[2].map";
unlink "$file_names[0].map", "$file_names[1].map", "$file_names[2].map";