NEW RELEASES
Pete Heller
Dirty Grooves- Nite:Life 014
(NRK)
Rithma
Music Fiction
(Om Records)
DJ Sage
Drum & Bass Elements 01
(Moonshine)
Darren Emerson & Mutiny
Underwater Episode vol.2
(Underwater Records)
Jamez
Dreamchasing
(Future Groove)
Dave Ralph
Resident Alien
(System Recordings)
Jaga Jazzist
Stix
(Ninja Tune)
|
.
|
<%args>
$email => undef
$album => undef
$genre => undef
$artist => undef
$label => undef
$year => undef
$reviewer => undef
$review => undef
$tracks => undef
$players => undef
<%doc>
mysql> create table submit_review
-> (
-> id INT UNIQUE AUTO_INCREMENT,
-> date_added DATETIME,
-> artist VARCHAR(255),
-> album VARCHAR(255),
-> label VARCHAR(255),
-> genre VARCHAR(255),
-> year INT
-> author VARCHAR(255),
-> email VARCHAR(255),
-> review LONGTEXT,
-> tracks LONGTEXT,
-> personal LONGTEXT,
-> PRIMARY KEY(id));
<%init>
use Mail::Sendmail;
use DBI;
my $dbh = DBI->connect("DBI:mysql:aadj", 'vxweb', 'vx232web');
my $sql = qq {
INSERT INTO cd_review
(date_added, artist, album, label,
genre, cdyear, author, email, review,
tracks, personnel, status)
VALUES
(NOW(), ?, ?, ?,
?, ?, ?, ?, ?,
?, ?, 0)
};
my $stmt = $dbh->prepare($sql);
<%cleanup>
$dbh->disconnect();
<%perl>
my $message = qq {
$album
$artist ($label) |
|
|
By $reviewer
$review
Track Listing: $tracks
Personnel: $players
|
|
};
% if ($r->method eq "POST") {
% my %mail = ( To => 'rob@allaboutdj.com', Cc => 'lucy@allaboutdj.com', From => 'aadj_review@allaboutdj.com', Subject => "AADJ CD REVIEW: $album - $genre", Message => $message );
% $stmt->execute($artist, $album, $label, $genre, $year, $reviewer, $email, $review, $tracks, $players) or die("can't insert into cd_review");
% sendmail(%mail);
|
AADJ Review Submission Successful
Thanks for submitting your review.
To submit another, hit the BACK button to return to the previous page.
|
|
% }
% else {
% $m->out($m->comp('/submit/cdreview-form.html'));
% }
|
<& /adsystem/rotate.tmp &>
|
|
