Template.pm, Template/Posting.pm, Encode/Posting.pm: fixed some bugs (that produced...

[selfforum.git] / selfforum-cgi / shared / Template / Forum.pm

diff --git a/selfforum-cgi/shared/Template/Forum.pm b/selfforum-cgi/shared/Template/Forum.pm
index ab853ae1b12213aad5d68e0861af6471ac9cafb5..c03f05a236fde7657fb61e42b7122c6dec10ce93 100644 (file)
--- a/selfforum-cgi/shared/Template/Forum.pm
+++ b/selfforum-cgi/shared/Template/Forum.pm
@@ -13,8 +13,6 @@ use strict;
 
 package Template::Forum;
 
 
 package Template::Forum;
 

-use vars qw(@ISA @EXPORT);
-

 use Lock qw(:READ);
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Posting::_lib qw(get_all_threads long_hr_time);
 use Lock qw(:READ);
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Posting::_lib qw(get_all_threads long_hr_time);


@@ -26,9 +24,8 @@ use Template::_thread;
 # Funktionsexport
 # ====================================================
 
 # Funktionsexport
 # ====================================================
 

-require Exporter;
-@ISA    = qw(Exporter);
-@EXPORT = qw(print_forum_as_HTML);
+use base qw(Exporter);
+@Template::Forum::EXPORT = qw(print_forum_as_HTML);

 
 ################################
 # sub print_forum_as_HTML
 
 ################################
 # sub print_forum_as_HTML


@@ -47,6 +44,7 @@ sub print_forum_as_HTML ($$$) {
   unless ($stat = lock_file ($mainfile)) {
     if ($stat == 0) {
       violent_unlock_file ($mainfile);
   unless ($stat = lock_file ($mainfile)) {
     if ($stat == 0) {
       violent_unlock_file ($mainfile);

+      print "aha!"

       # ueberlastet
     }
 
       # ueberlastet
     }