From 96b1f91f371df4495f193d0360010fce07e231fb Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 14 Feb 2003 05:00:45 +0000
Subject: [PATCH] WebGUI now adds a warning to the log when a file upload is
 too big, and gracefully recovers from the problem.

---
 lib/WebGUI/Attachment.pm | 1 +
 lib/WebGUI/Session.pm    | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/lib/WebGUI/Attachment.pm b/lib/WebGUI/Attachment.pm
index 8ba0ce198..0eb0254be 100644
--- a/lib/WebGUI/Attachment.pm
+++ b/lib/WebGUI/Attachment.pm
@@ -514,6 +514,7 @@ If a web image (gif, png, jpg, jpeg) is being uploaded it will be resized if it
 
 sub save {
 	my ($type, $file, $filename, $bytesread, $buffer, $urlizedFilename, $path);
+	return "" if ($session{header}{status} =~ /^413/);
 	$filename = $session{cgi}->upload($_[1]);
 	if (defined $filename) {
 		if ($filename =~ /([^\/\\]+)$/) {
diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 686fbba69..0227e6726 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -439,6 +439,12 @@ sub open {
 	### CGI object
 	$CGI::POST_MAX=1024 * $session{setting}{maxAttachmentSize};
 	$session{cgi} = CGI->new();
+        if ($session{cgi}->cgi_error =~ /^413/) {
+		$session{header}{status} = $session{cgi}->cgi_error;
+		WebGUI::ErrorHandler::warn("File upload too big. May need to adjust Max File Size setting.");
+		$CGI::POST_MAX=-1;
+		$session{cgi} = CGI->new();
+        }
 	###----------------------------
 	### header variables
 	$session{header}{mimetype} = 'text/html';