#!/bin/perl use Mysql; use strict; use CGI qw(:standard); my $gruppe = param('gruppe'); my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1}); my ($sth,$ref); print header(); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "Todo hinzufügen\n"; print "

\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "

Host	Service	Prüfung	Alarm	Aktiv?	Beschreibung
\n"; print " \n"; print "	\n"; print " \n"; print "	\n"; print " \n"; print "	\n"; print " \n"; print "

\n"; print " \n"; print "

\n"; print "\n"; # $sth = $dbh->prepare($sel); # $sth->execute; # while ($ref = $sth->fetchrow_arrayref()) { # print "$ref->[1], $ref->[2] $ref->[3] $ref->[4]"; # } print "\n\n";