From 9feb152a52ec8b28231fdbb2590e0544e683d956 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Sat, 9 Feb 2008 02:07:53 +0000
Subject: Actually implement FILE_MAX_SIZE.

---
 perl/Wallet/Object/File.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl/Wallet/Object/File.pm')

diff --git a/perl/Wallet/Object/File.pm b/perl/Wallet/Object/File.pm
index 2b18bb2..b4e23f8 100644
--- a/perl/Wallet/Object/File.pm
+++ b/perl/Wallet/Object/File.pm
@@ -104,6 +104,13 @@ sub store {
         $self->error ("cannot store $id: object is locked");
         return;
     }
+    if ($Wallet::Config::FILE_MAX_SIZE) {
+        my $max = $Wallet::Config::FILE_MAX_SIZE;
+        if (length ($data) > $max) {
+            $self->error ("data exceeds maximum of $max bytes");
+            return;
+        }
+    }
     my $path = $self->file_path;
     return unless $path;
     unless (open (FILE, '>', $path)) {
-- 
cgit v1.2.3