init III

2024-10-14 00:08:40 +02:00
parent dbfba56f66
commit 1462d52e13
4572 changed files with 2658864 additions and 0 deletions
--- a/C2/admin/save_alert.pl
+++ b/C2/admin/save_alert.pl
@@ -0,0 +1,34 @@
+#!/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";