|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sergey Nepsha 2:5083/82 28 Nov 2002 22:49:39
To : All
Subject : DBI script
--------------------------------------------------------------------------------
базе их нету.
#!/usr/bin/perl -w
#use strict;
use CGI qw(:standard);
use DBI;
print header(),
start_html(-title => "To-Do List",
-bgcolor => "white"),
h2("Список Заданий");
my $choice = lc(param("choice")); #вот тут есть lc но почему то параметр из
форм#ы не приводится к нижнему регистру!?
if ($choice eq "") {
display_entry_form();
}
elsif ($choice eq "отправить") {
insert_item (param("content"));
display_entry_form();
} else {
print p ("Логическая ошибка, неизвестный выбор:",
"$choice");
}
print end_html();
#------------------------subs--------------------------------------------#
sub connectdb {
my ($dbh, $sth);
$dbh = DBI->connect
("DBI:mysql:host=localhost;database=testdb",
"gh", "testpass",
{PrintError => 0, RaiseError => 1});
}
sub insert_item {
my $connect = shift;
my $dbh;
# Удаление предшествующих пробелов
$content =~ s/^\s+//;
# Удаление конечных побелов
$content =~ s/\s+$//;
if ($content ne "") {
$dbh = connectdb();
$dbh->do(qq{
INSERT INTO todo SET t = NOW(),
status = 'не выполнено', content = ?
}, undef, $content);
$dbh->disconnect();
}
}
sub display_entry_form {
print start_form (-action => url()),
"Задание:", br(),
textarea (-name => "content",
-value => "",
-override => 1,
-rows => 3,
-cols => 80),
br(),
submit (-name => "choice", -value => "отправить"),
end_form();
}
--
XMMS: %s
--- tin/pre-1.4-19990216 ("Styrofoam") (UNIX) (Linux/2.4.18-3custom (i686))
* Origin: 68.net InterNetNews site (2:5083/82@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
