From a3282425a8f4f55e3bf5a5285e0fc49fd44af91d Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Mon, 10 Jun 2002 06:23:53 +0000
Subject: Disabling commit while processing incoming mail

---
 Echolot/Mailin.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Echolot')

diff --git a/Echolot/Mailin.pm b/Echolot/Mailin.pm
index 411433a..ffdefcc 100644
--- a/Echolot/Mailin.pm
+++ b/Echolot/Mailin.pm
@@ -1,7 +1,7 @@
 package Echolot::Mailin;
 
 # (c) 2002 Peter Palfrader <peter@palfrader.org>
-# $Id: Mailin.pm,v 1.1 2002/06/05 04:05:40 weasel Exp $
+# $Id: Mailin.pm,v 1.2 2002/06/10 06:23:53 weasel Exp $
 #
 
 =pod
@@ -101,6 +101,7 @@ sub process() {
 		closedir(DIR) or
 			cluck("Cannot close direcotry '$mailindir/$sub': $!");
 	};
+	Echolot::Globals::get()->{'storage'}->delay_commit();
 	for my $file (@files) {
 		$file =~ /^(.*)$/s or
 			croak("I really should match here. ('$file').");
@@ -113,6 +114,7 @@ sub process() {
 				cluck("Sane moving of $mailindir/$file to $targetdir/new/$name failed");
 		};
 	};
+	Echolot::Globals::get()->{'storage'}->enable_commit();
 };
 
 1;
-- 
cgit v1.2.3