#!/usr/bin/perl -w use strict; use CGI; use SBF_2004; use SBF_2003; use SBF_2002; use SBF_2001; use Image::Size; our $DISPLAY_TIMES = 1; sub header { my $title = shift; my $popup = shift; if ( ! $title ) { $title = "Hardly Strictly Bluegrass Festival 4: Oct 1 - 3, 2004"; } print <<_EOF_; $title _EOF_ if ( $popup ) { print <<_EOF_;
Strictly Bluegrass
_EOF_ return; } print <<_EOF_;


Photo by Ray Bussolari

Thank you and we'll see you next year! (Doc Watson is already confirmed)

Congratulations to IBMA winners Del McCoury (Entertainer of the Year, Album of the Year), Ricky Skaggs & Kentucky Thunder (Instrumental Group of the Year), Bryan Sutton of Hot Rize (Guitarist of the Year), and original Strictly Bluegrass participant Michael Cleveland of Coon Creek (Fiddler of the Year, Instrumental Album of the Year)!

While we put together our full archive presentation, please enjoy browsing through a quick photo gallery we've put together for you.

_EOF_ } sub footer { my $popup = shift; if ( $popup ) { print <<_EOF_;
[ close window ]
_EOF_ } else { print <<_EOF_;

[ home page ] [ site by chime interactive ]
_EOF_ } print <<_EOF_; _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 $show = $query->param('show'); my $popup = $query->param('popup'); my $key = $query->param('key'); my $title; print $query->header; if ( $show ) { if ( $show eq 'artists' ) { if ( $key ) { $title = "SBF: $SBF_2004::ARTISTS{$key}->{NAME}"; } else { $title = "SBF: Artists"; } } } header ($title, $popup); if ( ! $show ) { print <<_EOF_;

Please select one of the following options for the 2004 lineup:

View Full Schedule View Full Artist List
_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $SBF_2004::ARTISTS{$key}; my $path; my @plays_text; my $tmp; my $an = $key; $an =~ tr/A-Z/a-z/; $path = "/web/www.strictlybluegrass.com/www/2004/images/artists/fr-$an.gif"; if ( -e $path ) { my $align = ""; my $br = "
\n"; my ($width, $height) = Image::Size::imgsize ($path); if ( $width < $height ) { $align = "ALIGN='left'"; } else { $br = "
\n"; } print <<_EOF_; $art->{NAME}$br _EOF_ } print "$art->{NAME}
\n"; # print "Plays: "; print &plays ($key, 1, @SBF_2004::SCHEDULE); $tmp = &plays ($key, 0, @SBF_2003::SCHEDULE); if ( $tmp ) { push (@plays_text, &plays ($key, 0, @SBF_2003::SCHEDULE)); } $tmp = &plays ($key, 0, @SBF_2002::SCHEDULE); if ( $tmp ) { push (@plays_text, &plays ($key, 0, @SBF_2002::SCHEDULE)); } $tmp = &plays ($key, 0, @SBF_2001::SCHEDULE); if ( $tmp ) { push (@plays_text, &plays ($key, 0, @SBF_2001::SCHEDULE)); } if ( $art->{URL} ) { my @urls = @{$art->{URL}}; print "
\n"; # printf "URL%s: ", # scalar (@urls) > 1 ? "s" : ""; foreach my $url ( @urls ) { my $show_url = $url; $show_url =~ s|^http://||i; $show_url =~ s|^([^/]+)/.*|$1|; print "$show_url\n"; } } if ( scalar (@plays_text) > 0 ) { print "

\nAlso played:
\n" . join ("
\n", @plays_text); } } else { print <<_EOF_;
View Schedule by Day

_EOF_ print "\n"; print "\n"; 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}; my $play_2004; $play_2004 = &plays ($key, 1, @SBF_2004::SCHEDULE); if ( ! $play_2004 ) { next; } print <<_EOF_; \n\n"; } print "
ArtistDate/Stage
$art->{NAME} _EOF_ print $play_2004; print "

\n"; } } elsif ( $show eq 'day' ) { print <<_EOF_;

_EOF_ if ( $key ) { print <<_EOF_; _EOF_ } print <<_EOF_;
View Full Schedule View Artist List
_EOF_ print <<_EOF_; _EOF_ foreach my $dref ( @SBF_2004::SCHEDULE ) { if ( $key && $key ne $dref->{DATE} ) { next; } print <<_EOF_; _EOF_ if ( $dref->{NOTES} ) { print <<_EOF_; _EOF_ } foreach my $sref ( @{$dref->{STAGES}} ) { print "\n"; } } print "
$dref->{DATE} ($dref->{TIME})
$dref->{NOTES}
$sref->{NAME}
\n"; print "
    \n"; foreach my $art ( @{$sref->{ARTISTS}} ) { my $showtime; if ( $art =~ /^(.+)\|(.+)$/ ) { $art = $1; $showtime = $2; } if ( ! $DISPLAY_TIMES ) { undef $showtime; } print "
  • "; my $aref = $SBF_2004::ARTISTS{$art}; if ( $showtime ) { print "$showtime "; } printf "%s
    \n", $aref ? $aref->{NAME} : $art; } print "
\n"; } footer ($popup);