#!/bin/perl use Mysql; use strict; use CGI qw(:standard); my $host = param('host'); my $service = param('service'); my $alert = param('alert'); my $check = param('check'); my $descr = param('descr'); my $active = param('active'); 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"; $dbh->do("insert into todos (t_host,t_service,t_check,t_alert,t_active,t_description) values ('$host','$service','$check','$alert','$active','$descr')"); print "\n\n";