no, it's not ready

[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..48941d1ab8cf9b62c6cc51b711abbeb3826c671f 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-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;
 
-package Posting::Write;
-
-use vars qw(@EXPORT);
 use base qw(Exporter);
 
 # ====================================================
 # Funktionsexport
 # ====================================================
 
-@EXPORT = qw(write_posting);
+@Posting::Write::EXPORT = qw(write_posting);
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;
@@ -165,9 +164,11 @@ sub write_posting ($) {
                                            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 +218,7 @@ sub create_message ($$) {
     $header -> appendChild ($category);
     $header -> appendChild ($subject);
     $header -> appendChild ($date);
-  $message -> appendChild ($header);
+    $message -> appendChild ($header);
 
   $message;
 }