Thread Session-ID wird nicht generiert
(68 answers)
Opened by anamollo4music at 2013-03-26 08:23
Und hier die "intro.cgi".
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 #!"C:\xampp\perl\bin\perl.exe" print "<body bgcolor=#bfbfbf>"; 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 '<p><b><font size=6>Messungen:</font></b></p>'; print "<table border=1>\n"; $Gesamtsystemquery->execute; while(($idMessung, $Beschreibung, $Wert) = $Gesamtsystemquery->fetchrow_array) { print " <tr>\n"; print " <td>System</td>\n"; if($idMessung eq "0") { print "<td>aus</td>\n"; } else { print "<td>ein</td>\n"; } print " <td></td>\n"; print " </tr>\n"; } $Gesamtsystemquery->finish; $dbh->disconnect; print "<br /><br />"; |