#!/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();
| |
 |
CHALLENGE MUSICUS
Joseph E. Koob
Challenge Musicus is the next title to be offered in this colorful
and fun series (other titles include Musicus which is sold separately). Rests are introduced as well as 9/8, 12/8, and
7/4 meters. You will gain a better understanding of the relative lengths
of notes and rests as well as combinations of tied notes. Maneuver note
blocks of rhythms to try to complete as many lines of music as possible.
You will even have the option to hear complete lines played back at
the end of the game.
|
| |
|
Hybrid CD-ROM: 1510CD
Single Station Price: $29.95
Lab Pack (5 stations) Price: $105.00
Site/Network License (24 stations) Price: $240.00
Sys. requirements: Win 98, 2000, XP, Mac OS 8.5-9.2, 10.1-10.x
|
