#!/usr/bin/perl

# Deklarasjon av diverse viktigheter :)

require strict;
require '/var/www-includes/db.inc';
require '/var/www-includes/common.inc';
require CGI;
my $query = CGI::new();
use Benchmark;
use Time::HiRes;
use CGI::Carp qw/fatalsToBrowser/;
my $section = $query->param('section');
my $subsection = $query->param('subsection');
my $limit = $query->param('limit');
my $time0 = new Benchmark;
my $id = $query->param('id');
my $cnt = 0;
my $visitor_ip = $ENV{'REMOTE_ADDR'};
my $current_time = localtime();
my $Script = $ENV{'SCRIPT_NAME'};
my $CSS = '/inc/xhtml-test.css';
my $title = 'Smokepit.net:/';

# Start sidekode..

if(&db_connect('webpage'))
{
	&CheckQuery;
	&PrintPage;
} # if()

sub EndHTML
{
	print '<hr/>';
	my $time1 = new Benchmark;
	print '<p>',"Processing time: ".timestr(timediff($time1,$time0)),'</p>',"\n";
	print '<p>','Local time: ',$current_time,' - ','Uptime: ',&gettime(`cat /proc/uptime | awk '{print \$1}'`),'</p>';
	print '<p>','Your IP: ',$visitor_ip,' - ',"\n";
	&LagLink('/inc/index.txt','PerlSource');
	print '</p>',"\n",'<p>',"\&#169;",'Daniel Lysfjord</p>',"\n";
	
	print '</div>',"\n";
	
	print '</body>',"\n";
        print '<!-- //Content -->',"\n\n";
	
	print '</html>',"\n";
}

sub PrintPage
{
	&StartHTML($title,$section,$subsection,$CSS);
	print '<!-- Navigataion -->',"\n\n";
	unless(&GetNav)
	{
		&error('Ooooops.. Something wicked happened when trying to get the menu.');
	} # unless()
	print '<!-- //Navigation -->',"\n\n";

        unless($section eq 'news')
	{
		print '<!-- Latest News -->',"\n\n";
		unless(&LatestNews)
		{
			&error('Could not get the latest news.');
		} # unless()
		print '<!-- //Latest News -->',"\n\n";
	} # unless()

	print '<!-- Main -->',"\n\n";
	print '<div id="main">',"\n";
	unless(&$section)
	{
		&error('Execution of section '.$section.'failed.');
	} # unless()

	print '<!-- //Main -->',"\n\n";
	&EndHTML;
} # sub PrintPage()

