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_check.pl
+++ b/C2/admin/save_check.pl
@@ -0,0 +1,26 @@
+#!/bin/perl
+
+use Mysql;
+use strict;
+use CGI qw(:standard);
+
+my $v0 = param('descr');
+my $v1 = param('if');
+my $v2 = param('value');
+
+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 checks (description,beding,wert) values ('$v0','$v1','$v2')");
+
+print "</body>\n</html>\n";