#! /usr/bin/perl use warnings; use strict; use feature qw'say'; use DBI; # source: New1229dbWithDblQuotes.sqlite; output: 1231STM.htm # TBD: see pod at LN 150 BEGIN { warn "Exe:$^X , Ver:$^V , File:$0 \n" } # get data from db my $db = 'DBI'->connect('dbi:SQLite:dbname=New1229dbWithDblQuotes.sqlite', q(), q(), { RaiseError => 1, }); my $select = $db->prepare(<< '__SQL__'); SELECT events.item, events.type, events.note, events.longdesc, times.starttime, times.endtime, times.place, times.who, times.note, times.extra FROM events, times WHERE times.starttime LIKE "2016-08-0_ %" AND events.link_id = times.link_id ORDER BY times.starttime __SQL__ my ($link_id, $events_item, $events_type, $events_note, $events_longdesc, $starttime, $endtime, $place, $who, $note, $extra, %skedhash, $skedhash, $FH_out); my $old_daymarker = '2016-08-03'; # 1 day before ofcl CVN start; flag for day dividers; see Ln 74 et seq my $daymarker; # tested (in truncated form) for equality to $old_daymarker $select->execute or die $DBI::errstr; # Create html #LN 32 my $file="1231STM.htm"; open ($FH_out, ">", $file) or die "Can not open $file", $!; # masthead print $FH_out <<__HEADER__; Doublequotetest

2017 Stellafane Convention Schedule

__HEADER__ print $FH_out <<__STARTTABLE__; \n \n\n __STARTTABLE__ #################################################### sub sked { #LN 67 no warnings "uninitialized"; %skedhash = @_; if ($skedhash{'who'} ne '') { $skedhash{'who'} = "Hosted by $skedhash{'who'}"; } # next LN = 74 $daymarker = substr $skedhash{"starttime"}, 0, 10; # truncate to date element only; omit time if ( $daymarker !~ /$old_daymarker.*/ ) { $old_daymarker = $daymarker; # update the flag # daymarker used in Date::Day (needs an array mm,dd,yyyy or string: mm,dd,yyyy ## my @orig = split /-/, $skedhash{"starttime"}, 3; # split only first 3 elements my @fixed; push @fixed, $orig[1]; push @fixed, $orig[2]; push @fixed, $orig[0]; my $newday; $newday = &day(@fixed); use Date::Day; my $display_date = "$orig[1]-$orig[2]-$orig[0]"; my $STM_day = &day(@fixed); # 3 or 4 letter day !!Date::Day needs array mm,dd,yyyy ### my $ID_day; $ID_day = qq[]; # for anchor; say $FH_out <<__DAYDIVIDER__; __DAYDIVIDER__ } print $FH_out qq[ \n \n \n ]; use warnings "all"; } ### END sub sked() ######## my $sql = qq/SELECT events.link_id, events.item, events.type, events.note, events.longdesc, times.starttime, times.endtime, times.place, times.who, times.note, times.extra FROM events, times WHERE events.link_id = times.link_id ORDER BY starttime/; my $sth = $db->prepare($sql); # LN125 $sth->execute(); while ( my ($events_link_id, $events_item, $events_type, $events_note, $events_longdesc, $starttime, $endtime, $place, $who, $note, $extra) = $sth->fetchrow_array ) { my %skedrow = ( 'events_link_id' => $events_link_id, 'events_item' => $events_item, 'events_type' => $events_type, 'events_note' => $events_note, 'events_longdesc' => $events_longdesc, 'starttime' => $starttime, 'endtime' => $endtime, 'place' => $place, 'who' => $who, 'note' => $note, 'extra' => $extra, ); sked(%skedrow); } # wrap up the html say $FH_out '

Event, Type, Host or Moderator, When & Where	Additional Info
$ID_day $STM_day, $display_date
$skedhash{"events_item"} $skedhash{"events_type"} \n $skedhash{"who"}\n \n $skedhash{"starttime"} - $skedhash{"endtime"} $skedhash{"place"}	$skedhash{"note"}
$skedhash{"events_longdesc"}

More to come

2017 Stellafane Convention Schedule

$STM_day, $display_date