#!/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();
| |
|
Author: Rudolph
Publisher: GIA Publications, Inc.
PAPERBACK BOOK
Order Code: 1636DO
Price: $34.95
Never before in the field of education has technology played such an integral role as it does today-especially in the field of
music education. In a new, fully revised edition of Teaching Music with Technology, Tom Rudolph once again takes the
challenging and complex subject of using technology in the music classroom, and makes it understandable on every level. A wide
range of topics are covered from MIDI and electronic keyboards to the Internet and copyright law, expanding chapters to include
the most recent developments in hardware, software, and pedagogy. It includes a CD-ROM including student assignments, projects,
lesson plans, and links to web sites that offer free software, demo programs and up-to-date technical information.
|
