Skip to content

Commit

Permalink
Dump WebGUI Statistics.
Browse files Browse the repository at this point in the history
  • Loading branch information
perlDreamer committed Jan 3, 2012
1 parent d31137c commit d3b574d
Show file tree
Hide file tree
Showing 6 changed files with 21 additions and 410 deletions.
1 change: 1 addition & 0 deletions docs/changelog/8.x.x.txt
Expand Up @@ -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.

7 changes: 0 additions & 7 deletions etc/WebGUI.conf.original
Expand Up @@ -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,
Expand Down
242 changes: 0 additions & 242 deletions lib/WebGUI/Operation/Statistics.pm

This file was deleted.

53 changes: 0 additions & 53 deletions lib/WebGUI/Wizard/Setup.pm
Expand Up @@ -22,7 +22,6 @@ sub _get_steps {
return [qw(
adminAccount
companyInformation
siteStats
defaultStyle
)];
}
Expand Down Expand Up @@ -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
Expand Down

0 comments on commit d3b574d

Please sign in to comment.