added a warning about passive profiling

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;