#!/usr/bin/perl -w

use warnings;
use strict;
use lib "<path to my libraries on that server>";
use Navi;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;

sub login_check($$)
{
	my $cgi   = shift;
	my $title = shift;
	my $session = CGI::Session->load();
	Navi::print_navi("$title", 1); # Print Navigation
	if($session->is_expired)
	{
		print qq{<div id="category">[ LOGIN ]</div>};
		print "Your has session expired. Please login again.";
		print "<br/><a href='login.pl>Login</a>";
		Navi->end_navi();
		return -1;
	}
	elsif($session->is_empty)
	{
		print qq{<div id="category">[ LOGIN ]</div>};
		print "You have not logged in.<br/><a href='login.pl'>Login</a> ";
		Navi->end_navi();
		return -1
	}
	else
	{
		print qq{<div id="category">[ CON-SYSTEM ]</div>};
		print "<a href='index.pl'>Index-Page</a> <a href='changepw.pl'>Change Password</a> <a href='login.pl?action=logout'>Logout</a><br/><br/>";
		return $session->param("uid");
	}
}

1;