#!/usr/bin/perl -w use strict; use CGI; use SBF_2005; use Image::Size; use FileHandle; our $REVIEWS_DIR = "/web/www.strictlybluegrass.com/www/2005/reviews"; our $DISPLAY_TIMES = 0; sub header { my $title = shift; if ( ! $title ) { $title = "Hardly Strictly Bluegrass Festival 5: Sep 30 - Oct 2, 2005"; } print <<_EOF_; $title _EOF_ print <<_EOF_;


Hardly Strictly Bluegrass 5 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 $key = $query->param('key'); my $title; print $query->header; $title = "SBF 2005: Reviews"; if ( $key && -e "$REVIEWS_DIR/${key}.txt" ) { $title = "SBF 2005: $SBF_2005::ARTISTS{$key}->{NAME} Review"; } header ($title); if ( $key ) { my $fh = new FileHandle ("$REVIEWS_DIR/${key}.txt"); while ( <$fh> ) { print; } print "

[ More Reviews ]


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

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

_EOF_ foreach my $dref ( @SBF_2005::SCHEDULE ) { if ( $key && $key ne $dref->{DATE} ) { next; } print <<_EOF_; _EOF_ if ( $dref->{NOTES} ) { print <<_EOF_; _EOF_ } print <<_EOF_;
$dref->{DATE} ($dref->{TIME})
$dref->{NOTES}
_EOF_ my $stages_per_line = 2; my $cur_stage_num = 0; print <<_EOF_; _EOF_ foreach my $sref ( @{$dref->{STAGES}} ) { my $file = sprintf "%s-%s", $sref->{NAME}, $dref->{DATE}; my $first = 1; $file =~ s/ /_/g; if ( ! -e "$REVIEWS_DIR/${file}.txt" ) { print "\n"; } } print "
$sref->{NAME} - REVIEW COMING SOON
\n"; next; } print "
$sref->{NAME} - READ REVIEW
\n"; foreach my $art ( @{$sref->{ARTISTS}} ) { my $showtime; if ( $art =~ /^(.+)\|(.+)$/ ) { $art = $1; $showtime = $2; } if ( ! $DISPLAY_TIMES ) { undef $showtime; } my $aref = $SBF_2005::ARTISTS{$art}; if ( ! $first ) { print ", "; } if ( $showtime ) { print "$showtime "; } printf "%s\n", $aref ? $aref->{NAME} : $art; $first = 0; } print "
\n"; } print "
\n"; footer ();