Простой Perl CGI-скрипт из HTML

1

Привет, ребята Я пытаюсь сделать простой CGI с двумя кнопками отправки, которые делают что-то в базе данных, если вы нажимаете их. Тем не менее, я знаю, что у меня что-то не хватает, потому что я не могу заставить его работать.

HTML

<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title></title>
</head>
<body>
<center>
<form action="submit.pl" method="POST">
<input type="submit" name="Inicio" value="Inicio" id="Inicio" Inicio />
<input type="submit" name="Finaliza" value="Finaliza" id="Finaliza" Finaliza />
</form>
</center>
</body>
</html>

submit.pl

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use CGI;

my $q = CGI->new;
my $dsn = "DBI:mysql:database=sms;host=10.0.0.1";
my $dbh = DBI->connect($dsn,"user","password123");


if ($q->param('Inicio')) 
    my $query = "insert into comienzo_programa (fecha, hora_inicio) values (CURDATE(),     CURTIME())";
$dbh->do($query);
} elsif ($q->param('Finaliza')) {
     my $query = "insert into comienzo_programa (hora_fin) values (CURTIME()) where   fecha=CURDATE()"; 
$dbh->do($query);
}

Интересно, что я делаю неправильно. Спасибо.

  • 0
    где fecha = 'CURDATE ()', удалите одиночную кавычку.
  • 0
    У вас есть </form> перед вашими кнопками отправки.
Показать ещё 4 комментария
Теги:
cgi

1 ответ

1

Ваша <форма> находится в <head>, а не <body>, которая выглядит странно.

Поделиться
  • 0
    Исправлено, на почте и на сайте. Тем не менее, не повезло.

Ещё вопросы

Сообщество Overcoder
Наверх
Меню