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_host.pl
+++ b/C2/admin/save_host.pl
@@ -0,0 +1,29 @@
+#!/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 "<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 hosts (description,hostname,ip,ro_community,rw_community,snmp_port) values ('$v0','$v1','$v2','$v3','$v4','$v5')");
+
+print "</body>\n</html>\n";