#!/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();
| |
 |
KEYBOARD KAPERS
Ray E. Zubler
Keyboard Kapers consists of three challenging piano keyboard games.
KEYBOARD CLUES plots a note on the grand staff and requires that the
note be played on the musical keyboard. ?MYSTERY? NOTES trains the ear
by presenting one note visually and aurally and then asks the student
to identify other
note(s) played by the computer. KWIK KEYS is a timed
game which requires the student to play back notes presented on the
screen as quickly as possible.
?MYSTERY? NOTES and KWIK KEYS feature
two levels of difficulty and Halls of Fame, where high scores are displayed.
MIDI Optional.
|
| |
Download Windows Demo
Download Mac OS 8.5-9.x Demo
Download Mac OS X Demo
|
Hybrid CD-ROM: 1159CD
Single Station Price: $39.95
Lab Pack (5 stations) Price: $140.00
Site/Network License (24 stations) Price: $320.00
Sys. requirements: Win 98, 2000, XP, Mac OS 8.5-9.2, 10.1-10.x
|
