#!/usr/bin/perl -w use strict; use CGI; use HSB_2010; use HSB_2009; use HSB_2008; use HSB_2007; use HSB_2006; use HSB_2005; use HSB_2004; use HSB_2003; use HSB_2002; use HSB_2001; use Image::Size; use FileHandle; our $DISPLAY_TIMES = 1; sub file2caption { my $file = shift; my $caption = ''; my $t; no warnings 'uninitialized'; $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; my $simple = shift; if ( ! $title ) { $title = "Hardly Strictly Bluegrass Festival 10: Oct 1 - Oct 3, 2010"; } ### 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); if ( ! $simple ) { print <<_EOF_; $title _EOF_ } print <<_EOF_; _EOF_ if ( $popup ) { print <<_EOF_;
Strictly Bluegrass
_EOF_ return; } if ( ! $simple ) { print <<_EOF_;

Hardly Strictly Bluegrass 2010

Speedway Meadow in Golden Gate Park
FREE SHOW - NO TICKETS NEEDED
_EOF_ my $fh = new FileHandle ("printathome-include.html"); if ( $fh ) { print <<_EOF_;
_EOF_ while (<$fh>) { print; } print <<_EOF_;
_EOF_ } print <<_EOF_;

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

Note: Schedule and show times are subject to change.

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

Click here for general information and our
Frequently Asked Questions (including transportation info)

fbtwitter
Questions, Comments and Feedback
questions\@hardlystrictlybluegrass.com
To Enquire About Volunteer Opportunities
volunteer\@hardlystrictlybluegrass.com
2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
site by chime
_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 $HSB_2010::ARTISTS{$aname}->{NAME})"; } } } } } } return $str; } ### ## MAIN BODY ### my $query = new CGI; my $show = $query->param('show'); my $popup = $query->param('popup'); my $simple = $query->param('simple'); my $key = $query->param('key'); my $title; print $query->header; if ( $show ) { if ( $show eq 'artists' ) { if ( $key ) { $title = "HSB: $HSB_2010::ARTISTS{$key}->{NAME}"; } else { $title = "HSB10: Artists"; } } } header ($title, $popup, $simple); if ( ! $show && ! $simple ) { print <<_EOF_;

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

View Full Schedule View Full Artist List
_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $HSB_2010::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, @HSB_2010::SCHEDULE); $tmp = &plays (\@keys, 0, @HSB_2009::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2008::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2007::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2006::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2005::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2004::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2003::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2002::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_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($HSB_2010::ARTISTS{$a}->{NAME}); my $cmp_b = uc($HSB_2010::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 (%HSB_2010::ARTISTS) ) { my $art = $HSB_2010::ARTISTS{$key}; my $play_2010; my @keys = ( $key ); # not needed since we're only showing current year # if ( $HSB_2010::ARTISTS{$key}->{ALIASES} ) # { push (@keys, @{$HSB_2010::ARTISTS{$key}->{ALIASES}}); } $play_2010 = &plays (\@keys, 1, @HSB_2010::SCHEDULE); if ( ! $play_2010 ) { next; } print <<_EOF_; \n\n"; } print "
ArtistDate/Stage
$art->{NAME} _EOF_ print $play_2010; print "

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

_EOF_ if ( $key ) { print <<_EOF_; _EOF_ } print <<_EOF_;
View Full Schedule View Artist List
_EOF_ } foreach my $dref ( @HSB_2010::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 = $HSB_2010::ARTISTS{$art}; if ( $showtime ) { print "$showtime "; } my $art_display = ''; if ( $aref ) { $art_display = $aref->{NAME}; } else { foreach my $t ( split (/_/, lc($art)) ) { if ( $art_display ) { $art_display .= " "; } $art_display .= ucfirst ($t); } $art_display = $art; } printf "%s
    \n", $art_display; } print "
\n"; } if ( ! $simple ) { footer ($popup); }