#!/usr/bin/perl -w
use DBI;
use Date::Calc qw(Today);
use CGI qw(:standard);
print "Content-type: text/plain\n\n";
$theDB = DBI ->connect ('DBI:mysql:ecsmedia', 'ecsmedia', 'S3cq8esL') or die("Cannot connect.\n");
($year,$month,$day) = Today();
$theProduct = param("filename");
$theDate = "$month/$day/".substr($year, -2);
$theReferrer = $ENV{'HTTP_REFERER'};
$Query = "SELECT * FROM productCounters WHERE Product='$theProduct' AND Date='$theDate'";
$result = $theDB->prepare($Query) or die("error preparing SQL\n");
$result->execute() or die("error executing SQL\n");
if (@row = $result->fetchrow_array) {
$newCount = $row[2] + 1;
$newReferrer = $row[3].",".$theReferrer;
$Query = "UPDATE productCounters SET Count=$newCount, Referrers='$newReferrer' WHERE Product='$theProduct' AND Date='$theDate'";
$theDB->do($Query) or die("Invalid update");
}
else{
$Query = "INSERT INTO productCounters (Product, Date, Count, Referrers) VALUES ('$theProduct','$theDate','1','$theReferrer')";
$theDB->do($Query) or die("Invalid insert");
}
$result->finish();
$theDB->disconnect();
| |
|
Authors: Peters, Eddins
76 pages, 8.5"x11"
ELECTRONIC BOOK
ISBN: 0-942132-00-9
Order Code: 1116DO
Price: $22.95
Released: August 2003
This publication is a unique "eBook" available as an electronic file to access. The eBook will be delivered to customers as a downloadable file. The customer may download and print one copy of the eBook after placing an online order.
This ebook is a guide for persons and institutions considering the implementation of a computer instruction site. The contents include an introduction to computer hardware, selection of computer hardware and couseware, computer instruction site development and management, and sources of hardware and software for educational use.
|
You will receive an e-mail with a serial number
and installation instructions by the end of the
next business day.
|
