From 836adc1c8f52f80d218406946a1fd61b1b87e4b6 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 17 Oct 2005 14:30:46 +0000
Subject: [PATCH] fixed [ 1323272 ] Site modifications using GET in stead of
 POST

---
 docs/changelog/6.x.x.txt | 1 +
 lib/WebGUI.pm            | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index f51928776..b36914069 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -41,6 +41,7 @@
  - fix [ 1327237 ] 6.7.5 Shortcuts
  - fix [ 1328105 ] Pages should contain "no-cache" tags
  - fix [ 1216810 ] anonymous registration errors persist
+ - fix [ 1323272 ] Site modifications using GET in stead of POST
 
 
 6.7.6
diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm
index 2d9a0146f..40c38f3e5 100644
--- a/lib/WebGUI.pm
+++ b/lib/WebGUI.pm
@@ -84,6 +84,12 @@ sub page {
 	my $assetUrl = shift;
 	my $fastcgi = shift;
 	WebGUI::Session::open($webguiRoot,$configFile,$fastcgi) unless ($useExistingSession);
+	if ($session{env}{HTTP_X_MOZ} eq "prefetch") { # browser prefetch is a bad thing
+		WebGUI::HTTP::setStatus("403","We don't allow prefetch, because it increases bandwidth, hurts stats, and can break web sites.");
+		my $output = WebGUI::HTTP::getHeader();
+		WebGUI::Session::close();
+		return $output;
+	}
 	return _upgrading($webguiRoot) if ($session{setting}{specialState} eq "upgrading");
 	return _setup() if ($session{setting}{specialState} eq "init");
 	my $output = _processOperations();