updated Posting::_lib, parses now the new XML format.

[selfforum.git] / selfforum-cgi / shared / Posting / Write.pm

diff --git a/selfforum-cgi/shared/Posting/Write.pm b/selfforum-cgi/shared/Posting/Write.pm
index d2444df8d180a920299f0f626b4c37e9c1981880..7e6ba975b9d9fe31162be01290f9ffde2157383b 100644 (file)
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -1,25 +1,24 @@
-# Posting/Write.pm
+package Posting::Write;

 
 

-# ====================================================
-# Autor: n.d.p. / 2001-01-29
-# lm   : n.d.p. / 2001-01-29
-# ====================================================
-# Funktion:
-#      Speicherung eines Postings
-# ====================================================
+################################################################################
+#                                                                              #
+# File:        shared/Posting/Write.pm                                         #
+#                                                                              #
+# Authors:     André Malo <nd@o3media.de>, 2001-02-25                          #
+#                                                                              #
+# Description: Save a posting                                                  #
+#                                                                              #
+################################################################################

 
 use strict;
 
 
 use strict;
 

-package Posting::Write;
-
-use vars qw(@ISA @EXPORT);
+use vars qw(@EXPORT);
+use base qw(Exporter);

 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 

-require Exporter;
-@ISA    = qw(Exporter);

 @EXPORT = qw(write_posting);
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 @EXPORT = qw(write_posting);
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;


@@ -166,9 +165,11 @@ sub write_posting ($) {
                                            lastMessage => $mid,
                                            lastThread  => 't'.$param -> {lastThread}});
 
                                            lastMessage => $mid,
                                            lastThread  => 't'.$param -> {lastThread}});
 

-      save_file ($param -> {forumFile}, $forum) or return $error{forumWrite};}
+      save_file ($param -> {forumFile}, $forum) or return $error{forumWrite};
+    }

 
 

-  return (0, $thread, $mid);}
+    return (0, $thread, $mid);
+  }

 }
 
 # ====================================================
 }
 
 # ====================================================


@@ -218,7 +219,7 @@ sub create_message ($$) {
     $header -> appendChild ($category);
     $header -> appendChild ($subject);
     $header -> appendChild ($date);
     $header -> appendChild ($category);
     $header -> appendChild ($subject);
     $header -> appendChild ($date);

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

 
   $message;
 }
 
   $message;
 }


@@ -277,4 +278,4 @@ sub create_new_thread ($) {
 
 # ====================================================
 # end of Posting::Write
 
 # ====================================================
 # end of Posting::Write

-# ====================================================
\ No newline at end of file
+# ====================================================