exported month()

[selfforum.git] / selfforum-cgi / shared / Posting / _lib.pm

diff --git a/selfforum-cgi/shared/Posting/_lib.pm b/selfforum-cgi/shared/Posting/_lib.pm
index 82240d5694f27e073d14bc1d80a34891494ae1bf..30a8254b96233c2715957e0aab00e9185d9e6675 100644 (file)
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -5,7 +5,7 @@ package Posting::_lib;
 # File:        shared/Posting/_lib.pm                                          #
 #                                                                              #
 # Authors:     André Malo <nd@o3media.de>, 2001-03-03                          #
 # File:        shared/Posting/_lib.pm                                          #
 #                                                                              #
 # Authors:     André Malo <nd@o3media.de>, 2001-03-03                          #

-#              Frank Schoenmann <fs@tower.de>, 2001-03-13                      #
+#              Frank Schoenmann <fs@tower.de>, 2001-06-02                      #

 #                                                                              #
 # Description: Message access interface, time format routines                  #
 #                                                                              #
 #                                                                              #
 # Description: Message access interface, time format routines                  #
 #                                                                              #


@@ -40,6 +40,7 @@ use base qw(Exporter);
   hr_time
   short_hr_time
   long_hr_time
   hr_time
   short_hr_time
   long_hr_time

+  month

 
   get_all_threads
   create_forum_xml_string
 
   get_all_threads
   create_forum_xml_string


@@ -295,7 +296,7 @@ sub parse_xml_file ($) {
 
   my $xml = eval {
     local $SIG{__DIE__};      # CGI::Carp works unreliable ;-(
 
   my $xml = eval {
     local $SIG{__DIE__};      # CGI::Carp works unreliable ;-(

-    new XML::DOM::Parser (KeepCDATA => 1) -> parsefile ($file);
+    new XML::DOM::Parser(KeepCDATA => 1)->parsefile ($file);

   };
 
   return if ($@);
   };
 
   return if ($@);


@@ -491,9 +492,9 @@ sub get_all_threads ($$;$)
   my ($last_thread, $last_message, $dtd, @unids, %threads);
   local (*FILE, $/);
 
   my ($last_thread, $last_message, $dtd, @unids, %threads);
   local (*FILE, $/);
 

-  open FILE, $file or return undef;
+  open FILE,"< $file" or return;

   my $xml = join '', <FILE>;
   my $xml = join '', <FILE>;

-  close(FILE) or return undef;
+  close(FILE) or return;

 
   if (wantarray)
   {
 
   if (wantarray)
   {


@@ -704,7 +705,7 @@ sub save_file ($$)
 ###########################
 
 sub hr_time ($) {
 ###########################
 
 sub hr_time ($) {

-  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mail Juni Juli August September Oktober November Dezember));
+  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mai Juni Juli August September Oktober November Dezember));

                                    # ^^^^^^^^ - UTF8 #
 
   my (undef, $min, $hour, $day, $mon, $year) = localtime ($_[0]);
                                    # ^^^^^^^^ - UTF8 #
 
   my (undef, $min, $hour, $day, $mon, $year) = localtime ($_[0]);


@@ -719,7 +720,7 @@ sub short_hr_time ($) {
 }
 
 sub long_hr_time ($) {
 }
 
 sub long_hr_time ($) {

-  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mail Juni Juli August September Oktober November Dezember));
+  my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mai Juni Juli August September Oktober November Dezember));

                                    # ^^^^^^^^ - UTF8 #
 
   my @wday  = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);
                                    # ^^^^^^^^ - UTF8 #
 
   my @wday  = qw(Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag);


@@ -728,9 +729,16 @@ sub long_hr_time ($) {
   sprintf ('%s, %02d. %s %04d, %02d:%02d:%02d Uhr', $wday[$wday], $day, $month[$mon], $year+1900, $hour, $min, $sek);
 }
 
   sprintf ('%s, %02d. %s %04d, %02d:%02d:%02d Uhr', $wday[$wday], $day, $month[$mon], $year+1900, $hour, $min, $sek);
 }
 

+sub month($) {
+    my @month = (qw(Januar Februar), "M\303\244rz", qw(April Mai Juni Juli August September Oktober November Dezember));
+                                     # ^^^^^^^^ - UTF8 #
+
+    return $month[$_[0]];
+}
+

 # ====================================================
 # Modulinitialisierung
 # ====================================================
 
 # making require happy
 # ====================================================
 # Modulinitialisierung
 # ====================================================
 
 # making require happy

-1;
\ No newline at end of file
+1;