# Monat als HTML Tabelle mit Feiertagen
sub month_as_html{
 return "-1" if scalar @_ < 2;
 my ($month, $year) = @_;
 my %feiertag = &feiertage($year);
 my %fixtag = &fixtage($year);
 my $x_day = 1;
 my $row = 0;
 my $table = ();
 my @wochentag = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
 my @monat = qw(null Januar Februar M&auml;rz April Mai Juni Juli August September Oktober November Dezember);
 my $first_day = &weekday(1, $month, $year, 1);
 my $days = &days_of_month($month, $year);
 $table = "<table border cellpadding=0 cellspacing=0 width=\"100%\">\n";
 $table .= "<tr>\n";
 $table .= "<th colspan=7>$monat[$month] $year</th>\n";
 $table .= "</tr>\n<tr>";
 for(0..6){
  $table .= "<th>$wochentag[$_]</th>\n"
 }
 $table .= "</tr>\n";
 # Hier wird der Kalender zusammengebaut
 for($row = 1; $row <= 6; $row ++){
  $table .= "<tr>\n";
   for(0..6){
    if( $first_day <= $_ and $row == 1){ # Einstieg in Kalender
     $table .= "<td>$x_day &nbsp;<b>$feiertag{\"$x_day.$month.$year\"}</b>
     &nbsp;<b>$fixtag{\"$x_day.$month.$year\"}</b></td>\n";
     $x_day++;
    }
    elsif( $x_day <= $days and $row != 1){
     $table .= "<td>$x_day &nbsp;<b>$feiertag{\"$x_day.$month.$year\"}</b>
     &nbsp;<b>$fixtag{\"$x_day.$month.$year\"}</b></td>\n";
     $x_day++;
    }
    else{  # Tag stimmt nicht überein
     $table .= "<td>&nbsp;</td>\n";
    }
   }
  $table .= "</tr>\n";
 }
 # Abschluss der Tabelle
 $table .= "</table>\n";
 return $table;
}