#!/bin/perl use Mysql; use strict; use CGI qw(:standard); my $v0 = param('descr'); my $v1 = param('hostname'); my $v2 = param('ip'); my $v3 = param('roc'); my $v4 = param('rwc'); my $v5 = param('port'); 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 hosts (description,hostname,ip,ro_community,rw_community,snmp_port) values ('$v0','$v1','$v2','$v3','$v4','$v5')"); print "\n\n";