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 5441830b7cc85f478e04882773f4d4fe0682b527..810f33443a5244665c16c755110201925c3e21da 100644 (file)
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -21,12 +21,18 @@ use XML::DOM;
 # Export
 # ====================================================
 
+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
 );
 
 # ====================================================
@@ -151,7 +157,7 @@ sub get_message_node ($$$)
 sub parse_xml_file ($) {
   my $file = shift;
   my $xml = eval {
-              local $SIG{__DIE__};
+              local $SIG{__DIE__};      # CGI::Carp works unreliable ;-(
               new XML::DOM::Parser (KeepCDATA => 1) -> parsefile ($file);
             };