package WebGUI::Operation::Statistics;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------

use Exporter;
use HTTP::Request;
use HTTP::Headers;
use LWP::UserAgent;
use strict;
use WebGUI::DateTime;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::SQL;

our @ISA = qw(Exporter);
our @EXPORT = qw(&www_viewPageReport &www_viewStatistics &www_viewTrafficReport &www_killSession 
	&www_viewLoginHistory &www_viewActiveSessions);

#-------------------------------------------------------------------
sub www_killSession {
        if (WebGUI::Privilege::isInGroup(3)) {
		WebGUI::Session::end($session{form}{sid});
		return www_viewActiveSessions();
        } else {
                return WebGUI::Privilege::adminOnly();
	}
}

#-------------------------------------------------------------------
sub www_viewActiveSessions {
	my ($output, $p, @row, $i, $sth, %data);
	tie %data, 'Tie::CPHash';
        if (WebGUI::Privilege::isInGroup(3)) {
                $output = '<h1>'.WebGUI::International::get(425).'</h1>';
		$sth = WebGUI::SQL->read("select * from users,userSession where users.userId=userSession.userId");
		while (%data = $sth->hash) {
                        $row[$i] = '<tr class="tableData"><td>'.$data{username}.' ('.$data{userId}.')</td>';
                        $row[$i] .= '<td>'.$data{sessionId}.'</td>';
                        $row[$i] .= '<td>'.epochToHuman($data{expires},"%H:%n%p %M/%D/%y").'</td>';
                        $row[$i] .= '<td>'.epochToHuman($data{lastPageView},"%H:%n%p %M/%D/%y").'</td>';
                        $row[$i] .= '<td>'.$data{lastIP}.'</td>';
			$row[$i] .= '<td align="center">'.deleteIcon("op=killSession&sid=$data{sessionId}").'</td></tr>';
                        $i++;
		}
		$sth->finish;
		$p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewActiveSessions'),\@row);
                $output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
                $output .= '<tr class="tableHeader"><td>'.WebGUI::International::get(428).'</td>';
                $output .= '<td>'.WebGUI::International::get(435).'</td>';
                $output .= '<td>'.WebGUI::International::get(432).'</td>';
                $output .= '<td>'.WebGUI::International::get(430).'</td>';
                $output .= '<td>'.WebGUI::International::get(431).'</td>';
		$output .= '<td>'.WebGUI::International::get(436).'</td></tr>';
                $output .= $p->getPage($session{form}{pn});
                $output .= '</table>';
                $output .= $p->getBarTraditional($session{form}{pn});
        } else {
                $output = WebGUI::Privilege::adminOnly();
	}
	return $output;
}

#-------------------------------------------------------------------
sub www_viewLoginHistory {
	my ($output, $p, @row, $i, $sth, %data);
	tie %data, 'Tie::CPHash';
        if (WebGUI::Privilege::isInGroup(3)) {
                $output = '<h1>'.WebGUI::International::get(426).'</h1>';
		$sth = WebGUI::SQL->read("select * from users,userLoginLog where users.userId=userLoginLog.userId order by userLoginLog.timeStamp desc");	
		while (%data = $sth->hash) {
			$data{username} = 'unknown user' if ($data{userId} == 0);
			$row[$i] = '<tr class="tableData"><td>'.$data{username}.' ('.$data{userId}.')</td>';
			$row[$i] .= '<td>'.$data{status}.'</td>';
			$row[$i] .= '<td>'.epochToHuman($data{timeStamp},"%H:%n%p %M/%D/%y").'</td>';
			$row[$i] .= '<td>'.$data{ipAddress}.'</td>';
			$row[$i] .= '<td>'.$data{userAgent}.'</td></tr>';
			$i++;
		}
		$sth->finish;
		$p = WebGUI::Paginator->new(WebGUI::URL::page('op=viewLoginHistory'),\@row);
		$output .= '<table border=1 cellpadding=5 cellspacing=0 align="center">';
		$output .= '<tr class="tableHeader"><td>'.WebGUI::International::get(428).'</td>';
		$output .= '<td>'.WebGUI::International::get(434).'</td>';
		$output .= '<td>'.WebGUI::International::get(429).'</td>';
		$output .= '<td>'.WebGUI::International::get(431).'</td>';
		$output .= '<td>'.WebGUI::International::get(433).'</td></tr>';
                $output .= $p->getPage($session{form}{pn});
                $output .= '</table>';
                $output .= $p->getBar($session{form}{pn});
        } else {
                $output = WebGUI::Privilege::adminOnly();
	}
	return $output;
}

