Simple Perl CGI Script from HTML

Question

Hi folks I'm trying to do a simple CGI with 2 submit buttons, which do something on a database if you press them. Still I know I'm missing something because i can't seem to get it working.

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);
}

I wonder what I am doing wrong. Thank you.

Now It's starting to get into shape. It now displays the script once I click the button. Thank you. — Jorge Sanchez
– Jorge Sanchez, Commented Dec 22, 2012 at 2:43

Thomas L Holaday · Accepted Answer · 2012-12-22 02:25:30Z

1

Your <form> is in the <head>, instead of the <body>, which looks peculiar.

answered Dec 22, 2012 at 2:25

Thomas L Holaday

13.9k6 gold badges44 silver badges52 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Jorge Sanchez Over a year ago

Fixed, on post and on site. Still, no luck.

Collectives™ on Stack Overflow

Simple Perl CGI Script from HTML

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related