%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 %doc> <%init> my $dbh = DBI->connect("DBI:mysql:allaboutjazz", 'vxweb', 'vx232web'); %init> <%cleanup> $dbh->disconnect(); %cleanup> <%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 = "
|
. | ||||||||||||||||||||||||||||||||||||
![]() |
| Subscribing to the L.A. Jazz Scene |
|
If you're from Southern California or have an interest in the L.A. Jazz Scene, why not subscribe to this very hip monthly publication.
To subscribe, send a check or money order to:
L.A. JAZZ SCENE
|
| Go back to the CD Review page. |
|
|
||
| Privacy Policy | Dedicated Servers | All material copyright © 2008 All About Jazz and/or contributing writers/visual artists. All rights reserved. | |