34 lines
889 B
Perl
34 lines
889 B
Perl
#!/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 "<html>\n";
|
|
print "<head>\n";
|
|
print "<style type='text/css'>\n";
|
|
print "select { font-size:8pt }\n";
|
|
|
|
print "</style>\n";
|
|
|
|
print "</head>\n";
|
|
print "<body>\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 "</body>\n</html>\n"; |