$title

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

_EOF_ return; } print <<_EOF_;

THANK YOU TO ALL WHO TURNED OUT AND HELPED MAKE THIS YEAR'S FESTIVAL SUCH A HUGE SUCCESS!

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

View Photo Gallery

Here is the performance schedule from the 2003 Hardly Strictly Bluegrass Festival:

_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 ( $artist eq $aname ) { my $ed = CGI::escape ($dref->{DATE}); 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_2003::ARTISTS{$key}->{NAME}"; } else { $title = "SBF: Artists"; } } } header ($title, $popup); if ( ! $show ) { print <<_EOF_;

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

View Full Schedule	View Full Artist List

_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $SBF_2003::ARTISTS{$key}; my $path; my @plays_text; my $tmp; my $an = $key; $an =~ tr/A-Z/a-z/; $path = "/web/www.strictlybluegrass.com/www/2003/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_;

$br _EOF_ } print "$art->{NAME}
\n"; # print "Plays: "; print &plays ($key, 1, @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_2003::ARTISTS{$a}->{NAME}); my $cmp_b = uc($SBF_2003::ARTISTS{$b}->{NAME}); ## skip over any leading html tags $a =~ s/^<[^>]+>//; $b =~ s/^<[^>]+>//; $cmp_a cmp $cmp_b; } keys (%SBF_2003::ARTISTS) ) { my $art = $SBF_2003::ARTISTS{$key}; my $play_2003; $play_2003 = &plays ($key, 1, @SBF_2003::SCHEDULE); if ( ! $play_2003 ) { next; } print <<_EOF_; \n\n"; } print "
Artist Date/Stage
$art->{NAME} _EOF_ print $play_2003; print "
\n"; } } elsif ( $show eq 'day' ) { print <<_EOF_;

Artist	Date/Stage
$art->{NAME}	_EOF_ print $play_2003; print "

_EOF_ if ( $key ) { print <<_EOF_; _EOF_ } print <<_EOF_;

View Full Schedule	View Artist List

_EOF_ print <<_EOF_; _EOF_ foreach my $dref ( @SBF_2003::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"; foreach my $art ( @{$sref->{ARTISTS}} ) { my $showtime; if ( $art =~ /^(.+)\\|(.+)$/ ) { $art = $1; $showtime = $2; } my $aref = $SBF_2003::ARTISTS{$art}; if ( $showtime ) { print "$showtime "; } print "$aref->{NAME} \n"; } print "

\n"; } footer ($popup);