summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-06-10 06:23:53 +0000
committerPeter Palfrader <peter@palfrader.org>2002-06-10 06:23:53 +0000
commita3282425a8f4f55e3bf5a5285e0fc49fd44af91d (patch)
tree73746e19113942f50b749b740139676cb50111a2
parent95d34daf9bcdc43923190cc22409f54f251e16db (diff)
Disabling commit while processing incoming mail
-rw-r--r--Echolot/Mailin.pm4
1 files changed, 3 insertions, 1 deletions
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;