#!/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();
| |
 |
MUSICAL STAIRS
Steve Walker
Musical Stairs is an aural-visual drill-and-practice game designed
to introduce intervallic relationships to the young student. The program
utilizes a piano keyboard with a treble and bass clef to quiz randomly
selected numeric intervals within one octave on the "white keys."
The question is notated on the staff and musically reproduced through
the MIDI synthesizer. The user answers by playing the keyboard. The
program includes student scores and a Hall of Fame section.
|
| |
Download Windows Demo
Download Macintosh
Demo
|
Hybrid CD-ROM: 1170CD
Single Station Price: $29.95
Lab Pack (5 stations) Price: $105.00
Site/Network License (24 stations) Price: $240.00
System requirements: Win 98, 2000, XP Mac OS 8.5-9.2, 10(in classic mode)
|
