#!perl.exe
use strict;
use DBI;
use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $cgi = CGI->new();
my $session = CGI::Session->load() or die CGI::Session->errstr;
if (not ($session->param('loggedin') and $session->param('loggedin') == 1 ) )
{
#nicht angemeldet!!!!
# Weiterleiten zum Login
my $next_url = 'login.cgi';
print $session->header
(
-location => $next_url
);
exit;
}
# dann ist wohl eingeloggt, also Datenbank abfragen
my $dbhost = "localhost";
my $database = "sensor";
my $dbuser = "root";
my $dbpass = "";
my $dsn = "DBI:mysql:database=$database; host=$dbhost";
my $dbh = DBI->connect($dsn, $dbuser, $dbpass) or die DBI::errstr;
my $Gesamtsystemquery = $dbh->prepare("select wert from malcos_x;");
my $idMessung;
my $Beschreibung;
my $Wert;
print $cgi->header( -type => 'text/html');
print "";
print 'Messungen:
';
print "\n";
$Gesamtsystemquery->execute;
while(($idMessung, $Beschreibung, $Wert) = $Gesamtsystemquery->fetchrow_array)
{
print " \n";
print " | System | \n";
if($idMessung eq "0")
{
print "aus | \n";
}
else
{
print "ein | \n";
}
print " | \n";
print "
\n";
}
$Gesamtsystemquery->finish;
$dbh->disconnect;
print "
";