UNIX and Linux Applications

#!/usr/bin/perl -w
#todo1.pl  --- initial version of the to-do application

use strict;
use lib qw(/usr/lib/perl5);
use CGI qw(:standard);
use WebDB;

print header(),
     start_html(-title=>"To-Do List", -bgcolor=>"white"),
     h2("To-Do List");

#Dispatch to proper action based on user selection

my $choice = lc (param("choice"));  #get choice, lowercased

if ($choice eq "") {         #initial script invocation

     display_entry_form();

} 
elsif ($choice eq "submit") {

     insert_item(param("content"));
     display_entry_form();

}
else {

     print p("Logic error, unknown choice: $choice");

}

print end_html();


sub insert_item {

my $content = shift;
my $dbh;
    $content =~ s/^\s+//;        #strip leading whitespace
    $content =~ s/^\s+$//;        #strip trailing whitespace
    if ($content ne "") {         #if content is non-empty, add to table
        $dbh = WebDB::content();
        $dbh->do(qq{
           INSERT INTO todo SET t = NOW(), status = 'open', content = ?},
       undef, $content);

         $dbh->disconnect();

    }
}

sub display_entry_form {
    print start_html(-action=>url()),
    "To-do item:", 
        br(),
    textarea(-name =>"content",
         -value => "",
         -override => 1,
         -rows => 3,
         -columns => 80),
    br(),
    submit(-name => "choice", -value => "Submit"),
    end_form();
}

###########END OF MAIN ################

########    WebDB    ##################

#which is located in /usr/lib/perl5/

package WebDB;
#package WebDB for later use;

use strict;
use DBI;

my $db_name="webdb";
my $user_name="webdev";
my $password="secretpass";
my $host_name="localhost";
my $dsn = "DBI:mysql:host=$host_name; database=$db_name";

#connect to MySQL server, using hardwired name and password

sub connect 
{
    return (DBI->connect($dsn, $user_name, $password,
        {PrintError=>0, RaiseError=>1})) 
        || die "Could not connect to database: $DBI::errstr";
}

#Connect to MySQL server, using name and password from the current 
#user's  ~/.my.conf option file. The mysql_read_default_file option,
#when added to the DSN, specifies which option file to read.

sub connect_with_option_file 
{
    $dsn .= "; mysql_read_default_file=$ENV{HOME}/.my.conf";
    return (DBI->connect ($dsn, $user_name, $password, {PrintError=>0, RaiseError=>1}));
}

1;

Finish chapter 6 before the editor called me
Fix chapter 5 code examples
Revise chapter 10 outline

mysql> SELECT * FROM todo;
Empty set (0.00 sec)