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 630a1e193832c4fc481f3900bc49a25e6114a0f4..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


@@ -75,6 +76,7 @@ sub create_message ($$) {
 
   my $header = $xml -> createElement ('Header');
   my $author = $xml -> createElement ('Author');
 
   my $header = $xml -> createElement ('Header');
   my $author = $xml -> createElement ('Author');

+  $header  -> appendChild ($author);

 
   my @may = (
     ['name'     => 'Name'        => $author],
 
   my @may = (
     ['name'     => 'Name'        => $author],


@@ -104,7 +106,6 @@ sub create_message ($$) {
   my $date = $xml -> createElement ('Date');
   $date -> setAttribute ('longSec'=> $par -> {time});
 
   my $date = $xml -> createElement ('Date');
   $date -> setAttribute ('longSec'=> $par -> {time});
 

-  $header  -> appendChild ($author);

   $header  -> appendChild ($date);
   $message -> appendChild ($header);
 
   $header  -> appendChild ($date);
   $message -> appendChild ($header);
 


@@ -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 ($@);


@@ -443,37 +444,31 @@ sub sort_thread ($$) {
 # Params: $smsg  Reference of array of references of hashs
 # Return: -none-
 #
 # Params: $smsg  Reference of array of references of hashs
 # Return: -none-
 #

-sub delete_messages ($)
-{
+sub delete_messages ($) {

   my $smsg = shift;
   my $smsg = shift;

-

   my ($z, $oldlevel, @path) = (0,0,0);
 
   my ($z, $oldlevel, @path) = (0,0,0);
 

-  for (@$smsg)
-  {
-    if ($_ -> {'deleted'})
-    {
-      my $n = $_ -> {'answers'} + 1;
-      $smsg -> [$_] -> {'answers'} -= $n for (@path);
-      splice @$smsg,$z,$n;
+  while ($z <= $#{$smsg}) {
+
+    if ($smsg -> [$z] -> {level} > $oldlevel) {
+      push @path => $z;
+      $oldlevel = $smsg -> [$z] -> {level};
+    }
+    elsif ($smsg -> [$z] -> {level} < $oldlevel) {
+      splice @path, $smsg -> [$z] -> {level};
+      push @path => $z;
+      $oldlevel = $smsg -> [$z] -> {'level'};
+    }
+    else {
+      $path[-1] = $z;

     }
     }

-    else
-    {
-      if ($_ -> {'level'} > $oldlevel)
-      {
-        push @path,$z;
-        $oldlevel = $_ -> {'level'};
-      }
-      elsif ($_ -> {'level'} < $oldlevel)
-      {
-        splice @path,$_ -> {'level'} - $oldlevel;
-        $oldlevel = $_ -> {'level'};
-      }
-      else
-      {
-        $path[-1] = $z;
-      }

 
 

+    if ($smsg -> [$z] -> {deleted}) {
+      my $n = $smsg -> [$z] -> {answers} + 1;
+      $smsg -> [$_] -> {answers} -= $n for (@path);
+      splice @$smsg, $z, $n;
+    }
+    else {

       $z++;
     }
   }
       $z++;
     }
   }


@@ -497,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)
   {


@@ -527,18 +522,20 @@ sub get_all_threads ($$;$)
       if (defined($10))
       {
         push @stack,$cmno if (defined $cmno);
       if (defined($10))
       {
         push @stack,$cmno if (defined $cmno);

-        push @msg, {mid     => $1,
-                    unid    => $2,
-                    deleted => $3,
-                    archive => $4,
-                    name    => $5,
-                    cat     => $6,
-                    subject => $7,
-                    time    => $8,
-                    level   => $level++,
-                    unids   => [],
-                    kids    => [],
-                    answers => 0};
+        push @msg, {
+          mid     => $1,
+          unid    => $2,
+          deleted => $3 || 0,
+          archive => $4 || 0,
+          name    => $5,
+          cat     => $6,
+          subject => $7,
+          time    => $8,
+          level   => $level++,
+          unids   => [],
+          kids    => [],
+          answers => 0
+        };

 
         if (defined $cmno)
         {
 
         if (defined $cmno)
         {


@@ -561,18 +558,20 @@ sub get_all_threads ($$;$)
       }
       elsif (defined ($9))
       {
       }
       elsif (defined ($9))
       {

-        push @msg, {mid     => $1,
-                    unid    => $2,
-                    deleted => $3,
-                    archive => $4,
-                    name    => $5,
-                    cat     => $6,
-                    subject => $7,
-                    time    => $8,
-                    level   => $level,
-                    unids   => [],
-                    kids    => [],
-                    answers => 0};
+        push @msg, {
+          mid     => $1,
+          unid    => $2,
+          deleted => $3 || 0,
+          archive => $4 || 0,
+          name    => $5,
+          cat     => $6,
+          subject => $7,
+          time    => $8,
+          level   => $level,
+          unids   => [],
+          kids    => [],
+          answers => 0
+        };

 
         if (defined $cmno)
         {
 
         if (defined $cmno)
         {


@@ -706,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]);


@@ -721,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);


@@ -730,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;