#!/usr/bin/perl -w use strict; use CGI; use SBF_2005; use SBF_2004; use SBF_2003; use SBF_2002; use SBF_2001; use Image::Size; our $DISPLAY_TIMES = 1; our %QUICK_PICS = ( "IMG_1656-warren.jpg" => '"Warden" Hellman', "IMG_1658-pmw.jpg" => "Poor Man's Whiskey w/ Warren Hellman", "IMG_1666-joan.jpg" => "Joan Baez", "IMG_1684-buddy.jpg" => "Buddy Miller", "IMG_1688-wakethedead.jpg" => "Wake The Dead", "IMG_1693-doc.jpg" => "Doc Watson", "IMG_1696-crowd.jpg" => "Banjo Stage Crowd", "IMG_1709-doc_earl.jpg" => "Doc Watson & Earl Scruggs", "IMG_1717-earl.jpg" => "Earl Scruggs", "IMG_1720-gillian.jpg" => "Gillian Welch & David Rawlings", "IMG_1728-gillian.jpg" => "Gillian Welch & David Rawlings", "IMG_1789-steve.jpg" => "Steve Earle & The Bluegrass Dukes", ); sub file2caption { my $file = shift; my $caption = ''; my $t; $file =~ s/^.*\///g; $file =~ s/^IMG_\d+//g; $file =~ s/-/, /g; # $file =~ s/-.+/ /g; # $file =~ s/=(.+)/ - $1/; $file =~ s/=(.+)//; $file =~ s/\.(jpg|jpeg|gif)$//gi; $file =~ s/_/ /g; foreach $t ( split (/\s/, $file) ) { if ( $caption ) { $caption .= " "; } $caption .= ucfirst ($t); } $caption =~ s/(\s+)and(\s+)/$1&$2/gi; return $caption; } sub header { my $title = shift; my $popup = shift; if ( ! $title ) # { $title = "Hardly Strictly Bluegrass Festival 5: Oct 1 - 2, 2005"; } { $title = "Hardly Strictly Bluegrass Festival 5: Sep 30 - Oct 2, 2005"; } # my @ary = keys (%QUICK_PICS); # my $pic1_index = rand(scalar(@ary)); # my $pic1 = $ary[$pic1_index]; # my $pic1_caption = $QUICK_PICS{$pic1}; # splice (@ary, $pic1_index, 1); # # my $pic2_index = rand(scalar(@ary)); # my $pic2 = $ary[$pic2_index]; # my $pic2_caption = $QUICK_PICS{$pic2}; # splice (@ary, $pic2_index, 1); # # my $pic3_index = rand(scalar(@ary)); # my $pic3 = $ary[$pic3_index]; # my $pic3_caption = $QUICK_PICS{$pic3}; # splice (@ary, $pic3_index, 1); ### NEW VERISON my @ary = glob ("gallery/quick/*jpg"); my $pic1_index = int(rand(scalar(@ary))); my $pic1 = $ary[$pic1_index]; my $pic1_caption = file2caption($pic1); splice (@ary, $pic1_index, 1); my $pic2_index = int(rand(scalar(@ary))); my $pic2 = $ary[$pic2_index]; my $pic2_caption = file2caption($pic2); splice (@ary, $pic2_index, 1); my $pic3_index = int(rand(scalar(@ary))); my $pic3 = $ary[$pic3_index]; my $pic3_caption = file2caption($pic3); splice (@ary, $pic3_index, 1); print <<_EOF_; $title _EOF_ if ( $popup ) { print <<_EOF_;
Strictly Bluegrass
_EOF_ return; } print <<_EOF_;


Here is the performance schedule from the 2005 Hardly Strictly Bluegrass Festival. If you have questions, please check out our Frequent Questions page.


$pic1_caption
$pic2_caption
$pic3_caption

_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_keys = 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; } for ( my $i = 0; $i < scalar (@$artist_keys); $i++ ) { my $artist = $$artist_keys[$i]; 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"; } if ( $i > 0 ) { $str .= "
    (as $SBF_2005::ARTISTS{$aname}->{NAME})"; } } } } } } 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_2005::ARTISTS{$key}->{NAME}"; } else { $title = "SBF: Artists"; } } } header ($title, $popup); if ( ! $show ) { print <<_EOF_;

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

View Full Schedule View Full Artist List
_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $SBF_2005::ARTISTS{$key}; my $path; my @plays_text; my $tmp; my @keys; 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_ } @keys = ( $key ); if ( $art->{ALIASES} ) { push (@keys, @{$art->{ALIASES}}); } print "$art->{NAME}
\n"; # print "Plays: "; print &plays (\@keys, 1, @SBF_2005::SCHEDULE); $tmp = &plays (\@keys, 0, @SBF_2004::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @SBF_2003::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @SBF_2002::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @SBF_2001::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } 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_2005::ARTISTS{$a}->{NAME}); my $cmp_b = uc($SBF_2005::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_2005::ARTISTS) ) { my $art = $SBF_2005::ARTISTS{$key}; my $play_2005; my @keys = ( $key ); # not needed since we're only showing current year # if ( $SBF_2005::ARTISTS{$key}->{ALIASES} ) # { push (@keys, @{$SBF_2005::ARTISTS{$key}->{ALIASES}}); } $play_2005 = &plays (\@keys, 1, @SBF_2005::SCHEDULE); if ( ! $play_2005 ) { next; } print <<_EOF_; \n\n"; } print "
ArtistDate/Stage
$art->{NAME} _EOF_ print $play_2005; print "

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

_EOF_ if ( $key ) { print <<_EOF_; _EOF_ } print <<_EOF_;
View Full Schedule View Artist List
_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}} ) { if ( $cur_stage_num == $stages_per_line ) { $cur_stage_num = 0; print <<_EOF_;
_EOF_ } print "\n"; $cur_stage_num++; } } print "
$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_2005::ARTISTS{$art}; if ( $showtime ) { print "$showtime "; } printf "%s
    \n", $aref ? $aref->{NAME} : $art; } print "
\n"; } footer ($popup);