#!"C:\xampp\perl\bin\perl.exe"
print "";
use strict;
use DBI;
use CGI;
use CGI::Session;
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);
my $Gesamtsystemquery = $dbh->prepare("select wert from malcos_x;");
my $idMessung;
my $Beschreibung;
my $Wert;
my $cgi = CGI->new();
my $session = CGI::Session->load() or die CGI::Session->errstr;
print $session;
if ($session and not $session->is_empty and not $session->is_expired)
{
print "angemeldet!";
}
else
{
print "nicht angemeldet";
}
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 "
";