From: ndparker <>
Date: Thu, 19 Jul 2001 15:08:04 +0000 (+0000)
Subject: now severancer will be splittet from cgi application, fo_posting.pl uses now Arc... 
X-Git-Url: https://git.p6c8.net/selfforum.git/commitdiff_plain/e4c8bdafb631e419bdfdad87b6d80e17470044c4?ds=sidebyside;hp=c199064158f7c7eabd5d6776e1da3b6cefc6b3ce

now severancer will be splittet from cgi application, fo_posting.pl uses now Arc::Starter, which runs fo_sev.pl separately
---

diff --git a/selfforum-cgi/user/fo_posting.pl b/selfforum-cgi/user/fo_posting.pl
index d2a0a8f..5046a5c 100644
--- a/selfforum-cgi/user/fo_posting.pl
+++ b/selfforum-cgi/user/fo_posting.pl
@@ -83,7 +83,7 @@ $request -> severance;
 ### Posting::Request ###########################################################
 package Posting::Request;
 
-use Arc::Archive;
+use Arc::Starter;
 use CheckRFC;
 use Encode::Plain; $Encode::Plain::utf8 = 1; # generally convert from UTF-8
 use Encode::Posting;
@@ -141,16 +141,7 @@ sub new {
 sub severance {
   my $self = shift;
 
-  my $stat = cut_tail ({
-    forumFile    => $self -> {conf} -> {forum_file_name},
-    messagePath  => $self -> {conf} -> {message_path},
-    archivePath  => $self -> {conf} -> {original} -> {files} -> {archivePath},
-    lockFile     => $self -> {conf} -> {original} -> {files} -> {sev_lock},
-    adminDefault => $self -> {conf} -> {admin},
-    cachePath    => $self -> {conf} -> {original} -> {files} -> {cachePath}
-  });
-#  die $stat->{(keys %$stat)[0]} if (%$stat);
-
+  start_severance ($self -> {conf} -> {original} -> {files} -> {sev_app});
 }
 
 ### sub response ###############################################################