#!/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();
| |
|
PITCH CHALLENGER
Pitch Challenger is designed as a unique program to improve pitch matching skills. Student and novice musicians can
improve pitch discrimination using the three sections of this software. The Explorer section presents two pitches to
be matched visually and aurally. The Challenger randomly plays two pitches to be judged in tune, sharp or flat. The
MultiPitch Challenger requires the user to judge each of several pitches sharp, flat or in tune. Visual feedback
reinforces learning to tune and match pitches. A MUST for any music performer, singer or instrumentalist. Student scores
and records can be saved and printed. (Non-MIDI)
|
| |
Download Windows Demo
Download Macintosh OS X Demo
Download Macintosh OS 8.5-9.x Demo
|
Hybrid CD-ROM: 1640CD
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
|
