oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 2.3.3 release

Browse source
This commit is contained in:
JT Smith 2001-11-02 02:09:00 +00:00
parent 12f9388a06
commit 73909699ff
8 changed files with 153 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Operation/Statistics.pm
View file

@ -11,6 +11,9 @@ package WebGUI::Operation::Statistics;
#-------------------------------------------------------------------
use Exporter;
use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;
use strict;
use WebGUI::International;
use WebGUI::Privilege;
@ -22,12 +25,22 @@ our @EXPORT = qw(&www_viewStatistics);
#-------------------------------------------------------------------
sub www_viewStatistics {
my ($output, $data);
my ($output, $data, $header, $userAgent, $request, $response, $version, $referer);
if (WebGUI::Privilege::isInGroup(3)) {
$userAgent = new LWP::UserAgent;
$userAgent->agent("WebGUI-Check/2.0");
$header = new HTTP::Headers;
$referer = "http://webgui.web.getversion/".$session{env}{SERVER_NAME}.$session{env}{REQUEST_URI};
chomp $referer;
$header->referer($referer);
$request = new HTTP::Request (GET => "http://www.plainblack.com/downloads/latest-version.txt", $header);
$response = $userAgent->request($request);
$version = $response->content;
chomp $version;
$output .= '<a href="'.$session{page}{url}.'?op=viewHelp&hid=12&namespace=WebGUI"><img src="'.$session{setting}{lib}.'/help.gif" border="0" align="right"></a>';
$output .= '<h1>'.WebGUI::International::get(144).'</h1>';
$output .= '<table>';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(145).'</td><td class="tableData">'.$WebGUI::VERSION.'</td></tr>';
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(145).'</td><td class="tableData">'.$WebGUI::VERSION.' ('.WebGUI::International::get(349).': '.$version.')</td></tr>';
($data) = WebGUI::SQL->quickArray("select count(*) from session",$session{dbh});
$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(146).'</td><td class="tableData">'.$data.'</td></tr>';
($data) = WebGUI::SQL->quickArray("select count(*)+1 from page where parentId>25",$session{dbh});