sub GetNav
{
	print '<div id="menu">',"\n",'<h1>';
	&LagLink($Script,'Main');
	print '</h1>',"\n";
	&db
("
SELECT
	name,
	link
FROM
	links
WHERE
	section = \"menu\"
ORDER BY
	id
");

	$numFields = $sth->{'NUM_OF_FIELDS'};

	while(my $ref = $sth->fetchrow_hashref)
	{
		print '<h1>';
		&LagLink($$ref{'link'},$$ref{'name'});
		print '</h1>',"\n";
	} # while()

	print '<hr/>',"\n",'<p>';
	&LagLink('http://www.mysql.org/','<img src="/pics/powered-by-mysql-88x31.png" alt="Powered by MySQL." height="31" width="88" />');	
	print '</p>',"\n";

#	print '<p>','<a href="http://httpd.apache.org/">',"\n";
#	print '<img src="/pics/apache_pb.png" alt="Powered By Apache." height="32" width="259" />',"\n";
#	print '</a>','</p>',"\n";

        print '<p>';
	&LagLink('http://www.debian.org/','<img src="/pics/debianlogo.png" alt="Powered By Debian." height="30" width="88" />');
	print '</p>',"\n";

        print '<p>',"\n";
	&LagLink('http://validator.w3.org/check/referer','<img src="/pics/valid-xhtml10.png" alt="Valid XHTML 1.0 Strict." height="31" width="88" />');	
	print '</p>',"\n";

        print '<p>';
	&LagLink('http://jigsaw.w3.org/css-validator/check/referer','<img src="/pics/valid-css.gif" alt="Valid CSS2." height="31" width="88" />');
	print '</p>',"\n",'</div>',"\n";
	return 1;
} # sub GetNav()

sub main
{
	print '<h2>Welcome to Smokepit.net</h2>',"\n";
	&db
("
SELECT
	content
FROM
	content
WHERE
	section = \"main\"
ORDER BY
	date,
	time
");

	while(my $ref = $sth->fetchrow_hashref)
	{
		print $$ref{'content'};
		print "\n";
	} # while()
	print '<p class="center">-=';
	&LagLink('?section=people&amp;id=1','Daniel Lysfjord');
	print '=-</p>',"\n";
	
	return(1);
} # sub main()

sub CheckQuery
{
	unless($section)
	{
		$section = 'main';
	} # unless()
	unless($limit)
	{
		$limit = "3";
	} # unless()
	unless($subsection)
	{
		$subsection = '';
	} # unless()
} # sub CheckQuery

sub LatestNews
{
	&db
("
SELECT
	date,
	time,
	section,
	content
FROM
	content
WHERE
	section = \"news\" OR
	section = \"syslog\"
ORDER BY
	date DESC,
	time DESC 
LIMIT
	3
");
	print '<div id="latestnews">',"\n",'<h2>Latest News:</h2>',"\n";

	while(my $ref = $sth->fetchrow_hashref)
	{
		print '<h3>',$$ref{'date'},'/',$$ref{'time'},'</h3>',"\n",'<p>',$$ref{'content'},'</p>',"\n";
	} # while()
	print '<hr/>',"\n",'<p>',"\n",'Read all from :','</p>',"\n",'<p>',"\n";
	&LagLink('?section=news&amp;limit=999&amp;subsection=news','news');
	print ' - ',"\n";
	&LagLink('?section=news&amp;limit=999&amp;subsection=syslog','syslog');
	print '</p>',"\n",'</div>',"\n";
	return(1);

} # sub LatestNews

sub news
{
	&db
("
SELECT
	date,
	time,
	section,
	content
FROM
	content
WHERE
	section = \"$subsection\"
ORDER BY
	date DESC,
	time DESC
LIMIT
	$limit
");

	print '<h2>',"\U$subsection",':','</h2>',"\n";

	while(my $ref = $sth->fetchrow_hashref)
	{
		if($$ref{'date'})
		{
			print '<h3>',$$ref{'date'},'/',$$ref{'time'},' CEST:</h3>',"\n";
		} # if()

		print '<p>',$$ref{'content'},'</p>',"\n";
	} # while()
	return(1);
} # sub news()

sub archives {

	&db
("
SELECT DISTINCT
	section
FROM
	content
WHERE
	section != \"main\"
");
	while(my $ref = $sth->fetchrow_hashref) {

		print '<p>';
		&LagLink('?section=news&amp;subsection='.$$ref{'section'}.'&amp;limit=999',$$ref{'section'}.'archive');
		print '</p>',"\n";

	} # while()
	
	return(1);

} # sub archives()

sub irc {

	unless($subsection) {

		$subsection = "main";
	
	} # unless()

	&db
("
SELECT
	content
FROM
	irc
WHERE
	section = \"$subsection\"
");
	while(my $ref = $sth->fetchrow_hashref) {
	
		print $$ref{'content'};
		print "\n";

	} # while()

	return(1);

} # sub irc()

sub sysinfo
{
	if($subsection eq 'services')
	{
		&db
("
SELECT
        services.Program        AS programname,
	services.port           AS portnumber,
	services.name           AS servicename,
	services.machineid      AS machineid,
	machines.name           AS machinename
FROM
	services,
	machines
WHERE
	services.machineid      = machines.id
ORDER BY
	port
");
		print '<h2>';
		print 'Externally available services :';
		print '</h2>';
		print "\n";

		while(my $ref = $sth->fetchrow_hashref)
		{
			my $cnt = 0;
			print '<p>','Port : ';
			print $$ref{'portnumber'};
			print '(';
			print $$ref{'programname'};
			print ')',', Machine : ';
			&LagLink('?section=sysinfo&amp;subsection=machines&amp;id='.$$ref{'machineid'},$$ref{'machinename'});
			print '</p>',"\n";
		} # while()
		return(1);
	} # if()

	if($subsection eq "machines")
	{
		&db
("
SELECT
	id,
	name,
	description
FROM
	machines
ORDER BY
	name
");
		print '<h2>';
		print 'Machines here at smokepit :';
		print '</h2>';
		print "\n";

		while(my $ref = $sth->fetchrow_hashref)
		{
			print '<p>';
			&LagLink('?section=sysinfo&amp;subsection=machines&amp;id='.$$ref{'id'},$$ref{'name'});
			print ': ';
			print $$ref{'description'};
			print '</p>';
			print "\n";
		} # while()

		if($id)
		{
			&db
("
SELECT
	name,
	cpu,
	ram,
	nic,
	controllers,
	disks,
	img
FROM
	machines
WHERE
	id = \"$id\"
");
			print "\n",'<hr/>';
			while(my $ref2 = $sth -> fetchrow_hashref)
			{
			
				print '<p><b>';
				print 'Name:';
				print '</b></p>';
				print '<blockquote><p>';
				print "\n";
				print $$ref2{'name'};
				print "\n";
				print '</p></blockquote>';
				print "\n";
				
				if(defined($$ref2{'cpu'}))
				{
					print '<p><b>';
					print 'CPU:';
					print '</b></p>';
					print '<blockquote><p>';
					print "\n";
					print $$ref2{'cpu'};
					print "\n";
					print '</p></blockquote>';
					print "\n";
				}

				if(defined($$ref2{'ram'}))
				{
					print '<p><b>';
					print 'RAM:';
					print '</b></p>';
					print '<blockquote><p>';
					print "\n";
					print $$ref2{'ram'};
					print "\n";
					print '</p></blockquote>';
					print "\n";
				}

				if(defined($$ref2{'nic'}))
				{
					print '<p><b>';
					print 'Nic:';
					print '</b></p>';
					print '<blockquote><p>';
					print "\n";
					print $$ref2{'nic'};
					print "\n";
					print '</p></blockquote>';
					print "\n";
				}

				if(defined($$ref2{'controllers'}))
				{
        	                        print '<p><b>';
					print 'Controllers:';
					print '</b></p>';
					print '<blockquote><p>';
					print "\n";
					print $$ref2{'controllers'};
					print "\n";
					print '</p></blockquote>';
					print "\n";
				}

				if(defined($$ref2{'disks'}))
				{
	                                print '<p><b>';
					print 'Disks:';
					print '</b></p>';
					print '<blockquote><p>';
					print "\n";
					print $$ref2{'disks'};
					print "\n";
					print '</p></blockquote>';
					print "\n";
				}

				if($$ref2{'img'})
				{
					print '<hr/>',"\n";
					print '<p class="center">';
					print "\n";
					print '<img class="fancy" src="',$$ref2{'img'},'" alt="',$$ref2{'name'},'" />';
					print "\n";
					print '</p>';
				}
				print "\n";
			}
		} # unless()
		return(1);
	} # if()
		
	unless($subsection)
	{
		print '<h2>','System Information','</h2>',"\n";
		
		unless(&links("sysinfo")) { &error("Error getting links for sysinfo."); }

		print '<hr/>',"\n";
		
#		use Sys::CpuLoad;
#		use Sys::Hostname;
#		my $host = hostname;
#		use Linux::Cpuinfo;
		use grapher;
#		use Linux::meminfo;
#		my %mem = get_meminfo;
#		my $cpu = Linux::Cpuinfo->new();
#		my $sysinfo_uptime = `cat /proc/uptime | awk '{print \$1}'`;
#		my $sysinfo_kernel_release = `uname -r`;
#		my $sysinfo_memory_total = $mem{'MemTotal'};
#		my $sysinfo_memory_free = $mem{'MemFree'};
#		my $sysinfo_memory_buffers = $mem{'Buffers'};
#		my $sysinfo_memory_cached = $mem{'Cached'};
#		my $sysinfo_users_num_logged_in = `users | wc -w | sed 's/^[ \t]*//'`;
#		my $sysinfo_users_total_logins = `last | grep -v reboot | wc -l`;
#		my $sysinfo_procs_num = `ps ax | sed 1d | wc -l`;
#		chomp($sysinfo_kernel_release);
#		chomp($sysinfo_procs_num);
#		chomp($sysinfo_users_total_logins);
		
#		my $ub = `cat /var/www/inc/ubar.txt`;
#		$ub =~ s/[a-z]//gi;
#		$ub =~ s/[\/]//g;
#		$ub_percent = &get_percent($ub,1300);

#		my $sysinfo_memory_used = $mem{'MemTotal'} - $mem{'MemFree'} - $mem{'Buffers'} - $mem{'Cached'};
#		my $sysinfo_memory_used_percent = &get_percent($sysinfo_memory_used,$mem{'MemTotal'});
#		my $sysinfo_memory_free_percent = &get_percent($mem{'MemFree'},$mem{'MemTotal'});
#		my $sysinfo_memory_buffers_percent = &get_percent($mem{'Buffers'},$mem{'MemTotal'});
#		my $sysinfo_memory_cached_percent = &get_percent($mem{'Cached'},$mem{'MemTotal'});
		 
#		$sysinfo_uptime = &gettime($sysinfo_uptime);
#		$sysinfo_users_total_logins = $sysinfo_users_total_logins - 2;
		
		# Print systeminformasjonen..
			
#		print '<p>',"\n",'Local hostname : ',$host,"\n",'</p>',"\n";
#		print '<p>',"\n",'CPU : ',$cpu->vendor_id(),' ',$cpu->model_name(),' ',$cpu->cpu_mhz(),'MHz (',$cpu->bogomips(),' bogomips)','</p>',"\n";

#		print '<p>',"\n",'Kernel : ',$sysinfo_kernel_release;
#		print ' - Uptime : ',$sysinfo_uptime,"\n",'</p>',"\n";
		
#		print '<p>',"\n",'Logged in users : ',$sysinfo_users_num_logged_in;
#		print ' - ','Total logins this month : ',$sysinfo_users_total_logins,"\n",'</p>',"\n";
		
#		print '<p>','Load average : ',
#		join(' , ', Sys::CpuLoad::load());
	
#		print "\n",'(',$sysinfo_procs_num,' processes)','</p>', "\n";
#		print '<p>','Memory :','</p>',"\n";		
#		print '<blockquote>',"\n";
#		print '<p>','Total : ',$mem{'MemTotal'},'kb','</p>',"\n";
#		print '<p>','Free : ',$mem{'MemFree'},'kb','(',$sysinfo_memory_free_percent,'%)','</p>',"\n";
#		print '<p>','Buffers : ',$mem{'Buffers'},'kb','(',$sysinfo_memory_buffers_percent,'%)','</p>',"\n";
#		print '<p>','Cached : ',$mem{'Cached'},'kb','(',$sysinfo_memory_cached_percent,'%)','</p>',"\n";
#		print '<p>','Used : ',$sysinfo_memory_used,'kb','(',$sysinfo_memory_used_percent,'%)',"\n",'</p>',"\n";
#		print '</blockquote>',"\n";
		print &generate_load("host=loke mode=monthly nolink=1"),"\n";
		print &generate_mem("host=loke mode=monthly nolink=1"),"\n";
		print '<p>','Last uptimes :','</p>';
		
		&get_uptimes;

		print "<p>Diskusage :</p>\n";
		print '<pre>',"\n";
		
		open(DF, 'LANG=C df -Ph|');
		my @df = <DF>;
		close(DF);
		shift(@df);
		foreach(sort(@df))
		{
			chomp;
			my @line	= split;
			unless($line[5] =~ /dev|lib/)
			{
				print sprintf("%-15s", $line[5]);
				$line[4]	=~ s/\D//g;
				my $dfp		= $line[4] / 5;
				my $tst;
				for $tst(0..20)
				{
					if($tst < $dfp)
					{
						print "=";
					}
					else
					{
						print "-";
					}
					$tst++;
				}
				print sprintf("%6s", $line[2]).'/'.sprintf("%5s", $line[1]),' (',sprintf("%3s", $line[4]),"%)\n";
			}
		}
		print '</pre>',"\n";
		
		# ferdig med utprinting av systeminformasjon...
		return(1);
	} # if()
} # sub sysinfo()

sub get_uptimes
{
	my $dbh2	= DBI->connect("DBI:mysql:database=sysinfo;host=loke","sql-read","",{'RaiseError' => 0});
	my $sth2	= $dbh2->prepare
	("
	SELECT
		*
	FROM
		uptime
	WHERE
		host = 'loke'
	ORDER BY
		boot DESC
	LIMIT
		10
	");
		$sth2->execute;
		print '<pre>Boot			   |		Uptime<br/>';
		print '----------------------------------------------<br/>';
		my $rii = 0;
		while(my $reffie = $sth2->fetchrow_hashref)
		{
			if($rii == 0) { print '<b>'; }
			print scalar localtime($$reffie{'boot'}),"   | ",sprintf("%17s", &gettime($$reffie{'uptime'})),"\n";
			if($rii == 0)
			{
				print '</b>';
				$rii++;
			}
		}
		print '</pre>';
}

sub people
{
	unless($id)
	{
		print '<p>','id is required.. Error in query','</p>';
	}
#	
#		&db
#("
#SELECT DISTINCT
#	id,
#	name
#FROM
#	people
#");
#		$numFields = $sth->{'NUM_OF_FIELDS'};
#
#		while(my $ref = $sth->fetchrow_hashref)
#		{
#			print '<p>';
#			&LagLink('?section=people&amp;id='.$$ref{'id'},$$ref{'name'});
#			print '</p>';
#			print "\n";
#		} # while()
#		return(1);
#	} # unless()
#
	else
	{
	
		&db
("
SELECT
	name,
	email,
	homepage
FROM
	people
WHERE
	id = \"$id\"
");
		$numFields = $sth->{'NUM_OF_FIELDS'};

		while(my $ref = $sth->fetchrow_hashref)
		{
			print '<h2>';
			print "\U$$ref{'name'}";
			print '</h2>';
			print "\n";
		
			if($$ref{'email'})
			{
				my $email = (split /@/, $$ref{'email'})[0];
				my $domain = (split /@/, $$ref{'email'})[1];
				$email = $email.'@anti.spam.'.$domain;
				print '<p>';
				print 'Email : ';
				&LagLink('mailto:'.$email,$email);
				print '</p>';
				print "\n";
			} # unless()

			if($$ref{'homepage'})
			{
				print '<p>';
				print "Homepage : ";
				&LagLink($$ref{'homepage'},$$ref{'homepage'});
				print '</p>';
				print "\n";
			} # if()
		} # while()

		print '<br/><br/>',"\n";
#		print '<p>',"\n";
#		&LagLink('?section=people','Browse');
#		print ' the people database',"\n";
#		print '</p>',"\n";

		return(1);
	} # else()
} # sub people()

sub services
{
	&db
("
SELECT
	*
FROM
	services
");
	while(my $ref = $sth->fetchrow_hashref)
	{
		print '<h2>';
		print "\U$$ref{'name'}";
		print '</h2>';
		print "\n";

		print '<p>';
		print $$ref{'description'};
		print '</p>';

	}
	return 1;
}