Dump WebGUI Statistics.

This commit is contained in:
Colin Kuskie 2012-01-03 11:29:00 -08:00
parent d31137c881
commit d3b574da13
6 changed files with 21 additions and 410 deletions

View file

@ -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;