Lock.pm: several style changes, comments added and fixed a small bug

[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 f42ee992767c4e86a508a919c2d20d9081f4cd38..0f3f015d1050431e3f0fdead3b69242331aef502 100644 (file)
--- a/selfforum-cgi/shared/Posting/_lib.pm
+++ b/selfforum-cgi/shared/Posting/_lib.pm
@@ -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 parse_xml_file
-                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