#!/usr/bin/perl -w use strict; use CGI; use HSB_2012; use HSB_2011; 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 12: Oct 5 - 7, 2012"; } ### 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 12: Fr i Oct 5, Sat Oct 6 & Sun Oct 7

_EOF_ my $fh = new FileHandle("opts.html"); while (<$fh>) { print ; } $fh->close; print <<_EOF_;

Neighborhood questions / concerns during the festival? Call our Neighborhood Support Line - 415-386-8584

LEARN MORE ABOUT OUR FOUNDER, WARREN HELLMAN - COME TO OUR "WARREN MUSEUM"!
The museum is at 1479A Folsom St, SF, CA & open to the public for 1 week: Wed. 10/3 - Wed. 10/10, between 2 and 8pm.

2012 HSB MOBILE APPS ARE HERE! Click to download: IPHONE or ANDROID

_EOF_ $fh = new FileHandle ("printathome-include-artistpage.html"); if ( $fh ) { print <<_EOF_;
_EOF_ while (<$fh>) { print; } print <<_EOF_;
_EOF_ } print <<_EOF_;

ATTENTION! San Francisco is experiencing MANY large events on the weekend of HSB which will make parking extremely limited - PLEASE USE PUBLIC TRANSPORTATION!

See below for the 2012 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.
NEW! ARROW STAGE will be STREAMED LIVE Friday through Sunday! Click here to watch!

_EOF_ } } sub footer { my $popup = shift; if ( $popup ) { print <<_EOF_;
[ close window ]
_EOF_ } else { print <<_EOF_;
2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
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_2012::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_2012::ARTISTS{$key}->{NAME}"; } else { $title = "HSB: Artists"; } } } header ($title, $popup, $simple); if ( ! $show && ! $simple ) { print <<_EOF_;

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

View Full Schedule View Full Artist List
_EOF_ } if ( $show eq 'artists' ) { if ( $key ) { my $art = $HSB_2012::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 ( 0 && -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_2012::SCHEDULE); $tmp = &plays (\@keys, 0, @HSB_2011::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $tmp = &plays (\@keys, 0, @HSB_2010::SCHEDULE); if ( $tmp ) { push (@plays_text, $tmp); } $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_2012::ARTISTS{$a}->{NAME}); my $cmp_b = uc($HSB_2012::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_2012::ARTISTS) ) { my $art = $HSB_2012::ARTISTS{$key}; my $play_2012; my @keys = ( $key ); # not needed since we're only showing current year # if ( $HSB_2012::ARTISTS{$key}->{ALIASES} ) # { push (@keys, @{$HSB_2012::ARTISTS{$key}->{ALIASES}}); } $play_2012 = &plays (\@keys, 1, @HSB_2012::SCHEDULE); if ( ! $play_2012 ) { next; } print <<_EOF_; \n\n"; } print "
ArtistDate/Stage
$art->{NAME} _EOF_ print $play_2012; 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_2012::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"; if ( $sref->{NOTES} ) { print $sref->{NOTES}; } print "
    \n"; foreach my $art ( @{$sref->{ARTISTS}} ) { my $showtime; if ( $art =~ /^(.+)\|(.+)$/ ) { $art = $1; $showtime = $2; } if ( ! $DISPLAY_TIMES ) { undef $showtime; } print "
  • "; my $aref = $HSB_2012::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); }