#!/usr/bin/perl -w use strict; use CGI; use SBF_2006; use SBF_2005; use SBF_2004; use SBF_2003; use SBF_2002; use SBF_2001; use Image::Size; our $DISPLAY_TIMES = 1; 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"; } { $title = "Hardly Strictly Bluegrass Festival 6: Oct 6 - Oct 8, 2006"; } ### NEW VERISON # my @ary = glob ("gallery/quick/*.jpg"); my @ary = glob ("gallery/full/*.jpg"); my $pic1_index = int(rand(scalar(@ary))); my $pic1 = $ary[$pic1_index]; my $pic1_caption = file2caption($pic1); my $pic2_index = int(rand(scalar(@ary))); my $pic2 = $ary[$pic2_index]; my $pic2_caption = file2caption($pic2); my $pic3_index = int(rand(scalar(@ary))); my $pic3 = $ary[$pic3_index]; my $pic3_caption = file2caption($pic3); my $pic4_index = int(rand(scalar(@ary))); my $pic4 = $ary[$pic4_index]; my $pic4_caption = file2caption($pic4); print <<_EOF_; $title _EOF_ if ( $popup ) { print <<_EOF_;
Strictly Bluegrass
_EOF_ return; } print <<_EOF_;


SEE YOU NEXT YEAR!
Thanks to all who joined us this year! Join us on Oct 6 & 7, 2007 when we'll be doing it again -- Doc Watson is already confirmed!
2006 EDITORIAL
Read reports from the festival.

Friday | Saturday | Sunday

random photos from the gallery [ view all ]


$pic1_caption
$pic2_caption
$pic3_caption
$pic4_caption

See below for the 2006 Hardly Strictly Bluegrass Festival schedule. If you have questions, please check out our Frequent Questions page.

_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_2006::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_2006::ARTISTS{$key}->{NAME}"; } else { $title = "SBF: Artists"; } } } header ($title, $popup); if ( ! $show ) { print <<_EOF_;

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

View Full Schedule View Full Artist List
_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $SBF_2006::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_2006::SCHEDULE); $tmp = &plays (\@keys, 0, @SBF_2005::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $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_2006::ARTISTS{$a}->{NAME}); my $cmp_b = uc($SBF_2006::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_2006::ARTISTS) ) { my $art = $SBF_2006::ARTISTS{$key}; my $play_2006; my @keys = ( $key ); # not needed since we're only showing current year # if ( $SBF_2006::ARTISTS{$key}->{ALIASES} ) # { push (@keys, @{$SBF_2006::ARTISTS{$key}->{ALIASES}}); } $play_2006 = &plays (\@keys, 1, @SBF_2006::SCHEDULE); if ( ! $play_2006 ) { next; } print <<_EOF_; \n\n"; } print "
ArtistDate/Stage
$art->{NAME} _EOF_ print $play_2006; 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_2006::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_2006::ARTISTS{$art}; if ( $showtime ) { print "$showtime "; } printf "%s
    \n", $aref ? $aref->{NAME} : $art; } print "
\n"; } footer ($popup);