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_todo.pl
+++ b/C2/admin/save_todo.pl
@@ -0,0 +1,29 @@
+#!/bin/perl
+
+use Mysql;
+use strict;
+use CGI qw(:standard);
+
+my $host    = param('host');
+my $service = param('service');
+my $alert   = param('alert');
+my $check   = param('check');
+my $descr   = param('descr');
+my $active  = param('active');
+
+my $dbh = DBI->connect("DBI:mysql:database=c2;host=localhost",'root','', {RaiseError => 1});
+my ($sth,$ref);
+print header();
+
+print "<html>\n";
+print "<head>\n";
+print "<style type='text/css'>\n";
+print "select { font-size:8pt }\n";
+#print "td     { font-size:10pt }\n";
+print "</style>\n";
+
+print "</head>\n";
+print "<body>\n";
+$dbh->do("insert into todos (t_host,t_service,t_check,t_alert,t_active,t_description) values ('$host','$service','$check','$alert','$active','$descr')");
+
+print "</body>\n</html>\n";