diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-06-10 06:23:53 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-06-10 06:23:53 +0000 |
| commit | a3282425a8f4f55e3bf5a5285e0fc49fd44af91d (patch) | |
| tree | 73746e19113942f50b749b740139676cb50111a2 | |
| parent | 95d34daf9bcdc43923190cc22409f54f251e16db (diff) | |
Disabling commit while processing incoming mail
| -rw-r--r-- | Echolot/Mailin.pm | 4 |
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; |