#!/usr/bin/perl
use DateTime;
use DateTime::TimeZone;
use DBI;
use DBD::mysql;
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$first_name = $FORM{first_name};
$last_name = $FORM{last_name};
$blogp = $FORM{blogp};
$oneletter = substr( $first_name, 0, 1 );
$dt = DateTime->now; # same as ( epoch => time )
$dttz = DateTime::TimeZone->new( name => 'local' )->name();
$dt->set_time_zone( $dttz );
$year = $dt->year;
$month = $dt->month; # 1-12
$day = $dt->day; # 1-31
$dow = $dt->day_of_week; # 1-7 (Monday is 1)
$hour = $dt->hour; # 0-23
$minute = $dt->minute; # 0-59
$second = $dt->second; # 0-61 (leap seconds!)
$doy = $dt->day_of_year; # 1-366 (leap years)
$doq = $dt->day_of_quarter; # 1..
$qtr = $dt->quarter; # 1-4
$dmy = $dt->dmy('/'); # 06/12/2002
$hms = $dt->hms; # 14:02:29
$tt = "";
$cont = "";
print "Content-type:text/html\r\n\r\n";
print "";
print "";
print "Hello - Second CGI Program";
print "";
print "";
print "";
if ($blogp == "") { $blogp = $first_name; } else { $oneletter = substr( $blogp, 0, 1 ); }
if (ord($oneletter) >= ord("0") && ord($oneletter) <= ord("9")){
# /*** mysql hostname ***/
$hostname = 'dbhost';
# /*** mysql username ***/
$username = 'username';
# /*** mysql ***/
$password = 'password';
$dbname = 'dbname';
$tname = 'table_name';
$hostname = "DBI:mysql:$dbname:$hostname";
$dbh = DBI->connect($hostname, $username, $password);
$sth = $dbh->prepare("SELECT post_title, post_content FROM $tname WHERE ID=?");
$sth->execute( $blogp );
#while ( @row = $sth->fetchrow_array ) {
while (($tt, $cont) = $sth->fetchrow_array()) {
print "
$cont
";
print "";
1;