fo_posting.pl now runs without warnings, it's yet too special, this will be fixed...

[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 9ede10553eb9fad8e11ed9e8f4dd5c18ab181f8e..810f33443a5244665c16c755110201925c3e21da 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-02                      #
+#              Frank Schoenmann <fs@tower.de>, 2001-03-13                      #

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


@@ -13,9 +13,6 @@ package Posting::_lib;
 
 use strict;
 
 
 use strict;
 

-use vars qw(@EXPORT_OK);
-use base qw(Exporter);
-

 use Encode::Plain; $Encode::Plain::utf8 = 1;
 
 use XML::DOM;
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 
 use XML::DOM;


@@ -24,10 +21,19 @@ use XML::DOM;
 # Export
 # ====================================================
 
 # Export
 # ====================================================
 

-@EXPORT_OK = qw(get_message_header get_message_body get_message_node get_body_node parse_single_thread
-                hr_time short_hr_time long_hr_time
-                get_all_threads create_forum_xml_string
-                save_file);
+use constant SORT_ASCENT  => 0; # (young postings first)
+use constant SORT_DESCENT => 1;
+use constant KEEP_DELETED => 1;
+use constant KILL_DELETED => 0;
+
+use base qw(Exporter);
+@Posting::_lib::EXPORT_OK = qw(
+  get_message_header get_message_body get_message_node get_body_node parse_single_thread parse_xml_file
+  hr_time short_hr_time long_hr_time
+  get_all_threads create_forum_xml_string
+  save_file
+  SORT_ASCENT   SORT_DESCENT   KEEP_DELETED   KILL_DELETED
+);

 
 # ====================================================
 # Access via XML::DOM
 
 # ====================================================
 # Access via XML::DOM


@@ -140,6 +146,26 @@ sub get_message_node ($$$)
   wantarray ? ($mnode, $tnode) : $mnode;
 }
 
   wantarray ? ($mnode, $tnode) : $mnode;
 }
 

+### sub parse_xml_file ($) #####################################################
+#
+# load the specified XML-File and create the DOM tree
+# this sub is only to avoid errors and to centralize the parse process
+#
+# Params: $file filename
+# Return: XML::DOM::Document Object (Document Node) or false
+#
+sub parse_xml_file ($) {
+  my $file = shift;
+  my $xml = eval {
+              local $SIG{__DIE__};      # CGI::Carp works unreliable ;-(
+              new XML::DOM::Parser (KeepCDATA => 1) -> parsefile ($file);
+            };
+
+  return if ($@);
+
+  $xml;
+}
+

 ###########################
 # sub parse_single_thread
 #
 ###########################
 # sub parse_single_thread
 #


@@ -273,7 +299,7 @@ sub sort_thread ($$) {
   \@smsg;
 }
 
   \@smsg;
 }
 

-### delete_messages () ##########################################################
+### delete_messages () #########################################################

 #
 # Filter out deleted messages
 #
 #
 # Filter out deleted messages
 #


@@ -318,7 +344,7 @@ sub delete_messages ($)
   return;
 }
 
   return;
 }
 

-### get_all_threads () ##########################################################
+### get_all_threads () #########################################################

 #
 # Read and Parse the main file (without any XML-module, they are too slow)
 #
 #
 # Read and Parse the main file (without any XML-module, they are too slow)
 #


@@ -440,9 +466,9 @@ sub get_all_threads ($$;$)
     $threads{$tid} = $smsg if (@$smsg);
   }
 
     $threads{$tid} = $smsg if (@$smsg);
   }
 

-  wantarray ?
-    (\%threads, $last_thread, $last_message, $dtd, \@unids)
-  : \%threads;
+  wantarray
+    ? (\%threads, $last_thread, $last_message, $dtd, \@unids)
+    : \%threads;

 }
 
 ###########################
 }
 
 ###########################