Skip to content
Permalink
Browse files

Dump WebGUI Statistics.

  • Loading branch information...
perlDreamer committed Jan 3, 2012
1 parent d31137c commit d3b574da130cda9df30895f0c1c2ce892b5616a3
@@ -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,

This file was deleted.

Oops, something went wrong.
@@ -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
Oops, something went wrong.

0 comments on commit d3b574d

Please sign in to comment.
You can’t perform that action at this time.