#!/usr/bin/perl  -U

#use CGI;
# CGI for writing html and interpreting form data
use CGI qw/:all/;
use CGI::Carp qw(fatalsToBrowser);
# USER::pwent for uid gid homedir and gecos
#use User::pwent;

$ENV{PATH} = "/bin";
$ENV{IFS} = "";
umask 022;

$query = new CGI;
#$html = "/srv/www/htdocs/drkonto/logging.html";

# start htmlpage for all cases
print header(-type =>'text/html',-expires =>'+1m'),
	start_html(-title  =>'Druck-Konto abfragen',
                -author =>'knapp@hs-koblenz.de',
                -dtd => '-//W3C//DTD HTML 4.01 Transitional//EN',
                -base   =>'true',
                -meta   =>{'keywords'   =>'Druck-Konto abfragen, Druckkonto ',
                                'description'=>'Druck-Konto abfragen'},
                -BGCOLOR=>'#FFFFCC', -TEXT   =>'#000000', -LINK   =>'red',
                -VLINK  =>'blue', -ALINK  =>'black');


# Get the parameters
$user = remote_user();	# who called us
$user = lc($user); 	# Gross- in Kleinbuchen wandeln

open (LOG, ">>/var/log/drkonto/$user");

# get Nispassword
#if (!($pw = getpwnam($user))) {
#	print h2("!!! Probleme mit der Benutzerkennung >$user< !!!"),
#		p(q(<a href="mailto:knapp@hs-koblenz.de">
#		Bitte informieren Sie den System-Administrator</a>)), 
#		p("Schicken Sie den Kennungsnamen mit. Danke");
#	print h3(" ");
#	print h3("Zurück zur ",
#		 "<a href=\"http://www.hs-koblenz.de\">Homepage</a>",
#		 " der Hochschule Koblenz.");
#	end_html;
#	print LOG "Probleme mit $user\n\n";
#	exit;
#}

if ( $user=="icafe149" ) {
#	print p("Benutzername: ",
#	textfield(-name=>'Benken', -default=>$user, -size=>30, -maxlength=>50));
	print LOG "Test fuer $user  \n";
	open (DAT, "</var/spool/drucklog/user/$user");
	$drkonto = <DAT>;
	print LOG "Benutzer: $user  Konto: $drkonto  \n";
	close DAT;
	}


$drlfile="/var/spool/drucklog/logdaten/$user.log";
$drkfile="/var/spool/drucklog/user/$user";
#print LOG "Logfile: $drlfile   Konto: $drkfile \n";

if (-f $drkfile) {
	open (DRF, "<$drkfile");
	$drkonto = <DRF>;
	close DRF;
	if (-f $drlfile) {
		open (DRL, "<$drlfile");
		@lines = reverse <DRL>;
		close DRL;
		if ($#lines>40) { $ml=40 } else { $ml=$#lines+1 };
		}
	}
  else	{
	 $drkonto="200";
	 $ml=0;
	}


#print LOG "Druckkonto fuer $user ist  $drkonto \n";
# Security blankets.
$ENV{'IFS'} = '' if $ENV{'IFS'};
$ENV{'PATH'} = '/bin:/usr/bin:/usr/sbin';
umask(022);

#use UserMsgs;
#use CommSock;
#use Getopt::Std;

# finish
print h3(" ");
print h2("Druck-Konto des Benutzers:   $user ");
print h3(" ");
print h3("Sie verf&uuml;gen zurzeit  &uuml;ber: &nbsp;   $drkonto  Druckseiten.");
print h3(" ");
print h4("Protokolldaten der letzten Ausdrucke: ");
print h4(" ");
print "Drucker&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp&nbsp;&nbsp;Computer&nbsp;&nbsp;&nbsp;&nbsp;S/W&nbsp;&nbsp;&nbsp;Farbe&nbsp;&nbsp;&nbsp;&nbsp;Kosten&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Datum&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Title";
if ($ml>0)
{
  print "<hr><pre>";
  for ($i=0; $i<$ml; $i++)
   {
	$line = $lines[$i];
	print "$line";
   }
  print "</pre><hr>";
}
 else { print h4("  - es sind keine Protokolldaten vorhanden - "); }

print h3(" ");
print h3("<br><p>");
print h3("Zurück zur ", "<a href=\"http://www.hs-koblenz.de\">Homepage</a>",
	 " der Hochschule Koblenz.");
print h3(" ");
end_html;

close LOG;
#unlink $LOGFILE;

exit;