added a warning about passive profiling

docs/changelog/6.x.x.txt

@@ -1,3 +1,13 @@
+6.2.5
+ - Added missing upgrade file. This caused no harm to those that upgraded
+   without it.
+ - WebGUI::HTTP::setRedirect now also adds a meta redirect in case the web
+   server does not support 302 redirects, or the content is being cached out
+   to static files.
+ - Added a warning to the Passive Profiling feature that it may be illegal to
+   use that feature in some countries.
+
+
 6.2.4
  - Changed text processor to convert HTML tags into text rather than
    discarding them.

docs/previousVersion.sql

@@ -3093,7 +3093,7 @@ CREATE TABLE webguiVersion (
 --
 
 
-INSERT INTO webguiVersion VALUES ('6.2.3','initial install',unix_timestamp());
+INSERT INTO webguiVersion VALUES ('6.2.4','initial install',unix_timestamp());
 
 --
 -- Table structure for table `wobject`

docs/upgrades/upgrade_6.2.3-6.2.4.sql

@@ -0,0 +1,3 @@
+insert into webguiVersion values ('6.2.4','upgrade',unix_timestamp());
+
+

docs/upgrades/upgrade_6.2.4-6.2.5.sql

@@ -0,0 +1,3 @@
+insert into webguiVersion values ('6.2.5','upgrade',unix_timestamp());
+
+

lib/WebGUI.pm

@@ -1,5 +1,5 @@
 package WebGUI;
-our $VERSION = "6.2.4";
+our $VERSION = "6.2.5";
 our $STATUS = "beta";
 
 #-------------------------------------------------------------------

lib/WebGUI/HTTP.pm

@@ -18,6 +18,7 @@ package WebGUI::HTTP;
 use strict;
 use WebGUI::International;
 use WebGUI::Session;
+use WebGUI::Style;
 
 =head1 NAME
 
@@ -234,6 +235,7 @@ The URL to redirect to.
 sub setRedirect {
 	$session{http}{location} = shift;
 	setStatus("302", "Redirect");
+	WebGUI::Style::setMeta({"http-equiv"=>"refresh",content=>"0,".$session{http}{location}});
 }
 
 

lib/WebGUI/Operation/MetaData.pm

@@ -175,6 +175,7 @@ sub www_manageMetaData {
 		-name=>"passiveProfilingEnabled",
                 -label=>WebGUI::International::get("Enable passive profiling ?", 'MetaData'),
                 -value=>$session{setting}{passiveProfilingEnabled},
+		-extras=>' onChange="alert(\''.WebGUI::International::get("Illegal Warning","MetaData").'\')" '
         );
 
 	$f->submit();

lib/WebGUI/i18n/English/MetaData.pm

@@ -71,6 +71,11 @@ our $I18N = {
 		lastUpdated => 1089039511
 	},
 
+	'Illegal Warning' => {
+		message => q|Enabling this feature is illegal in some countries, like Australia. In addition, some countries require you to add a warning to your site if you use this feature. Consult your local authorities for local laws. Plain Black Corporation is not responsible for your illegal activities, regardless of ignorance or malace.|,
+		lastUpdated => 1089039511
+	},
+
 };
 
 1;