#!/bin/perl use Mysql; use strict; use CGI qw(:standard); my $v0 = param('descr'); my $v1 = param('typ'); my $v2 = param('mfrom'); my $v3 = param('mto'); my $v4 = param('enterprise'); my $v5 = param('generic'); my $v6 = param('specific'); my $v7 = param('sto'); my $v8 = param('port'); my $v9 = param('comm'); my $v10 = param('msg'); my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1}); print header(); print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $dbh->do("insert into alerts (description,alert_type,mail_from,mail_to,enterprise,specific,generic,destination,port,community,txt_msg) values ('$v0','$v1','$v2','$v3','$v4','$v6','$v5','$v7','$v8','$v9','$v10')"); print "\n\n";