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>
$title =>undef
$type => undef
$author => undef
$email => undef
$article =>undef
<%init>
use Mail::Sendmail;
use DBI;
my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web');
my $sql = qq {
INSERT INTO article
(article_type_id, title, date_added, author_name, author_email, text, active)
VALUES
(?, ?, NOW(), ?, ?, ?, ?)
};
my $sql2 = "SELECT name from article_type where id = ?";
my $stmt = $dbh->prepare($sql);
my $stmt2 = $dbh->prepare($sql2);
$stmt2->execute($type);
my ($type_name) = $stmt2->fetchrow_array();
my $message = "Title: $title\nAuthor Name: $author\nEmail: $email\nText:\n\n$article";
<%cleanup>
$dbh->disconnect();
% if ($r->method eq "POST" and $type > 0) {
% my %mail = ( To => 'rob@allaboutdj.com', Cc => 'lucy@allaboutdj.com', From => 'aadj_article@allaboutdj.com', Subject => "AADJ ARTICLE: $type_name - $title - $author", Message => $message );
% $stmt->execute($type, $title, $author, $email, $article, 0);
% sendmail(%mail);
| AADJ Article Submission Successful
Thanks for submitting your article.
To submit another, hit the BACK button to return to the previous page.
|
|
% }
% else {
% $m->out($m->comp('/submit/article-form.html'));
% }
|
<& /adsystem/rotate.tmp &>
|
|
