plainblack · Jan 3, 2012
diff --git a/‎docs/changelog/8.x.x.txt
+1 b/‎docs/changelog/8.x.x.txt
+1
diff --git a/‎etc/WebGUI.conf.original
-7 b/‎etc/WebGUI.conf.original
-7
diff --git a/‎lib/WebGUI/Operation/Statistics.pm
-242 b/‎lib/WebGUI/Operation/Statistics.pm
-242
diff --git a/‎lib/WebGUI/Wizard/Setup.pm
-53 b/‎lib/WebGUI/Wizard/Setup.pm
-53
diff --git a/‎lib/WebGUI/Workflow/Activity/SendWebguiStats.pm
-108 b/‎lib/WebGUI/Workflow/Activity/SendWebguiStats.pm
-108
diff --git a/‎share/upgrades/7.10.23-8.0.0/removeWebGUIStatistics.pl
+20 b/‎share/upgrades/7.10.23-8.0.0/removeWebGUIStatistics.pl
+20
@@ -2,4 +2,5 @@
  - Replaced the existing caching mechanism with memcached, which results in a 400% improvement to cache speed. See migration.txt for API changes and gotcha.txt for prereq changes.
  - Added "hot sessions" so sessions interact with the database less.
  - Added Facebook Auth and FacebookLogin macro.
+ - Removed the WebGUI statistics program and code.
 
@@ -278,13 +278,6 @@
       "url" : "^PageUrl(\"\",func=manageClipboard);",
       "title" : "^International(948,WebGUI);"
    },
-   "statistics" : {
-      "icon" : "statistics.gif",
-      "uiLevel" : 1,
-      "url" : "^PageUrl(\"\",op=viewStatistics);",
-      "title" : "^International(437,WebGUI);",
-      "groupSetting" : "groupIdAdminStatistics"
-   },
    "users" : {
       "icon" : "users.gif",
       "uiLevel" : 5,
 
@@ -22,7 +22,6 @@ sub _get_steps {
     return [qw(
         adminAccount
         companyInformation
-        siteStats
         defaultStyle
     )];
 }
@@ -296,58 +295,6 @@ sub www_companyInformationSave {
 
 #----------------------------------------------------------------------------
 
-=head2 www_siteStats ( ) 
-
-Opt-in to the global WebGUI statistics
-
-=cut
-
-sub www_siteStats {
-    my ( $self ) = @_;
-    my $session = $self->session;
-    my $form    = $session->form;
-    $session->response->setCacheControl("none");
-    my $i18n = WebGUI::International->new( $session, "WebGUI" );
-
-    my $enableForm  = $self->getForm;
-    $enableForm->addField( "hidden", name => "enableStats", value => 1 );
-    $enableForm->addField( "submit", name => 'send', value => $i18n->get( 'enable', 'Activity_SendWebguiStats' ) );
-
-    my $disableForm = $self->getForm;
-    $disableForm->addField( "hidden", name => "enableStats", value => 0 );
-    $disableForm->addField( "submit", name => 'send', value => $i18n->get( 'disable', 'Activity_SendWebguiStats' ) );
-
-    my $output = '<h1>' . $i18n->get( 'topicName', 'Activity_SendWebguiStats' ) . '</h1>';
-    $output .= ' <p>' . $i18n->get( 'why to send', 'Activity_SendWebguiStats' ) . '</p>
-         <p>' . $i18n->get( 'would you participate', 'Activity_SendWebguiStats' ) . '</p>
-        <div style="float: left">' . $enableForm->toHtml . '</div><div style="float: left">'
-        . $disableForm->toHtml
-        . '</div>'
-        . '<div style="clear: both;">&nbsp;</div>'
-        ;
-
-    return $output;
-}
-
-#----------------------------------------------------------------------------
-
-=head2 www_siteStatsSave ( ) 
-
-Opt-in to the global WebGUI statistics
-
-=cut
-
-sub www_siteStatsSave {
-    my ( $self ) = @_;
-    my $session = $self->session;
-    my $form    = $session->form;
-    use WebGUI::Operation::Statistics;
-    WebGUI::Operation::Statistics::www_enableSendWebguiStats($session) if ( $form->get("enableStats") );
-    return;
-}
-
-#----------------------------------------------------------------------------
-
 =head2 www_defaultStyle ( ) 
 
 Choose the default site style
 
@@ -0,0 +1,20 @@
+use WebGUI::Upgrade::Script;
+use File::Spec;
+use WebGUI::Paths;
+use Cwd qw(realpath);
+
+start_step "Removing WebGUI statistics workflows and code";
+
+config->deleteFromHash( 'adminConsole', 'statistics' );
+
+my $workflow = WebGUI::Workflow->new(session, 'send_webgui_statistics');
+$workflow->delete;
+##This may not be in there if it is not enabled.
+my $task = WebGUI::Workflow::Cron->new(session, 'send_webgui_statistics');
+$task && $task->delete;
+
+my $webgui_root = realpath( File::Spec->catdir( WebGUI::Paths->configBase, (File::Spec->updir) x 1 ) );
+unlink File::Spec->catfile($webgui_root, 'lib', 'WebGUI', 'Operation', 'Statistics.pm');
+unlink File::Spec->catfile($webgui_root, 'lib', 'WebGUI', 'Workflow', 'Activity', 'SendWebguiStats.pm');
+
+done;