From e4c8bdafb631e419bdfdad87b6d80e17470044c4 Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Thu, 19 Jul 2001 15:08:04 +0000
Subject: [PATCH] now severancer will be splittet from cgi application,
 fo_posting.pl uses now Arc::Starter, which runs fo_sev.pl separately

---
 selfforum-cgi/user/fo_posting.pl | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

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 ###############################################################
-- 
2.34.1