#![]{perl}[]
#
# Huuh, we are perl!
#
# Benutzung: germantime [-s]
#
# Dieses Skript gibt die aktuelle Zeit in deutschem Format aus.
#
# Optionen:
#  -s   mit Sekunden
#
# Revision: 30. September 1994
# Markus.Porto@physik.uni-giessen.de
#

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

# Optionen
$s= 0; # Sekunden (nein=0)/(ja=1)
while( $ARGV[0] =~ /^-/)
{
  $_= shift;
  /^-(s)/ && (eval "\$$1= 1", next);
  die "Unbekannte Option $_\n";
}

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

# Start
( $dayofweek, $month, $day, $time, $timezone1, $timezome2, $year)= split( ' ', `$command`);
if( $s == 0)
{
  $time =~ s/:\d\d$//go;
}
$time =~ s/^0//;
print $time;
