#!/usr/bin/perl -w use strict; use CGI; use SBF_2004; use Image::Size; use FileHandle; our $REVIEWS_DIR = "/web/www.strictlybluegrass.com/www/2004/reviews"; our $DISPLAY_TIMES = 1; sub header { my $title = shift; if ( ! $title ) { $title = "Hardly Strictly Bluegrass Festival 4: Oct 1 - 3, 2004"; } print <<_EOF_; $title _EOF_ print <<_EOF_;


Hardly Strictly Bluegrass 4 Reviews

_EOF_ } sub footer { print <<_EOF_;

[ home page ] [ site by chime interactive ]
_EOF_ } sub plays { my $artist = shift; my $inc_link = shift; my @schedule = (@_); my $str = ''; foreach my $dref ( @schedule ) { # print "DATE: $dref->{DATE}\n"; foreach my $sref ( @{$dref->{STAGES}} ) { # print "Stage: $sref->{NAME}\n"; foreach my $art ( @{$sref->{ARTISTS}} ) { my $st = ''; my $aname = $art; if ( $art =~ /^(.+)\|(.+)$/ ) { $aname = $1; $st = " ($2)"; } if ( ! $DISPLAY_TIMES ) { undef $st; } if ( $artist eq $aname ) { my $ed = CGI::escape ($dref->{DATE}); if ( $str ) { $str .= "
\n"; } if ( $inc_link ) { $str .= " $dref->{DATE}, $sref->{NAME}${st}\n"; } else { $str .= " $dref->{DATE}, $sref->{NAME}${st}\n"; } } } } } return $str; } ### ## MAIN BODY ### my $query = new CGI; my $artist = $query->param('artist'); my $title; print $query->header; $title = "SBF 2004: Reviews"; if ( $artist && -e "$REVIEWS_DIR/${artist}.html" ) { $title = "SBF 2004: $SBF_2004::ARTISTS{$artist}->{NAME} Review"; } header ($title); if ( $artist ) { my $fh = new FileHandle ("$REVIEWS_DIR/${artist}.html"); while ( <$fh> ) { print; } print "

[ More Reviews ]


\n"; } else # ( ! $artist ) { print <<_EOF_;

Please select one of the following reviews from the 2004 festival:

_EOF_ foreach my $key ( sort { my $cmp_a = uc($SBF_2004::ARTISTS{$a}->{NAME}); my $cmp_b = uc($SBF_2004::ARTISTS{$b}->{NAME}); ## skip over any leading html tags $cmp_a =~ s/^<[^>]+>//; $cmp_b =~ s/^<[^>]+>//; ## skip leading "the" $cmp_a =~ s/^The //i; $cmp_b =~ s/^The //i; $cmp_a cmp $cmp_b; } keys (%SBF_2004::ARTISTS) ) { my $art = $SBF_2004::ARTISTS{$key}; if ( ! -e "$REVIEWS_DIR/${key}.html" ) { next; } print <<_EOF_; $art->{NAME} _EOF_ print "
\n"; } } print "
\n"; footer ();