#![]{perl}[]
#
# Huuh, we are perl!
#
# Benutzung: germandate
#
# Dieses Skript gibt das aktuelle Datum in deutschem Format aus.
#
# Revision: 30. September 1994
# Markus.Porto@physik.uni-giessen.de
#

$command= "[]{date}[]";

%monthtable= (
  'Jan', 'Januar',
  'Feb', 'Februar',
  'Mar', 'M&auml;rz',
  'Apr', 'April',
  'May', 'Mai',
  'Jun', 'Juni',
  'Jul', 'Juli',
  'Aug', 'August',
  'Sep', 'September',
  'Oct', 'Oktober',
  'Nov', 'November',
  'Dec', 'Dezember'
);

# Umgebung TZ
$ENV{"TZ"}= 'CET-1CET,M3.4.0,M9.4.0';

( $dayofweek, $month, $day, $time, $timezone, $year)= split( ' ', `$command`);
print $day, ". ", $monthtable{$month}, " ", $year;
