<%doc> URL TYPE 1 - /reviews/r0201_001.htm URL TYPE 2 - /reviews/pf_r0201_001.htm URL TYPE 3 - /reviews/ft/20020321/7823/Straight_Edge_Trio.html URL TYPE 4 - /reviews/pf/20020321/7823/Straight_Edge_Trio.html <%init> my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web'); <%cleanup> $dbh->disconnect(); <%perl> my @args = split('/', $r->uri); my ($title, $album, $artist, $id, $month, $year, $seq, $sql, $stmt); if ($args[2] =~ /r(\d\d)(\d\d)_(\d+)\.(htm|html)/i) { $month = $1; $year = $2; $seq = $3; $sql = "SELECT album, artist, id FROM cd_review WHERE month = ? and year = ? and seq = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($month, $year, $seq); ($album, $artist, $id) = $stmt->fetchrow_array(); $stmt->finish(); } elsif ($args[2] =~ /^(pf|ft)$/i and $args[3] =~ /^(\d+)$/ and $args[4] =~ /^(\d+)$/ and $args[5] =~ /^(\w+)\.(htm|html)$/i) { $id = $2; $sql = "SELECT album, artist FROM cd_review WHERE id = ?"; $stmt = $dbh->prepare($sql); $stmt->execute($id); ($album, $artist) = $stmt->fetchrow_array(); $stmt->finish(); } if ($album and $artist) { $title = "$artist - $album"; } else { $m->comp('/title.tmp', static_title => 1); } <% $title %>

HOME NEWS REVIEWS ARTICLES MUSICIANS SHOWS GUIDES PHOTOS FORUMS RADIO
Welcome Daily MP3s Videos Podcast Upcoming Releases Editorial Calendar Mobile Contests  
Advertise   |   Staff   |   AAJ Pro   |   Contact Us  
CD Review:













By


All material copyright © All About Jazz and/or contributing writer/visual artist. All rights reserved. | Privacy Policy