German.pm: added version check, turned 'germantime' to 'localtime'. Time::German...

_lib.pm returned 'germantime' to 'localtime'

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 4ca15145af43edb19ccbe1afdb6f593b54b2f61e..1f6de859c7bedbd67e3eb5f54ba1b2ac0be7f9a0 100644 (file)
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -683,26 +683,26 @@ sub month($) {
 }
 
 sub hr_time ($) {
 }
 
 sub hr_time ($) {

-  my (undef, $min, $hour, $day, $mon, $year) = germantime (shift);
+  my (undef, $min, $hour, $day, $mon, $year) = localtime (shift);

 
   sprintf ('%02d. %s %04d, %02d:%02d Uhr', $day, month($mon+1), $year+1900, $hour, $min);
 }
 
 sub short_hr_time ($) {
 
   sprintf ('%02d. %s %04d, %02d:%02d Uhr', $day, month($mon+1), $year+1900, $hour, $min);
 }
 
 sub short_hr_time ($) {

-  my (undef, $min, $hour, $day, $mon, $year) = germantime (shift);
+  my (undef, $min, $hour, $day, $mon, $year) = localtime (shift);

 
   sprintf ('%02d. %02d. %04d, %02d:%02d Uhr', $day, $mon+1, $year+1900, $hour, $min);
 }
 
 sub long_hr_time ($) {
   my @wday  = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
 
   sprintf ('%02d. %02d. %04d, %02d:%02d Uhr', $day, $mon+1, $year+1900, $hour, $min);
 }
 
 sub long_hr_time ($) {
   my @wday  = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);

-  my ($sek, $min, $hour, $day, $mon, $year, $wday) = germantime (shift);
+  my ($sek, $min, $hour, $day, $mon, $year, $wday) = localtime (shift);

 
   sprintf ('%s, %02d. %s %04d, %02d:%02d:%02d Uhr', $wday[$wday], $day, month($mon+1), $year+1900, $hour, $min, $sek);
 }
 
 sub very_short_hr_time($) {
 
   sprintf ('%s, %02d. %s %04d, %02d:%02d:%02d Uhr', $wday[$wday], $day, month($mon+1), $year+1900, $hour, $min, $sek);
 }
 
 sub very_short_hr_time($) {

-  my (undef, $min, $hour, $day, $mon, $year) = germantime (shift);
+  my (undef, $min, $hour, $day, $mon, $year) = localtime (shift);

 
   sprintf ('%02d. %02d. %04d', $day, $mon+1, $year+1900);
 }
 
   sprintf ('%02d. %02d. %04d', $day, $mon+1, $year+1900);
 }

diff --git a/selfforum-cgi/shared/Time/German.pm b/selfforum-cgi/shared/Time/German.pm
index 52d715318f25b4ae0491b67d0bc9629dc50051da..2e323d0dbffd6c5d41a1570e52da496c246d17cd 100644 (file)
--- a/selfforum-cgi/shared/Time/German.pm
+++ b/selfforum-cgi/shared/Time/German.pm
@@ -11,13 +11,23 @@ package Time::German;
 ################################################################################
 
 use strict;
 ################################################################################
 
 use strict;

+use vars qw(
+  @EXPORT
+  $VERSION
+);
+
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

 
 ################################################################################
 #
 # Export
 #
 use base 'Exporter';
 
 ################################################################################
 #
 # Export
 #
 use base 'Exporter';

-@Time::German::EXPORT = qw(germantime);
+@EXPORT = qw(localtime);

 
 ################################################################################
 #
 
 ################################################################################
 #


@@ -42,7 +52,7 @@ my %summertime = (
   95 => [84, 266]
 );
 
   95 => [84, 266]
 );
 

-### germantime () ##############################################################
+### localtime () ###############################################################

 #
 # like 'localtime', but system independent
 #
 #
 # like 'localtime', but system independent
 #


@@ -50,7 +60,7 @@ my %summertime = (
 #
 # Return: same as localtime, but german time ;-)
 #
 #
 # Return: same as localtime, but german time ;-)
 #

-sub germantime (;$) {
+sub localtime (;$) {

   my $time = shift;
   $time = time unless defined $time;
 
   my $time = shift;
   $time = time unless defined $time;