#!/usr/bin/perl -w use strict; use CGI; use SBF_2007; 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 7: Oct 5 - Oct 7, 2007"; } ### 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_;



:: PRINT AT HOME KIT ::
Arrive at the park in style with your own copies of the HSB07 map, schedule, and artist bios! Simply download these PDF files and print them out at home before sauntering down to the park.

HSB 2007 Map
HSB 2007 Schedule
HSB 2007 Bios

You will need a PDF viewer such as Acrobat Reader to view and print these files.

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

Thank you for another great festival! We'll see you at HSB 8 - Oct 3-5, 2008!
_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_2007::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_2007::ARTISTS{$key}->{NAME}"; } else { $title = "SBF: Artists"; } } } header ($title, $popup); if ( ! $show ) { print <<_EOF_;

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

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