added version checks and some comments, removed Posting::_lib::create_message_xml...

[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 b7d78935aa677cc2edf60a8abcef039647c616e6..b7338f657a940b61ea0942612054a7d1c346361e 100644 (file)
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -11,7 +11,11 @@ package Posting::Write;
 ################################################################################
 
 use strict;
 ################################################################################
 
 use strict;

-use vars qw(%error @EXPORT);
+use vars qw(
+  %error
+  @EXPORT
+  $VERSION
+);

 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;
 
 use Encode::Plain; $Encode::Plain::utf8 = 1;
 use Encode::Posting;


@@ -39,6 +43,12 @@ use XML::DOM;
   noParent    => '4 could not find parent message'
 );
 
   noParent    => '4 could not find parent message'
 );
 

+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+

 ################################################################################
 #
 # Export
 ################################################################################
 #
 # Export


@@ -78,7 +88,8 @@ sub write_new_thread ($) {
     body     => encoded_body(
       \($param -> {body}),
       { quoteChars => $param -> {quoteChars},
     body     => encoded_body(
       \($param -> {body}),
       { quoteChars => $param -> {quoteChars},

-        messages   => $param -> {messages}
+        messages   => $param -> {messages},
+        base_uri   => $param -> {base_uri}

       }
     ),
     time     => $param -> {time},
       }
     ),
     time     => $param -> {time},


@@ -116,7 +127,7 @@ sub write_new_thread ($) {
 
   save_file ($param -> {forumFile}, $forum) or return $error{forumWrite};
   release_file ($param -> {messagePath}.$tid.'.xml');
 
   save_file ($param -> {forumFile}, $forum) or return $error{forumWrite};
   release_file ($param -> {messagePath}.$tid.'.xml');

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

 }
 
 ### sub write_reply_posting ($) ################################################
 }
 
 ### sub write_reply_posting ($) ################################################


@@ -179,7 +190,8 @@ sub write_reply_posting ($) {
         ${encoded_body(
           \($param -> {body}),
           { quoteChars => $param -> {quoteChars},
         ${encoded_body(
           \($param -> {body}),
           { quoteChars => $param -> {quoteChars},

-            messages   => $param -> {messages}
+            messages   => $param -> {messages},
+            base_uri   => $param -> {base_uri}

           }
         )}
       )
           }
         )}
       )


@@ -226,17 +238,17 @@ sub write_reply_posting ($) {
       $param -> {parsedThreads},
       { dtd         => $param -> {dtd},
         lastMessage => $mid,
       $param -> {parsedThreads},
       { dtd         => $param -> {dtd},
         lastMessage => $mid,

-        lastThread  => $tid
+        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, $tid);

 }
 
 }
 

-# keeping 'require' happy
+# keep 'require' happy

 #
 1;
 
 #
 1;