#!/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();
| |
|
Digital Metro-Tuner
Digital Metro-Tuner includes a Metronome and a Tuner! The Metronome
turns your computer into a device to assist with playing more accurately
"in tempo". Tempos can be set from 40 to 220 beats per minute. The Tuner
is designed to help you play or sing more in tune. Using your voice or a
musical instrument, sing/play any note and the program quickly shows if
you are playing sharp, flat or "in tune". Perfect for musician of any
skill an age.
Hybrid CD-ROM: 1589CD
Single Station Price: $39.95
Min. system requirements: Win 98, 2000, XP, Mac 10.2.8, 1024x768 Resolution, Microphone (to use the Tuner)
|
