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 72a5b256bf1601b3f0245e35885f44ebba74101f..7e6ba975b9d9fe31162be01290f9ffde2157383b 100644 (file)
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -1,17 +1,17 @@
-# Posting/Write.pm
+package Posting::Write;

 
 

-# ====================================================
-# Autor: n.d.p. / 2001-01-29
-# lm   : n.d.p. / 2001-02-25
-# ====================================================
-# 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(@EXPORT);
 use base qw(Exporter);
 
 use vars qw(@EXPORT);
 use base qw(Exporter);
 


@@ -165,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);
+  }

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


@@ -217,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;
 }


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

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