#!/usr/bin/perl use Date::Parse; use Date::Manip; use HTML::Entities; use DBI; use CGI; Date_Init("TZ=PDT"); $cgi = new CGI; print $cgi->header("text/html"); print <Square Dance Hoedown and Festival Calendar

Square Dance Hoedown and Festival Calendar

HOME
of the Tam Twirlers

ABOUT
the Tam Twirlers

WHERE
we dance

INTRODUCTION
to Square Dancing

CALENDAR
of Square Dance Events

CALLS
with TAMinations

LINKS
to other Clubs and Resources

This calendar lists hoedowns (1-day events) in the Bay Area, and festivals (multiple-day events) in California, and a few national conventions. Fliers are displayed to fit your screen, but will print at a higher resolution (300 dpi). Send any updates or corrections to HTML $| = 1; # Get every square dance hoedown in the future $dbh = DBI->connect('DBI:mysql:database=db98671327;host=db32.perfora.net', 'dbo98671327','YZbNSEHW'); $dbh->{LongReadLen} = 16777214; $sth = $dbh->prepare("SELECT id,start,end,duration,title,details ". "FROM calendar ". "WHERE category = 'squaredance' AND ". "start >= '".UnixDate(scalar localtime,"%Y-%m-%d")."' ". "ORDER BY start"); $sth->execute; while (my ($id,$start,$end,$duration,$title,$body) = $sth->fetchrow_array) { my $caller = ($body =~ (/caller\s*:\s*(.*)/i))[0]; next unless $caller =~ /\S/; ($start,$end) = (str2time($start),str2time($end)); my $days = int(($end-$start)/(60*60*24)+0.5); my $date = UnixDate(scalar localtime($start),'%A, %B %e, %Y'); my $link = ($body =~ (/link\s*:\s*(.*)/i))[0]; $link =~ s|(\S+)|Link|; $fp = 'p1'; my $flier = ($body =~ (/flier\s*:\s*(\S+)/i))[0]; if ($flier) { if (-e "hoedowns/$flier.html") { $flier = "Flier"; } elsif (-e "hoedowns/$flier.pdf") { $flier = "Flier"; } else { $flier = 'Flier'; } } my $details = ($body =~ (/details\s*:\s*(.*)/i))[0]; $details =~ s/\n/
\n/gs; $time = ''; if ($duration > 0) { $time = UnixDate(scalar localtime($start),'%i:%M').'-'. UnixDate(scalar localtime($start+60*$duration),'%i:%M'); } elsif ($days > 1) { $time = $days.' days'; } my $location = ($body =~ (/location\s*:\s*(.*)/i))[0]; my $level = ($body =~ (/level\s*:\s*(.*)/i))[0]; print "", "", "", "", "", "", "", "", "\n"; } print "

Date	Time	Title	Location	Caller	Level	Details	Flier	Link
$date	$time	$title	$location	$caller	$level	$details	$flier	$link

\n";