#-------------------------------------------------------------------
sub www_viewPageReport {
        return WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
	my ($output, $count, $user, $data, $sth, $page, $pageId);
	$sth = WebGUI::SQL->read("select pageTitle,pageId,userId,ipAddress,wobjectId from pageStatistics order by pageTitle,userId,ipAddress");
	while ($data = $sth->hashRef) {
		if ($data->{userId} == 1) {
			$user = $data->{ipAddress};
		} else {
			$user = $data->{userId};
		}
		$page->{$data->{pageId}}{pageTitle} = $data->{pageTitle};
		$page->{$data->{pageId}}{users}{$user}++;
		$page->{$data->{pageId}}{views}++;
		$page->{$data->{pageId}}{interact}++ if ($data->{wobjectId});
	}
	$sth->finish;
	$output = '<h1>Page Statistics</h1>';
	$output .= '<table><tr><td>Page Title</td><td>Page Views</td><td>Unique Visitors</td><td>Wobject Interactions</td></tr>';
	foreach $pageId (keys %{$page}) {
		$output .= '<tr><td>'.$page->{$pageId}{pageTitle}.'</td>';
		$output .= '<td>'.$page->{$pageId}{views}.'</td>';
		$count = 0;
		foreach (keys %{$page->{$pageId}{users}}) {
			$count++;
		}
		$output .= '<td>'.$count.'</td>';
		$output .= '<td>'.$page->{$pageId}{interact}.'</td></tr>';
	}
	$output .= '</table>';
	return $output;
}

#-------------------------------------------------------------------
sub www_viewStatistics {
        my ($output, $data, $header, $userAgent, $request, $response, $version, $referer);
        if (WebGUI::Privilege::isInGroup(3)) {
		$userAgent = new LWP::UserAgent;
		$userAgent->agent("WebGUI-Check/2.0");
		$userAgent->timeout(10);
		$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 .= helpIcon(12);
                $output .= '<h1>'.WebGUI::International::get(437).'</h1>';
		$output .= '<table>';
		$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 userSession");
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(146).'</td><td class="tableData">'.$data.' (<a href="'.WebGUI::URL::page("op=viewActiveSessions").'">'.WebGUI::International::get(423).'</a> / <a href="'.WebGUI::URL::page("op=viewLoginHistory").'">'.WebGUI::International::get(424).'</a>)</td></tr>';
		($data) = WebGUI::SQL->quickArray("select count(*) from page where parentId>25");
		$data++;
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(147).'</td><td class="tableData">'.$data.'</td></tr>';
		($data) = WebGUI::SQL->quickArray("select count(*) from wobject");
		$data--;
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(148).'</td><td class="tableData">'.$data.'</td></tr>';
		($data) = WebGUI::SQL->quickArray("select count(*) from style where styleId>25");
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(427).'</td><td class="tableData">'.$data.'</td></tr>';
		($data) = WebGUI::SQL->quickArray("select count(*) from users where userId>25");
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(149).'</td><td class="tableData">'.$data.'</td></tr>';
		($data) = WebGUI::SQL->quickArray("select count(*) from groups where groupId>25");
		$output .= '<tr><td class="tableHeader">'.WebGUI::International::get(89).'</td><td class="tableData">'.$data.'</td></tr>';
		$output .= '</table>';
        } else {
                $output = WebGUI::Privilege::adminOnly();
        }
        return $output;
}

#-------------------------------------------------------------------
sub www_viewTrafficReport {
	return WebGUI::Privilege::adminOnly() unless WebGUI::Privilege::isInGroup(3);
	my ($output, $data);
	$output = '<h1>Pages</h1>';
	($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-2592000));
	$output .= "Last 30 days: ".$data."<br>";
	($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-604800));
	$output .= "Last 7 days: ".$data."<br>";
        ($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-86400));
        $output .= "Last 24 hours: ".$data."<br>";
        $output .= '<h1>Visitors</h1>';
        ($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-2592000)
		." group by ipAddress,userId");
        $output .= "Last 30 days: ".$data."<br>";
        ($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-604800)
		." group by ipAddress,userId");
        $output .= "Last 7 days: ".$data."<br>";
        ($data) = WebGUI::SQL->quickArray("select count(*) from pageStatistics where dateStamp>=".(time()-86400)
		." group by ipAddress,userId");
        $output .= "Last 24 hours: ".$data."<br>";
	return $output;
}

1;