HPR/hpr-tools
5
0
Fork 1
Code Issues 11 Pull Requests Packages Projects Releases Wiki Activity

Updates prior to the handover to SGOTI

Browse Source 
.make_email.cfg: New configuration file to simplify the original options
    to 'make_email'

.make_shownotes.cfg:  New configuration file to simplify the original
    extremely obscure options to 'make_shownotes'

collect_HPR_database: Script to simplify the collection and setup
    of MySQL dumps from the HPR server and conversion to a SQLite
    database.

make_email: Many changes to make the script simpler to use. It looks for
    all files in the same directory as the script. Reduced the number of
    options and added a new configuration file. Now reads and writes
    a date cache file (defined in the configuration file) where it
    writes the date and time of the next recording. Now uses a local
    SQLite database rather than linking to the live HPR database (more
    secure). Takes an output file name (with optional '%s'). Functions
    for loading and updating the date cache (also used by
    'make_shownotes'). Doesn't attempt to generate a real mail message,
    just something that can be cut and pasted into a mail client.

make_email_template.tpl: TT2 template for generating the mail message.
    This whole function was moved from the script itself to this
    templating system, making it all a lot simpler.

make_meeting: Minor updates. This script is probably obsolete.

make_shownotes: Almost totally rewritten. It looks for all files in the
    same directory as the script. Reduced the number of options and
    added a new configuration file. Now reads a date cache
    file (defined in the configuration file) where 'make_email' has
    written the date and time of the next recording. Now generates
    output files rather than writing to the live HPR database. These
    files can be added to the database on the 'hub' using existing
    workflow(s). One of the files generated is a stand-alone full HTML file
    for circulation to volunteers recording the show. The others are the
    HTML snippet to add to the database, and a JSON version for use in
    the hub workflow. The full HTML gets the expanded comments and
    contains markers of comments already read or missed last month. This
    version computes the episode number and date which will be used to
    post the resulting show (previously reserved slots were searched for
    in the database). The extremely complex query that collects comments
    has been thoroughly tested and enhanced and seems to be reliable.
    Dropped the "Any Other Business" section (and all code relating to
    it in the script and the template).

shownote_template.tpl: Soft link to the latest template. Doing this
    needs consideration given that the configuration file could just
    reference the appropriate file. This technique may just be
    a nuisance.

shownote_template11.tpl: Previous template, updated for the last release
    of 'make_shownotes'. Now replaced.

shownote_template12.tpl: New template without AOB capability.
This commit is contained in:
Dave Morriss 2025-03-31 21:59:14 +01:00
parent ee4a174233
commit a83e945c08
11 changed files with 2405 additions and 1407 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Community_News/.make_email.cfg Normal file
View File

@ -0,0 +1,21 @@
<email>
server = chatter.skyehaven.net
port = 64738
room = HPR
# Default day of the week
dayname = Friday
# Times are UTC
starttime = 15:00:00
endtime = 17:00:00
# Usually 2 hours are set aside. This value is used when a different start
# time is provided and no end time.
duration = 02 # hours
# Template is in the current directory
template = make_email_template.tpl
</email>
<database>
name = hpr.db
</database>
<recdates>
name = recording_dates.dat
</recdates>

45
Community_News/.make_shownotes.cfg Normal file
View File

@ -0,0 +1,45 @@
#
# .make_shownotes.cfg (2025-03-27)
# Configuration file for make_shownotes version >= 4
#
<settings>
title_template = HPR Community News for %s %s
summary_template = HPR Volunteers talk about shows released and comments posted in %s %s
# Repeat the following line with each of the desired tags to make an
# array-like structure
tags = Community News
# Host id for HPR Volunteers
# Series id for HPR Community News series
hostid = 159
series_id = 47
# Day the Community News show is released
releaseday = Monday
# Default day of the week for the recording
recordingday = Friday
# Recording times are UTC
starttime = 16:00:00
endtime = 17:00:00
# cache of previous recording dates and times
cache = recording_dates.dat
# Templates
# ---------
# Main note template (actually a soft link)
main_template = shownote_template.tpl
# Used to make a stand-alone HTML file from the default HTML
# fragment
container_template = shownotes_container.tpl
</settings>
<database>
# Assume a local file
name = hpr.db
</database>

3
Community_News/build_AOB
View File

@ -241,7 +241,8 @@ AOBMKD="$BASEDIR/aob_$startdate.mkd"
# --define "table=$TMP1" "$AOBMKD" |\ # --define "table=$TMP1" "$AOBMKD" |\
# pandoc -f markdown-smart -t html5 -o "${AOBMKD%mkd}html"; then # pandoc -f markdown-smart -t html5 -o "${AOBMKD%mkd}html"; then
# #
if pandoc -f markdown-smart -t html5 "$AOBMKD" -o "${AOBMKD%mkd}html"; then if tpage "$AOBMKD" |\
pandoc -f markdown-smart -t html5 -o "${AOBMKD%mkd}html"; then
echo "Converted $AOBMKD to HTML" echo "Converted $AOBMKD to HTML"
else else
echo "Conversion of $AOBMKD to HTML failed" echo "Conversion of $AOBMKD to HTML failed"

122
Community_News/collect_HPR_database Executable file
View File

@ -0,0 +1,122 @@
#!/bin/bash -
#===============================================================================
#
# FILE: collect_HPR_database
#
# USAGE: ./collect_HPR_database
#
# DESCRIPTION: Collects the SQL dump of the public copy of the HPR database
# from the website and converts it to SQLite.
#
# OPTIONS: None
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: There are dependencies on mysql2sqlite and sqlite3. The former
# comes from https://github.com/mysql2sqlite and is expected to
# be in the same directory as this script. The sqlite3 package
# needs to be installed from the repository appropriate to the
# local OS. It is assumed that wget is available. The script
# uses auto-deleted temporary files for the MySQL dump, and the
# dump converted for SQLite.
# AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
# VERSION: 0.0.1
# CREATED: 2025-02-22 16:52:40
# REVISION: 2025-02-22 17:56:00
#
#===============================================================================
set -o nounset # Treat unset variables as an error
SCRIPT=${0##*/}
BASEDIR=${0%/*}
VERSION="0.0.1"
# {{{ -- Functions: cleanup_temp
#=== FUNCTION ================================================================
# NAME: cleanup_temp
# DESCRIPTION: Cleanup temporary files in case of a keyboard interrupt
# (SIGINT) or a termination signal (SIGTERM) and at script
# exit. Expects to be called from 'trap' so it can just exit
# (assuming it's all that's called)
# PARAMETERS: * - names of temporary files to delete
# RETURNS: Nothing
#===============================================================================
function cleanup_temp {
for tmp; do
[ -e "$tmp" ] && rm --force "$tmp"
done
exit 0
}
# }}}
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
# Make sure we're where the script lives
#
cd "$BASEDIR" || { echo "$SCRIPT: Failed to cd to $BASEDIR"; exit 1; }
#
# Make temporary files and set traps to delete them
#
TMP1=$(mktemp) || {
echo "$SCRIPT: creation of temporary file failed!"
exit 1
}
TMP2=$(mktemp) || {
echo "$SCRIPT: creation of temporary file failed!"
exit 1
}
trap 'cleanup_temp $TMP1 $TMP2' SIGHUP SIGINT SIGPIPE SIGTERM EXIT
#
# Definition of files
#
#-------------------------------------------------------------------------------
mysql2sqlite="$BASEDIR/mysql2sqlite"
snapshot_url="https://www.hackerpublicradio.org/hpr.sql"
db_name="hpr.db"
#-------------------------------------------------------------------------------
#
# Sanity check
#
[ -e "$mysql2sqlite" ] || {
echo "$SCRIPT: Unable to find mandatory script $mysql2sqlite"
exit 1
}
#
# Collect the SQL dump into a temporary file`
#
if ! wget -q "$snapshot_url" -O "$TMP1"; then
echo "$SCRIPT: Failed to download from $snapshot_url"
exit 1
fi
#
# Delete the SQLite database if it exists (otherwise the new data is merged
# with it causing chaos)
#
[ -e "$db_name" ] && rm -f "$db_name"
#
# Convert the MySQL/MariaDB dump. First run sed on it, then run mysql2sqlite
# (from https://github.com/mysql2sqlite) to do the SQL dump conversion. Use
# the result to make a SQLite database.
#
sed '/^DELIMITER ;;/,/^DELIMITER ;/d' "$TMP1" > "$TMP2"
$mysql2sqlite "$TMP2" | sqlite3 "$db_name"
#
# Report success if the new database exists
#
if [[ -e "$db_name" ]]; then
echo "Created SQLite database '$db_name'"
else
echo "Failed to find the expected new database '$db_name'"
fi
# vim: syntax=sh:ts=8:sw=4:ai:et:tw=78:fo=tcrqn21:fdm=marker

609
Community_News/make_email
View File

@ -3,56 +3,60 @@
# #
# FILE: make_email # FILE: make_email
# #
# USAGE: ./make_email [-debug=N] [-month=DATE] [-from=ADDRESS] # USAGE: ./make_email [-debug=N] [-month=DATE] [-date=DATE]
# [-to=ADDRESS] [-[no]mail] [-date=DATE] [-start=START_TIME] # [-start=START_TIME] [-end=END_TIME] [-output[=FILE]]
# [-end=END_TIME] [-config=FILE] [-dbconfig=FILE] # [-config=FILE]
# #
# DESCRIPTION: Make and send an invitation email for the next Community News # DESCRIPTION: Make an invitation email for the next Community News
# with times per timezone. # with times per timezone.
# #
# The configuration file (.make_email.cfg) defines the name of # The configuration file (.make_email.cfg) defines the name of
# the email template and the defaults used when generating the # the email template and the defaults used when generating the
# message. The date of the recording is computed from the # message. The date of the recording is computed from the
# current month (Saturday before the first Monday of the month # current month (Friday before the first Monday of the month
# when the show will be posted). It can also be specified # when the show will be posted). It can also be specified
# through the -date=DATE option. # through the -date=DATE option.
# #
# The month the email relates to can be changed through the # The month the email relates to can be changed through the
# -month=DATA option, though this is rarely used. Use a date of # -month=DATE option, though this is rarely used. Use a date of
# the format 'YYYY-MM-DD' here. The day is ignored but the year # the format 'YYYY-MM-DD' here. The day is ignored but the year
# and month are used in the computation. The month specified # and month are used in the computation. The month specified
# must be in the future. # must be in the future.
# #
# The database configuration file defines the database to be
# used to compute the date and show number. Use .hpr_db.cfg for
# the local MariaDB copy (for testing) and .hpr_livedb.cfg for
# the live database (over the ssh tunnel, which must have been
# opened already).
#
# OPTIONS: --- # OPTIONS: ---
# REQUIREMENTS: --- # REQUIREMENTS: ---
# BUGS: --- # BUGS: ---
# #
# NOTES: Does not send the email at present. Needs work # NOTES: Does not send the email at present. Needs work
# 2022-02-28: DBD::MariaDB has vanished, had to revert to MySQL # 2022-02-28: DBD::MariaDB has vanished, had to revert to MySQL
# again # again.
# 2025-02-22: Moved to SQLite for the database
# 2025-02-23: Dropped Mail::Mailer and all related code. The
# output is now written to STDOUT or an output file.
# #
# AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com # AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
# VERSION: 0.2.7 # VERSION: 0.3.3
# CREATED: 2013-10-28 20:35:22 # CREATED: 2013-10-28 20:35:22
# REVISION: 2024-05-24 18:53:17 # REVISION: 2025-02-28 14:40:28
# #
#=============================================================================== #===============================================================================
use 5.010; use v5.36;
use strict; use utf8;
use warnings; use feature qw{ try };
no warnings qw{ experimental::try };
use open ':std', ':encoding(UTF-8)'; # Make all IO UTF-8
use Cwd qw( abs_path );
use Getopt::Long; use Getopt::Long;
use Pod::Usage; use Pod::Usage;
use Config::General; use Config::General;
use File::Copy;
use Date::Parse; use Date::Parse;
use DateTime; use DateTime;
@ -63,8 +67,6 @@ use Date::Calc qw{:all};
use Template; use Template;
use Mail::Mailer;
use DBI; use DBI;
use Data::Dumper; use Data::Dumper;
@ -72,7 +74,7 @@ use Data::Dumper;
# #
# Version number (manually incremented) # Version number (manually incremented)
# #
our $VERSION = '0.2.7'; our $VERSION = '0.3.3';
# #
# Script name # Script name
@ -85,11 +87,16 @@ our $VERSION = '0.2.7';
# #
# Constants and other declarations # Constants and other declarations
# #
my $basedir = "$ENV{HOME}/HPR/Community_News"; ( my $basedir = abs_path($0) ) =~ s|/?[^/]*$||mx;
my $configfile1 = "$basedir/.${PROG}.cfg"; my $configfile = "$basedir/.${PROG}.cfg";
my $configfile2 = "$basedir/.hpr_db.cfg";
my ( $dbh, $sth1, $sth2, $sth3, $h1, $h2, $rv ); my ( $dbh, $sth1, $h1, $h2, $rv );
my ( %recdates, $rdfh );
#
# Run in the script's directory
#
chdir($basedir);
# #
# The timezones we want to report. These were generated with # The timezones we want to report. These were generated with
@ -495,18 +502,10 @@ my @zones = (
#}}} #}}}
); );
#
# Enable Unicode mode
#
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";
# #
# Defaults for options # Defaults for options
# #
my $DEF_DEBUG = 0; my $DEF_DEBUG = 0;
my $DEF_FROM = 'Dave.Morriss@gmail.com';
my $DEF_TO = 'perloid@autistici.org';
# #
# Options and arguments # Options and arguments
@ -521,43 +520,26 @@ pod2usage( -msg => "$PROG version $VERSION\n", -verbose => 0, -exitval => 1 )
if ( $options{'help'} ); if ( $options{'help'} );
# #
# Full documentation if requested with -doc # Full documentation if requested with -doc[umentation] or -man
# #
pod2usage( pod2usage(
-msg => "$PROG version $VERSION\n", -msg => "$PROG version $VERSION\n",
-verbose => 2, -verbose => 2,
-exitval => 1, -exitval => 1,
# -noperldoc => 0,
) if ( $options{'documentation'} ); ) if ( $options{'documentation'} );
# #
# Collect options # Collect options
# #
my $DEBUG = ( defined( $options{debug} ) ? $options{debug} : $DEF_DEBUG ); my $DEBUG = ( defined( $options{debug} ) ? $options{debug} : $DEF_DEBUG );
my $month = $options{month}; my $month = $options{month};
my $mail = ( defined( $options{mail} ) ? $options{mail} : 0 ); my $date = $options{date};
my $from_address = ( my $start = $options{starttime};
defined( $options{fromaddress} ) ? $options{fromaddress} : $DEF_FROM ); my $end = $options{endtime};
my $to_address my $outfile = $options{output};
= ( defined( $options{toaddress} ) ? $options{toaddress} : $DEF_TO );
my $date = $options{date};
my $start = $options{starttime};
my $end = $options{endtime};
# This value is in the configuration file and can't be overridden. The planned
# end time can be specified however.
#my $duration = $options{duration};
my $cfgfile my $cfgfile
= ( defined( $options{config} ) ? $options{config} : $configfile1 ); = ( defined( $options{config} ) ? $options{config} : $configfile );
my $dbcfgfile
= ( defined( $options{dbconfig} ) ? $options{dbconfig} : $configfile2 );
#
# Use the 'testfile' mailer if option -nomail was chosen. This writes the file
# 'mailer.testfile' and sends no message
#
my $mailertype = ( $mail ? 'sendmail' : 'testfile' );
# #
# Sanity checking the options # Sanity checking the options
@ -565,39 +547,26 @@ my $mailertype = ( $mail ? 'sendmail' : 'testfile' );
die "Unable to find $cfgfile\n" unless ( -e $cfgfile ); die "Unable to find $cfgfile\n" unless ( -e $cfgfile );
die "Use only one of -month=MONTH or -date=DATE\n" die "Use only one of -month=MONTH or -date=DATE\n"
if (defined($month) && defined($date)); if (defined($month) && defined($date));
#die "Use only one of -endtime=TIME or -duration=HOURS\n"
# if (defined($end) && defined($duration));
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# Load script and database configuration data # Load configuration data
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
my $conf = new Config::General( my $conf = Config::General->new(
-ConfigFile => $cfgfile, -ConfigFile => $cfgfile,
-InterPolateVars => 1, -InterPolateVars => 1,
-ExtendedAccess => 1 -ExtendedAccess => 1
); );
my %config = $conf->getall(); my %config = $conf->getall();
#print Dumper( \%config ), "\n"; _debug( $DEBUG >= 2, '%config: ' . Dumper( \%config ) );
# #
# Load database configuration data # Configuration file values for the email text with defaults and/or checks
#
my $dbconf = new Config::General(
-ConfigFile => $dbcfgfile,
-InterPolateVars => 1,
-ExtendedAccess => 1
);
my %dbconfig = $dbconf->getall();
#print Dumper( \%dbconfig ), "\n";
#
# Configuration file values with defaults and/or checks
# #
my $server = $config{email}->{server} // 'chatter.skyehaven.net'; my $server = $config{email}->{server} // 'chatter.skyehaven.net';
my $port = $config{email}->{port} // 64738; my $port = $config{email}->{port} // 64738;
my $room = $config{email}->{room} // 'Hacker Public Radio'; my $room = $config{email}->{room} // 'Hacker Public Radio';
my $duration = $config{email}->{duration} // 2; my $duration = $config{email}->{duration} // 2; # Hours
my $dayname = $config{email}->{dayname} // 'Sunday'; my $dayname = $config{email}->{dayname} // 'Friday';
# #
# If we had a start time specified then check it and ensure the end time makes # If we had a start time specified then check it and ensure the end time makes
@ -637,9 +606,33 @@ my @starttime = split( ':', $start );
my @endtime = split( ':', $end ); my @endtime = split( ':', $end );
die "Missing start/end time(s)\n" unless ( @starttime && @endtime ); die "Missing start/end time(s)\n" unless ( @starttime && @endtime );
#
# The template from the configuration file
#
my $template = $config{email}->{template}; my $template = $config{email}->{template};
die "Missing template file $template\n" unless (-e $template); die "Missing template file $template\n" unless (-e $template);
#
# Recording date cache filename in the configuration file
#
my $recdatefile = $config{recdates}->{name};
unless ($recdatefile) {
warn "No recording date file defined in configuration";
say STDERR "Continuing without this file";
}
elsif ( ! -e $recdatefile) {
warn "Can't find recording date file $recdatefile";
say STDERR "Continuing without this file";
$recdatefile = undef;
}
#
# Load the recording dates
#
if ($recdatefile) {
%recdates = load_cache($recdatefile, $rdfh);
}
_debug($DEBUG >= 2, _debug($DEBUG >= 2,
'$start: ' . coalesce($start,''), '$start: ' . coalesce($start,''),
'$end: ' . coalesce($end,''), '$end: ' . coalesce($end,''),
@ -655,24 +648,17 @@ if ($DEBUG >= 1) {
# 2021-12-24: moved to MariaDB # 2021-12-24: moved to MariaDB
# 2022-02-28: the MariaDB driver has gone away apparently. Reverted to MySQL # 2022-02-28: the MariaDB driver has gone away apparently. Reverted to MySQL
# again # again
# 2025-02-22: Converted to SQLite
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
my $dbhost = $dbconfig{database}->{host} // '127.0.0.1'; my $dbname = $config{database}->{name};
my $dbport = $dbconfig{database}->{port} // 3306;
my $dbname = $dbconfig{database}->{name};
my $dbuser = $dbconfig{database}->{user};
my $dbpwd = $dbconfig{database}->{password};
#$dbh = DBI->connect( "DBI:MariaDB:database=$dbname;host=$dbhost;port=$dbport",
# $dbuser, $dbpwd, { AutoCommit => 1 } )
# or croak $DBI::errstr;
$dbh = DBI->connect( "dbi:mysql:host=$dbhost;port=$dbport;database=$dbname", $dbh = DBI->connect( "DBI:SQLite:dbname=$dbname",
$dbuser, $dbpwd, { AutoCommit => 1 } ) "", "", { AutoCommit => 1 } );
or die $DBI::errstr;
# #
# Enable client-side UTF8 # Enable client-side UTF8
# #
$dbh->{mysql_enable_utf8} = 1; $dbh->{sqlite_unicode} = 1;
# #
# Date and time values using Date::Calc format # Date and time values using Date::Calc format
@ -681,7 +667,7 @@ my @today = Today();
my @startdate; my @startdate;
my @startmonth; my @startmonth;
my @reviewdate; my @reviewdate;
my $monday = 1; # Day of week number 1-7, Monday-Sunday my $monday = 1; # Day of week number 1-7, Monday-Sunday
my $offset = day_offset($dayname)->{offset}; my $offset = day_offset($dayname)->{offset};
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
@ -689,7 +675,7 @@ my $offset = day_offset($dayname)->{offset};
# or the current date. # or the current date.
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# #
# If there's an argument then it'll be an override for the start date # If there's a -date=DATE option then it'll be an override for the start date
# otherwise we'll compute it. # otherwise we'll compute it.
# #
if ( defined($date) ) { if ( defined($date) ) {
@ -726,7 +712,8 @@ elsif ( defined($month) ) {
# #
# Compute the next meeting date from now (by finding the next first Monday # Compute the next meeting date from now (by finding the next first Monday
# of the month then backing up two days to the Saturday). # of the month then backing up two days to the desired day - default
# Friday).
# #
@startdate = make_date( \@startmonth, $monday, 1, $offset ); @startdate = make_date( \@startmonth, $monday, 1, $offset );
} }
@ -745,9 +732,11 @@ _debug($DEBUG >= 2, '@startdate: ' . join(',',@startdate));
# before. # before.
# #
if ( $startdate[1] eq $today[1] ) { if ( $startdate[1] eq $today[1] ) {
# Same month
@reviewdate = @startdate; @reviewdate = @startdate;
} }
else { else {
# Previous month - backup 1 month
@reviewdate = Add_Delta_YM( @startdate, 0, -1 ); @reviewdate = Add_Delta_YM( @startdate, 0, -1 );
} }
@ -755,7 +744,8 @@ _debug($DEBUG >= 2, '@reviewdate: ' . join(',',@reviewdate));
# #
# Transfer Date::Calc values into hashes for initialising DateTime objects so # Transfer Date::Calc values into hashes for initialising DateTime objects so
# we can play time zone games # we can play time zone games. (Note: %dtargs is a hash and we're using hash
# slicing to initialise it).
# #
my ( %dtargs, $dtstart, $dtend ); my ( %dtargs, $dtstart, $dtend );
@dtargs{ 'year', 'month', 'day', 'hour', 'minute', 'second', 'time_zone' } @dtargs{ 'year', 'month', 'day', 'hour', 'minute', 'second', 'time_zone' }
@ -775,14 +765,15 @@ my $days = $dtf->format_duration($dtoffset);
# #
# Formatted dates for the mail message body # Formatted dates for the mail message body
# #
my ( $year, $monthname, $nicedate, $starttime, $endtime ) = ( my ( $year, $monthno, $monthname, $nicedate, $starttime, $endtime ) = (
$dtstart->strftime("%Y"), Month_to_Text( $reviewdate[1] ), $dtstart->strftime("%Y"), $dtstart->strftime("%m"),
$dtstart->strftime("%A, %B %d %Y"), $dtstart->strftime("%R (%Z)"), Month_to_Text( $reviewdate[1] ), $dtstart->strftime("%A, %B %d %Y"),
$dtend->strftime("%R (%Z)"), $dtstart->strftime("%R (%Z)"), $dtend->strftime("%R (%Z)"),
); );
_debug($DEBUG >= 2, _debug($DEBUG >= 2,
"\$year: $year", "\$year: $year",
"\$monthno: $monthno",
"\$monthname: $monthname", "\$monthname: $monthname",
"\$nicedate: $nicedate", "\$nicedate: $nicedate",
"\$starttime: $starttime", "\$starttime: $starttime",
@ -800,38 +791,50 @@ my $subject = $dtstart->strftime(
_debug( $DEBUG >= 2, "\$subject: $subject" ); _debug( $DEBUG >= 2, "\$subject: $subject" );
# #-------------------------------------------------------------------------------
# Prepare to send mail # Open the output file (or STDOUT) - we may need the year and month number to
# # do it, if the file name contains '%s'.
my $mailer = Mail::Mailer->new($mailertype); #-------------------------------------------------------------------------------
my $outfh;
if ($outfile) {
$outfile = sprintf( $outfile, sprintf( "%d-%02d", $year, $monthno ) )
if ( $outfile =~ /%s/ );
# open( $outfh, ">:encoding(UTF-8)", $outfile )
# Generate the headers we need or die "Unable to open $outfile for writing: $!\n";
# }
$mailer->open( else {
{ To => $to_address, open( $outfh, ">&", \*STDOUT )
From => $from_address, or die "Unable to initialise for writing: $!\n";
Subject => $subject, }
}
);
# #
# Build an array of timezone data for the template # Build an array of timezone data for the template
# #
my @timezones; my @timezones;
for my $tz (@zones) { for my $tz (@zones) {
push( @timezones, storeTZ( $dtstart, $dtend, $tz ) ); push( @timezones, storeTZ( $dtstart, $dtend, $tz ) );
} }
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# Find the number of the show with the notes. Take care because the recording # Find the number of the show with the notes. Take care because the recording
# date might not be on the weekend before the show is released. # date might not be on the weekend before the show is released.
# TODO: If this search fails (because in future Community News shows will not
# be reserved), then the date needs to be computed.
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
my $isodate = $dtstart->ymd; my $isodate = $dtstart->ymd;
#$sth1 = $dbh->prepare(q{
# SELECT id FROM eps
# WHERE date > ?
# AND date_format(date,"%W") = 'Monday'
# AND title LIKE 'HPR Community News%'
# ORDER BY date
# LIMIT 1
#});
$sth1 = $dbh->prepare(q{ $sth1 = $dbh->prepare(q{
SELECT id FROM eps SELECT id FROM eps
WHERE date > ? WHERE date > ?
AND date_format(date,"%W") = 'Monday' AND strftime("%u", date) = '1'
AND title LIKE 'HPR Community News%' AND title LIKE 'HPR Community News%'
ORDER BY date ORDER BY date
LIMIT 1 LIMIT 1
@ -848,13 +851,38 @@ unless ( $h1 = $sth1->fetchrow_hashref ) {
exit 1; exit 1;
} }
my $shownotes = $h1->{id}; my $episode = $h1->{id};
_debug( $DEBUG >= 2, "\$shownotes (slot): $shownotes" ); _debug( $DEBUG >= 2, "\$episode (slot): $episode" );
$sth1->finish; $sth1->finish;
$dbh->disconnect; $dbh->disconnect;
#-------------------------------------------------------------------------------
# Update the date cache now we have the date and time details we need.
#-------------------------------------------------------------------------------
( my $monthkey = $dtstart->ymd ) =~ s/\d+$/01/;
my $datestamp = $dtstart->strftime("%F %T");
if (exists($recdates{$monthkey})) {
#
# It exists. Is it different?
#
unless ( $recdates{$monthkey} eq $datestamp ) {
#
# Save the new data (assuming it's correct)
#
$recdates{$monthkey} = $datestamp;
update_cache( $recdatefile, \%recdates );
}
}
else {
#
# Add a new record to the end of the cache file
#
append_cache( $recdatefile, sprintf( "%s,%s", $monthkey, $datestamp ) );
}
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
# Fill the template # Fill the template
#------------------------------------------------------------------------------- #-------------------------------------------------------------------------------
@ -865,12 +893,10 @@ my $tt = Template->new(
); );
my $vars = { my $vars = {
# subject => $subject,
# from => $from_address,
# to => $to_address,
server => $server, server => $server,
port => $port, port => $port,
room => $room, room => $room,
subject => $subject,
timezones => \@timezones, timezones => \@timezones,
utc => { utc => {
days => $days, days => $days,
@ -880,7 +906,7 @@ my $vars = {
start => $starttime, start => $starttime,
end => $endtime, end => $endtime,
}, },
shownotes => $shownotes, episode => $episode, # show number
}; };
my $document; my $document;
@ -889,23 +915,136 @@ $tt->process( $template,
|| die $tt->error(), "\n"; || die $tt->error(), "\n";
# #
# Add the template-generated body to the mail message # Write to the output file
# #
print $mailer $document; print $outfh $document;
# #
# Send the message # Report the output file name if there is one
# #
$mailer->close if ($outfile) {
or die "Couldn't send message: $!\n"; say "Output is in $outfile";
unless ($mail) {
print "Message was not sent since -nomail was selected (or defaulted).\n";
print "Look in 'mailer.testfile' for the output\n";
} }
exit; exit;
#=== FUNCTION ================================================================
# NAME: load_cache
# PURPOSE: Load the date cache into a hash
# PARAMETERS: $cache_name Name of file holding the cache
# RETURNS: Contents of cache as a hash
# DESCRIPTION: Opens the nominated file, parses each record, and adds the
# data to a hash. The record should contain the following:
# * 'YYYY-MM-01' the month for which the details are being
# recorded
# * ',' comma field separator
# * 'YYYY-MM-DD HH:MM:SS' timestamp of the recording
# The file is closed once it has been scanned. The function
# returns the completed hash.
# THROWS: No exceptions
# COMMENTS: None
# SEE ALSO: N/A
#===============================================================================
sub load_cache {
my ($cache_name) = @_;
my ( $month, $datetime, %result );
#
# Open the file in read mode
#
open( my $dcfh, '<', $cache_name )
or die "$PROG: failed to open '$cache_name': $!\n";
while ( my $line = <$dcfh> ) {
chomp($line);
if ( ( $month, $datetime )
= ( $line =~ /^(\d{4}-\d{2}-\d{2}),(.*)$/ ) )
{
$result{$month} = $datetime;
}
# TODO: Report any errors found in the file
}
close($dcfh)
or warn "$PROG: failed to close '$cache_name': $!\n";
return %result;
}
#=== FUNCTION ================================================================
# NAME: append_cache
# PURPOSE: Append a new line to the cache
# PARAMETERS: $cache_name Name of file holding the cache
# $line New record to add
# RETURNS: Nothing
# DESCRIPTION: Opens the nominated file and appends the new record in $line.
# The file is closed once it has been updated.
# THROWS: No exceptions
# COMMENTS: None
# SEE ALSO: N/A
#===============================================================================
sub append_cache {
my ( $cache_name, $line ) = @_;
#
# Open the file in append mode
#
open( my $dcfh, '>>', $cache_name )
or die "$PROG: failed to open '$cache_name': $!\n";
say $dcfh $line;
close($dcfh)
or warn "$PROG: failed to close '$cache_name': $!\n";
}
#=== FUNCTION ================================================================
# NAME: update_cache
# PURPOSE: Make changes to an existing line in the cache
# PARAMETERS: $cache_name Name of file holding the cache
# $rhash Hashref holding the updated cache contents
# RETURNS: Nothing
# DESCRIPTION: Makes a backup of the nominated file. Opens, truncates it and
# positions for writing (using 'seek'). The now empty file is
# filled with data from the hash and closed.
# THROWS: No exceptions
# COMMENTS: None
# SEE ALSO: N/A
#===============================================================================
sub update_cache {
my ( $cache_name, $rhash ) = @_;
#
# Copy the cache file to a backup
#
copy($cache_name,"${cache_name}~")
or die "Unable to back up $cache_name\n";
#
# Open the original file in write mode
#
open( my $dcfh, '>', $cache_name )
or die "$PROG: failed to open '$cache_name': $!\n";
#
# Truncate the file and seek to the start again
#
truncate($dcfh,0)
or die "$PROG: failed to truncate '$cache_name': $!\n";
seek($dcfh,0,0)
or die "$PROG: failed to seek in '$cache_name': $!\n";
#
# Write the cache data to the file
#
for my $key (sort(keys(%$rhash))) {
say $dcfh sprintf("%s,%s",$key, $rhash->{$key});
}
close($dcfh)
or warn "$PROG: failed to close '$cache_name': $!\n";
}
#=== FUNCTION ================================================================ #=== FUNCTION ================================================================
# NAME: report_settings # NAME: report_settings
@ -921,36 +1060,18 @@ sub report_settings {
my $fmt = "D> %-14s = %s\n"; my $fmt = "D> %-14s = %s\n";
print "D> Settings from options or default values:\n"; print "D> Settings from options or default values:\n";
printf $fmt, "Month", coalesce($month,'undef'); printf $fmt, "Month", coalesce($month,'undef');
printf $fmt, "Mail", coalesce($mail,'undef');
printf $fmt, "From", coalesce($from_address,'undef');
printf $fmt, "To", coalesce($to_address,'undef');
printf $fmt, "Meeting date", coalesce($date,'undef'); printf $fmt, "Meeting date", coalesce($date,'undef');
printf $fmt, "Start time", join(':',@starttime); printf $fmt, "Start time", join(':',@starttime);
printf $fmt, "End time", join(':',@endtime); printf $fmt, "End time", join(':',@endtime);
printf $fmt, "Config file", coalesce($cfgfile,'undef'); printf $fmt, "Config file", coalesce($cfgfile,'undef');
printf $fmt, "DB config file", coalesce($dbcfgfile,'undef');
printf $fmt, "Server", coalesce($server,'undef'); printf $fmt, "Server", coalesce($server,'undef');
printf $fmt, "Port", coalesce($port,'undef'); printf $fmt, "Port", coalesce($port,'undef');
printf $fmt, "Room", coalesce($room,'undef'); printf $fmt, "Room", coalesce($room,'undef');
printf $fmt, "Template", coalesce($template,'undef'); printf $fmt, "Template", coalesce($template,'undef');
printf $fmt, "Recording date file", coalesce($recdatefile,'undef');
print "D> ----\n"; print "D> ----\n";
} }
#=== FUNCTION ================================================================
# NAME: compute_endtime
# PURPOSE: Given a start time and a duration computes the end time
# PARAMETERS: $rdate arrayref for the date
# $rstime arrayref for the start time
# $rduration arrayref for the duration [HH,MM,SS]
# RETURNS: The end time as a string (HH:MM:SS)
# DESCRIPTION:
# THROWS: No exceptions
# COMMENTS: Decided not to implement this, may do so in future.
# SEE ALSO: N/A
#===============================================================================
#sub compute_endtime {
#}
#=== FUNCTION ================================================================ #=== FUNCTION ================================================================
# NAME: validate_time # NAME: validate_time
# PURPOSE: Validates a time in HH:MM:SS format # PURPOSE: Validates a time in HH:MM:SS format
@ -1029,7 +1150,7 @@ sub make_date {
} }
# #
# Apply the day offset # Apply any day offset
# #
@date = Add_Delta_Days( @date, $offset ) if $offset; @date = Add_Delta_Days( @date, $offset ) if $offset;
@ -1047,7 +1168,8 @@ sub make_date {
# $end DateTime object containing the ending datetime # $end DateTime object containing the ending datetime
# as UTC # as UTC
# $tz The textual time zone (need this to be valid) # $tz The textual time zone (need this to be valid)
# RETURNS: A hash containing the timezone name and start and end times # RETURNS: Reference to a hash containing the timezone name and start and
# end times
# DESCRIPTION: Relies on DateTime::TimeZone to do the work to turn a UTC time # DESCRIPTION: Relies on DateTime::TimeZone to do the work to turn a UTC time
# into a time in a different time zone. Uses the DateTime # into a time in a different time zone. Uses the DateTime
# strftime method to format the dates and times for printing. # strftime method to format the dates and times for printing.
@ -1076,49 +1198,15 @@ sub storeTZ {
return \%result; return \%result;
} }
#=== FUNCTION ================================================================
# NAME: printTZ
# PURPOSE: Print start/end times for a timezone
# PARAMETERS: $fh File handle for writing
# $start DateTime object containing the starting
# datetime as UTC
# $end DateTime object containing the ending datetime
# as UTC
# $tz The textual time zone (need this to be valid)
# RETURNS: Nothing
# DESCRIPTION: Relies on DateTime::TimeZone to do the work to turn a UTC time
# into a time in a different time zone. Uses the DateTime
# strftime method to format the dates and times for printing.
# THROWS: No exceptions
# COMMENTS: None
# SEE ALSO:
#===============================================================================
sub printTZ {
my ( $fh, $start, $end, $tz ) = @_;
#
# Adjust time zone
#
$start->set_time_zone($tz);
$end->set_time_zone($tz);
#
# Print time zone and start/end times in that zone
#
print $fh "$tz\n";
print $fh $start->strftime("Start: %H:%S %a, %b %d %Y\n");
print $fh $end->strftime("End: %H:%S %a, %b %d %Y\n\n");
}
#=== FUNCTION ================================================================ #=== FUNCTION ================================================================
# NAME: day_offset # NAME: day_offset
# PURPOSE: Given a day name computes day attributes including the # PURPOSE: Given a day name computes day attributes including the
# (negative) offset in days from the target Monday to the # (negative) offset in days from the target release day (Monday)
# recording date. # to the recording date.
# PARAMETERS: $dayname Name of a day of the week # PARAMETERS: $dayname Name of a day of the week
# RETURNS: Hashref containing the full day name, the weekday number and # RETURNS: Hashref containing the full day name (dayname), the weekday
# the integer offset from Monday to the recording day, or undef. # number (wday) and the integer offset (offset) from Monday to
# the recording day, or undef.
# DESCRIPTION: Uses the hash '%matches' keyed by regular expressions matching # DESCRIPTION: Uses the hash '%matches' keyed by regular expressions matching
# day names. The argument '$dayname' is matched against each # day names. The argument '$dayname' is matched against each
# regex in turn and if it matches the sub-hash is returned. This # regex in turn and if it matches the sub-hash is returned. This
@ -1239,14 +1327,13 @@ sub Options {
my ($optref) = @_; my ($optref) = @_;
my @options = ( my @options = (
"help", "documentation|man", "help", "documentation|man",
"debug=i", "mail!", "debug=i", "date=s",
"fromaddress=s", "toaddress=s", "starttime=s", "endtime=s",
"date=s", "starttime=s", "month=s", "output:s",
"endtime=s", "month=s", "config=s",
"config=s", "dbconfig=s",
); );
# "duration=s", # "mail!", "fromaddress=s", "toaddress=s", "duration=s",
if ( !GetOptions( $optref, @options ) ) { if ( !GetOptions( $optref, @options ) ) {
pod2usage( -msg => "Version $VERSION\n", -verbose => 0, -exitval => 1 ); pod2usage( -msg => "Version $VERSION\n", -verbose => 0, -exitval => 1 );
@ -1264,20 +1351,20 @@ __END__
=head1 NAME =head1 NAME
make_email - generates an HPR Community News recording invitation email make_email - generates the text of an HPR Community News recording invitation
email
=head1 VERSION =head1 VERSION
This documentation refers to make_email version 0.2.7 This documentation refers to make_email version 0.3.3
=head1 USAGE =head1 USAGE
make_email [-help] [-documentation] [-debug=N] [-month=DATE] [-[no]mail] make_email [-help] [-documentation] [-debug=N] [-month=DATE] [-date=DATE]
[-from=FROM_ADDRESS] [-to=TO_ADDRESS] [-date=DATE] [-start=START_TIME] [-start=START_TIME] [-end=END_TIME] [-config=FILE]
[-end=END_TIME] [-config=FILE] [-dbconfig=FILE]
./make_email -dbconf=$HOME/HPR/.hpr_livedb.cfg -date=2022-12-27 ./make_email -date=2022-12-27
=head1 OPTIONS =head1 OPTIONS
@ -1293,7 +1380,7 @@ Prints the entire embedded documentation for the program, then exits.
Another way to see the full documentation use: Another way to see the full documentation use:
B<perldoc ./make_email> perldoc ./make_email
=item B<-debug=N> =item B<-debug=N>
@ -1351,30 +1438,6 @@ a ISO8601 date such as 2014-03-08 (meaning March 2014) or 1-Jan-2017 (meaning
January 2017). Only the year and month parts are used but a valid day must be January 2017). Only the year and month parts are used but a valid day must be
present. present.
=item B<-[no]mail>
** NOTE ** The sending of mail does not work at present, and B<-nomail> should
always be used.
Causes mail to be sent (B<-mail>) or not sent (B<-nomail>). If the mail is
sent then it is sent via the local MTA (in the assumption that there is one).
If this option is omitted, the default is B<-nomail>, in which case the
message is appended to the file B<mailer.testfile> in the current directory.
=item B<-from=FROM_ADDRESS>
** NOTE ** The sending of mail does not work at present.
This option defines the address from which the message is to be sent. This
address is used in the message header; the message envelope will contain the
I<real> sender.
=item B<-to=TO_ADDRESS>
** NOTE ** The sending of mail does not work at present.
This option defines the address to which the message is to be sent.
=item B<-date=DATE> =item B<-date=DATE>
This is an option provides a non-default date for the recording. Normally the This is an option provides a non-default date for the recording. Normally the
@ -1405,30 +1468,35 @@ The default end time is defined in the configuration file, but if it is
necessary to change it temporarily, this option can be used to do it. The necessary to change it temporarily, this option can be used to do it. The
B<END_TIME> value must be a valid B<HH:MM> time specification. B<END_TIME> value must be a valid B<HH:MM> time specification.
=item B<-output=FILE>
This option defines an output file to receive the mail message text. If the option is
omitted the notes are written to STDOUT, allowing them to be redirected if
required.
The output file name may contain the characters 'B<%s>'. This denotes the point
at which the year and month in the format B<YYYY-MM> are inserted. For example
if the script is being run for February 2025 the option:
-out=HPR_email_%s.txt
will cause the generation of the file:
HPR_email_2025-02.txt
=item B<-config=FILE> =item B<-config=FILE>
This option defines a configuration file other than the default This option defines a configuration file other than the default
B<.make_email.cfg>. The file must be formatted as described below in the B<.make_email.cfg>. The file must be formatted as described below in the
section I<CONFIGURATION AND ENVIRONMENT>. section I<CONFIGURATION AND ENVIRONMENT>.
=item B<-dbconfig=FILE>
This option defines a database configuration file other than the default
B<.hpr_db.cfg>. The file must be formatted as described below in the section
I<CONFIGURATION AND ENVIRONMENT>.
The default file is configured to open a local copy of the HPR database. An
alternative is B<.hpr_livedb.cfg> which assumes an SSH tunnel to the live
database and attempts to connect to it. Use the script I<open_tunnel> to open
the SSH tunnel.
=back =back
=head1 DESCRIPTION =head1 DESCRIPTION
Makes and sends(*) an invitation email for the next Community News with times per Makes an invitation email for the next Community News with times per timezone.
timezone. The message is structured by a Template Toolkit template, so its The message is structured by a Template Toolkit template, so its contents can
content can be adjusted without changing this script. be adjusted without changing this script.
In normal operation the script computes the date of the next recording using In normal operation the script computes the date of the next recording using
the algorithm "Saturday before the first Monday of the next month" starting the algorithm "Saturday before the first Monday of the next month" starting
@ -1446,9 +1514,6 @@ seen as the shows are visited and discussed.
The email generated by the script is sent to the HPR mailing list, usually on The email generated by the script is sent to the HPR mailing list, usually on
the Monday prior to the weekend of the recording. the Monday prior to the weekend of the recording.
Notes:
* Mail sending does not work at present.
=head1 DIAGNOSTICS =head1 DIAGNOSTICS
=over 8 =over 8
@ -1496,11 +1561,6 @@ The month specified in B<-month=DATE> is in the past.
The program can generate warning messages from the Template. The program can generate warning messages from the Template.
=item B<Couldn't send message: ...>
The email mesage has been constructed but could not be sent. See the error
returned by the mail subsystem for more information.
=back =back
=head1 CONFIGURATION AND ENVIRONMENT =head1 CONFIGURATION AND ENVIRONMENT
@ -1524,31 +1584,64 @@ needs to contain the following data:
=head2 DATABASE CONFIGURATION =head2 DATABASE CONFIGURATION
The program obtains the credentials it requires for connecting to the HPR The program also obtains the details it requires for connecting to a SQLite
database by loading them from a configuration file. The default file is called copy of the HPR database by loading them from the same configuration file in
B<.hpr_db.cfg> and should contain the following data: a separate section. The data is as follows:
<database> <database>
host = 127.0.0.1
port = PORT
name = DBNAME name = DBNAME
user = USER
password = PASSWORD
</database> </database>
The file B<.hpr_livedb.cfg> should be available to allow access to the =head2 DATE CACHE
database over an SSH tunnel which has been previously opened.
<recdates>
name = recording_dates.dat
</recdates>
The program will update a cache of recording dates and times per month. This
is useful for the script B<make_shownotes> which needs to know about the
Community News show recording time so it can determine how to display
information about comments. See the details for this script.
The format of the lines in the file is:
MONTH,TIMESTAMP
Note the separating comma. The month is an ISO8601 date where the day part is
always B<01>. The timestamp part is the date and time of the recording in the
format:
YYYY-MM-DD HH:MM:SS
For example:
2024-12-01,2025-01-03 15:00:00
2025-01-01,2025-01-31 15:00:00
2025-02-01,2025-02-28 16:00:00
The dates and times are derived from the configuration file defaults (and those
computed in the script), or the options given when running the script.
The contents of this cache are loaded into the B<make_email> script. If there
is no record for the month being processed, one is appended to the file. If
the details already exist they are updated unless they are the same as those
stored.
A backup of the file is made if the data in a record is being updated.
=head1 DEPENDENCIES =head1 DEPENDENCIES
Config::General
Cwd
DBI DBI
Data::Dumper
Date::Calc Date::Calc
Date::Parse Date::Parse
DateTime DateTime
DateTime::Format::Duration DateTime::Format::Duration
DateTime::TimeZone DateTime::TimeZone
File::Copy
Getopt::Long Getopt::Long
Mail::Mailer
Pod::Usage Pod::Usage
Template Template
@ -1560,7 +1653,7 @@ Patches are welcome.
=head1 AUTHOR =head1 AUTHOR
Dave Morriss (Dave.Morriss@gmail.com) 2013 - 2024 Dave Morriss (Dave.Morriss@gmail.com) 2013 - 2025
=head1 LICENCE AND COPYRIGHT =head1 LICENCE AND COPYRIGHT

76
Community_News/make_email_template.tpl Normal file
View File

@ -0,0 +1,76 @@
[%# make_email_template.tpl 2025-02-23 -%]
[%# Community News email template -%]
[% USE wrap -%]
[% subject %]
[% FILTER replace('\n', ' ') -%]
[% IF utc.days > 6 -%]
The Community News for [% utc.month %] will be recorded using Mumble on
[% ELSE -%]
The next Community News will be recorded using Mumble on
[% END -%]
[% utc.date %] between [% utc.start %] and [% utc.end %] in the '[% room %]' room on [% server %] port [% port %].
[% END %]
[% FILTER replace('\n', ' ') -%]
During the recording HPR Volunteers will review the shows released during
[% utc.month %] [% utc.year %], they will read comments submitted during that
month, as well as summarising email sent to the HPR mailing list.
[% END %]
[% FILTER replace('\n', ' ') -%]
All HPR listeners are welcome to join in, but we ask that you listen to all
the shows in [% utc.month %] before you do so.
[% END %]
[% FILTER replace('\n', ' ') -%]
Occasionally, due to local factors, we might need to change the time, or even
the date, without warning. If you're planning on joining in it might be a good
idea to let us know in advance - email admin@hackerpublicradio.org. Then we
can contact you with the new schedule in the rare event that we have to
make a change.
[% END %]
[% FILTER replace('\n', ' ') -%]
The notes for the recording are an extended version of the show notes. These
extended elements are removed before the show is made fully available on the
HPR site (and on archive.org). Comments which might have been missed in the
last recording will be marked in red. Comments which would normally be in this
month, but which were read out in the last show are marked in green. Comments
made in the past month to older shows will be displayed in full (so they are
easier to read).
[% END %]
[% FILTER replace('\n', ' ') -%]
Look here for the notes for this recording:
https://hackerpublicradio.org/eps/hpr[% episode %]/index.html
[% END %]
Summary:
[% FILTER indent(' ') -%]
Date of recording: [% utc.date %]
Start and end times: [% utc.start %] and [% utc.end %]
Mumble server: [% server %]
Port: [% port %]
Room: [% room %]
[% END -%]
Refer to https://hackerpublicradio.org/recording.html for how to use Mumble.
[% FILTER replace('\n', ' ') -%]
There is an iCal file on the HPR site that you can load into a compatible
calendar which will remind you of the next 12 upcoming recording dates.
Access it from https://hackerpublicradio.org/HPR_Community_News_schedule.ics
[% END %]
See below for start and end times in various international timezones.
[% FOREACH tz IN timezones -%]
[% tz.name %]
Start: [% tz.start %]
End: [% tz.end %]
[% END -%]
[%#
# vim: syntax=tt2:ts=8:sw=4:ai:et:tw=78:fo=tcrqn21
-%]

33
Community_News/make_meeting
View File

@ -17,9 +17,9 @@
# Hacking" # Hacking"
# AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com # AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
# LICENCE: Copyright (c) year 2012-2024 Dave Morriss # LICENCE: Copyright (c) year 2012-2024 Dave Morriss
# VERSION: 0.2.2 # VERSION: 0.2.3
# CREATED: 2012-10-13 15:34:01 # CREATED: 2012-10-13 15:34:01
# REVISION: 2024-05-24 22:45:56 # REVISION: 2024-10-28 13:17:44
# #
#=============================================================================== #===============================================================================
@ -42,7 +42,7 @@ use Date::ICal;
# #
# Version number (manually incremented) # Version number (manually incremented)
# #
our $VERSION = '0.2.2'; our $VERSION = '0.2.3';
# #
# Script name # Script name
@ -65,8 +65,6 @@ my ( @startdate, @rdate, @events );
# #
# Attributes for the calendar message # Attributes for the calendar message
# #
#my $server = 'ch1.teamspeak.cc';
#my $port = 64747;
my $server = 'chatter.skyehaven.net'; my $server = 'chatter.skyehaven.net';
my $port = 64738; my $port = 64738;
@ -129,11 +127,12 @@ else {
# of having a time zone defined (default UTC, as now). # of having a time zone defined (default UTC, as now).
# #
my $monday = 1; # Day of week number 1-7, Monday-Sunday my $monday = 1; # Day of week number 1-7, Monday-Sunday
my $offset = -3; # Offset from the target date (-3 is Friday)
my @starttime = ( 13, 00, 00 ); # UTC my @starttime = ( 15, 00, 00 ); # UTC
my @endtime = ( 15, 00, 00 ); my @endtime = ( 17, 00, 00 );
my @todostart = ( 9, 00, 00 ); # UTC my @todostart = ( 9, 00, 00 ); # UTC
my @todoend = ( 17, 00, 00 ); my @todoend = ( 17, 00, 00 );
# #
@ -161,12 +160,13 @@ http://hackerpublicradio.org/recording.php
ENDDESC ENDDESC
# #
# Compute the next recording date from the starting date (@startdate will be # Compute the next recording date from the starting date.
# today's date or the start of the explicitly selected month provided via # Now @startdate will be today's date or the start of the explicitly selected
# -from=DATE. We want day of the week to be Monday, the first in the month, # month provided via -from=DATE. We want day of the week to be Monday, the
# then to go back 1 day from that to get to the Sunday! Simple) # first in the month, then to go back $offset days from that to get to the
# recording day! Simple.
# #
@startdate = make_date( \@startdate, $monday, 1, -1 ); @startdate = make_date( \@startdate, $monday, 1, $offset );
@rdate = @startdate; @rdate = @startdate;
# #
@ -208,7 +208,7 @@ for my $i ( 1 .. $count ) {
# #
# Recording date computation from the start of the month # Recording date computation from the start of the month
# #
@rdate = make_date( \@rdate, $monday, 1, -1 ); @rdate = make_date( \@rdate, $monday, 1, $offset );
# #
# Save the current recording date to make an array of arrayrefs # Save the current recording date to make an array of arrayrefs
@ -305,8 +305,9 @@ exit;
# RETURNS: The start of the month in the textual date in Date::Calc # RETURNS: The start of the month in the textual date in Date::Calc
# format # format
# DESCRIPTION: Parses the date string and makes a Date::Calc date from the # DESCRIPTION: Parses the date string and makes a Date::Calc date from the
# result where the day part is 1. Optionally checks that the # result where the day part is forced to be 1. Optionally
# date isn't in the past, though $force = 1 ignores this check. # checks that the date isn't in the past, though $force
# = 1 ignores this check.
# THROWS: No exceptions # THROWS: No exceptions
# COMMENTS: Requires Date::Calc and Date::Parse # COMMENTS: Requires Date::Calc and Date::Parse
# Note the validation 'die' has a non-generic message # Note the validation 'die' has a non-generic message

2615
Community_News/make_shownotes
View File

File diff suppressed because it is too large Load Diff

2
Community_News/shownote_template.tpl
View File

@ -1 +1 @@
shownote_template11.tpl shownote_template12.tpl

60
Community_News/shownote_template11.tpl
View File

@ -1,11 +1,15 @@
[%# shownote_template11.tpl 2024-05-07 -%] [%# shownote_template11.tpl Updated: 2025-03-31 -%]
[%# HTML snippet for insertion into the database -%] [%# -------------------------------------------------------------------------------- -%]
[%# This one uses the new format for the mailing list data, and partitions -%] [%# Makes either an HTML snippet for insertion into the database or a full -%]
[%# comments into past and current. It also marks comments that don't need -%] [%# listing with full comments for circulation to the hosts recording the episode -%]
[%# to be read when -markcomments is selected. It requires make_shownotes >= V0.0.30 -%] [%# This one uses the new format for the mailing list data, and partitions -%]
[%# comments into past and current. It also marks comments that don't need -%]
[%# to be read when mark_comments is true. It requires make_shownotes >= V0.0.30 -%]
[%# -------------------------------------------------------------------------------- -%]
[%- USE date -%] [%- USE date -%]
[%- USE pad4 = format('%04d') -%] [%- USE pad4 = format('%04d') -%]
[%- correspondents = "https://hackerpublicradio.org/correspondents" [%- correspondents = "https://hackerpublicradio.org/correspondents"
mailinglist = "https://lists.hackerpublicradio.com/mailman/listinfo/hpr"
mailbase="https://lists.hackerpublicradio.com/pipermail/hpr" mailbase="https://lists.hackerpublicradio.com/pipermail/hpr"
mailthreads = "$mailbase/$review_year-$review_month/thread.html" -%] mailthreads = "$mailbase/$review_year-$review_month/thread.html" -%]
[%- DEFAULT skip_comments = 0 [%- DEFAULT skip_comments = 0
@ -15,8 +19,9 @@
missed_count = 0 missed_count = 0
past_count = 0 past_count = 0
-%] -%]
[%# Embedded CSS. The 'table' and 'hr' settings are always there but the rest is only for if -%] [%# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%]
[%# we are marking comments -%] [%# Embedded CSS. The 'table' and 'hr' settings are always there but the rest is -%]
[%# only for when we are marking comments -%]
<style> <style>
table td.shrink { table td.shrink {
white-space:nowrap white-space:nowrap
@ -40,12 +45,7 @@ div#highlight {
} }
[%- END %] [%- END %]
</style> </style>
[%# For the '-mailnotes' option without a file we generate our own inclusion. -%] [%# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%]
[%# We pretend 'default_mail' is a filename in the calling script. Messy. -%]
[% BLOCK default_mail -%]
<a href="[% mailthreads %]" target="_blank">[% mailthreads %]</a>
[% END -%]
<h2>New hosts</h2> <h2>New hosts</h2>
<p> <p>
[% IF hosts.size > 0 -%] [% IF hosts.size > 0 -%]
@ -88,13 +88,13 @@ There were no new hosts this month.
[%# Skip comments if told to by the caller -%] [%# Skip comments if told to by the caller -%]
[%- IF skip_comments == 0 -%] [%- IF skip_comments == 0 -%]
[%# Handle any missed comments if mark_comments is true -%] [%# Handle any missed comments if mark_comments is true -%]
[%- IF mark_comments == 1 && missed_count > 0 -%] [%- IF (mark_comments == 1) AND (missed_count > 0) -%]
<br/><div id="highlight"> <br/><div id="highlight">
<h2>Missed comment[%- missed_comments.size > 1 ? 's' : '' -%] last month</h2> <h2>Missed comment[%- missed_comments.size > 1 ? 's' : '' -%] last month</h2>
<p><b>Note to Volunteers</b>: These are comments for shows last month that were not read in the last show because they arrived on or after the recording day. This section will be removed before these notes are released.</p> <p><b>Note to Volunteers</b>: These are comments for shows last month that were not read in the last show because they arrived on or after the recording started. This section will be removed before these notes are released.</p>
<ul> <ul>
[%- FOREACH comment IN missed_comments -%] [%- FOREACH comment IN missed_comments -%]
<li><strong><a href="[% comment.identifier_url %]#comments" target="_blank">hpr[% comment.episode %]</a></strong> <li><strong><a href="[% comment.identifier_url %]#comments" target="_blank">hpr[% pad4(comment.episode) %]</a></strong>
([% comment.date %]) "<em>[% comment.title %]</em>" by <a href="[% correspondents %]/[% pad4(comment.hostid) %].html" target="_blank">[% comment.host %]</a>.<br/> ([% comment.date %]) "<em>[% comment.title %]</em>" by <a href="[% correspondents %]/[% pad4(comment.hostid) %].html" target="_blank">[% comment.host %]</a>.<br/>
<small>Summary: "<em>[% comment.summary %]</em>"</small><br/> <small>Summary: "<em>[% comment.summary %]</em>"</small><br/>
From: [% comment.comment_author_name FILTER html_entity -%] on [% date.format(comment.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]: From: [% comment.comment_author_name FILTER html_entity -%] on [% date.format(comment.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
@ -112,7 +112,7 @@ From: [% comment.comment_author_name FILTER html_entity -%] on [% date.format(co
<h2>Comments this month</h2> <h2>Comments this month</h2>
[% IF comment_count > 0 -%] [% IF comment_count > 0 -%]
[%- IF mark_comments == 1 && ignore_count > 0 -%] [%- IF (mark_comments == 1) AND (ignore_count > 0) -%]
<p id="ignore"><b>Note to Volunteers</b>: Comments marked in green were read in the last <p id="ignore"><b>Note to Volunteers</b>: Comments marked in green were read in the last
Community News show and should be ignored in this one.</p> Community News show and should be ignored in this one.</p>
[%- END -%] [%- END -%]
@ -124,9 +124,9 @@ There [%- comment_count == 1 ? "is $comment_count comment" : "are $comment_count
[% past.size %] previous [% past.size == 1 ? "show" : "shows" %]:</p> [% past.size %] previous [% past.size == 1 ? "show" : "shows" %]:</p>
<ul> <ul>
[%# Loop through by episode then by comment relating to that episode -%] [%# Loop through by episode then by comment relating to that episode -%]
[%- FOREACH ep IN past.keys.sort -%] [%- FOREACH ep IN past.keys.nsort -%]
[%- arr = past.$ep -%] [%- arr = past.$ep -%]
<li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% arr.0.episode %]</a></strong> <li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% pad4(arr.0.episode) %]</a></strong>
([% arr.0.date %]) "<em>[% arr.0.title %]</em>" ([% arr.0.date %]) "<em>[% arr.0.title %]</em>"
by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.<br/> by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.<br/>
[%- IF mark_comments == 1 || ctext == 1 -%] [%- IF mark_comments == 1 || ctext == 1 -%]
@ -142,7 +142,7 @@ by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">
[%- ELSE %] [%- ELSE %]
<li> <li>
[%- END %] [%- END %]
<a href="[% row.identifier_url %]#[% row.index %]" target="_blank">Comment [% row.index %]</a>: <a href="[% row.identifier_url %]#comment_[% row.comment_id %]" target="_blank">Comment [% row.comment_number %]</a>:
[% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]: [% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
[%- IF row.comment_title.length > 0 %] [%- IF row.comment_title.length > 0 %]
"[% row.comment_title %]" "[% row.comment_title %]"
@ -158,7 +158,7 @@ by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">
[%- END -%] [%- END -%]
[%- END -%] [%- END -%]
</ul><br/> </ul><br/>
</limage> </li>
[%- END -%] [%- END -%]
</ul> </ul>
[%- IF mark_comments == 1 || ctext == 1 -%] [%- IF mark_comments == 1 || ctext == 1 -%]
@ -171,15 +171,15 @@ by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">
<h3>This month's shows</h3> <h3>This month's shows</h3>
<p>There [% cc == 1 ? "is $cc comment" : "are $cc comments" %] on [% current.size %] of this month's shows:</p> <p>There [% cc == 1 ? "is $cc comment" : "are $cc comments" %] on [% current.size %] of this month's shows:</p>
<ul> <ul>
[%- FOREACH ep IN current.keys.sort -%] [%- FOREACH ep IN current.keys.nsort -%]
[%- arr = current.$ep -%] [%- arr = current.$ep -%]
<li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% arr.0.episode %]</a></strong> <li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% pad4(arr.0.episode) %]</a></strong>
([% arr.0.date %]) "<em>[% arr.0.title %]</em>" ([% arr.0.date %]) "<em>[% arr.0.title %]</em>"
by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.</li> by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.</li>
<li style="list-style: none; display: inline"> <li style="list-style: none; display: inline">
<ul> <ul>
[%- FOREACH row IN arr -%] [%- FOREACH row IN arr -%]
<li><a href="[% row.identifier_url %]#[% row.index %]" target="_blank">Comment [% row.index %]</a>: <li><a href="[% row.identifier_url %]#comment_[% row.comment_id %]" target="_blank">Comment [% row.comment_number %]</a>:
[% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]: [% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
[%- IF row.comment_title.length > 0 %] [%- IF row.comment_title.length > 0 %]
"[% row.comment_title %]" "[% row.comment_title %]"
@ -199,17 +199,16 @@ There were no comments this month.
[%- END %] [%- END %]
[%# ---------------------------------------------------------------------------------------- -%] [%# ---------------------------------------------------------------------------------------- -%]
[%- IF includefile.defined -%] [%- IF mailnotes == 1 -%]
<h2>Mailing List discussions</h2> <h2>Mailing List discussions</h2>
<p> <p>
Policy decisions surrounding HPR are taken by the community as a whole. This Policy decisions surrounding HPR are taken by the community as a whole. This
discussion takes place on the <a href="https://hackerpublicradio.org/maillist" discussion takes place on the <a href="[% mailinglist %]" target="_blank">Mailing List</a>
target="_blank">Mail List</a> which is open to all HPR listeners and which is open to all HPR listeners and contributors. The discussions are open
contributors. The discussions are open and available on the HPR server under and available on the HPR server under <a href="[% mailbase %]">Mailman</a>.
<a href="[% mailbase %]">Mailman</a>.
</p> </p>
<p>The threaded discussions this month can be found here:</p> <p>The threaded discussions this month can be found here:</p>
[% INCLUDE $includefile -%] <a href="[% mailthreads %]" target="_blank">[% mailthreads %]</a>
[%- END %] [%- END %]
[%# ---------------------------------------------------------------------------------------- -%] [%# ---------------------------------------------------------------------------------------- -%]
@ -231,4 +230,3 @@ page.</blockquote>
[%# [%#
# vim: syntax=tt2:ts=8:sw=4:ai:et:tw=78:fo=tcrqn21 # vim: syntax=tt2:ts=8:sw=4:ai:et:tw=78:fo=tcrqn21
-%] -%]

226
Community_News/shownote_template12.tpl Normal file
View File

@ -0,0 +1,226 @@
[%# shownote_template12.tpl Updated: 2025-03-31 -%]
[%# -------------------------------------------------------------------------------- -%]
[%# Makes either an HTML snippet for insertion into the database or a full -%]
[%# listing with full comments for circulation to the hosts recording the episode -%]
[%# This one uses the new format for the mailing list data, and partitions -%]
[%# comments into past and current. It also marks comments that don't need -%]
[%# to be read when mark_comments is true. It requires make_shownotes >= V0.0.30 -%]
[%# -------------------------------------------------------------------------------- -%]
[%- USE date -%]
[%- USE pad4 = format('%04d') -%]
[%- correspondents = "https://hackerpublicradio.org/correspondents"
mailinglist = "https://lists.hackerpublicradio.com/mailman/listinfo/hpr"
mailbase="https://lists.hackerpublicradio.com/pipermail/hpr"
mailthreads = "$mailbase/$review_year-$review_month/thread.html" -%]
[%- DEFAULT skip_comments = 0
mark_comments = 0
ctext = 0
ignore_count = 0
missed_count = 0
past_count = 0
-%]
[%# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%]
[%# Embedded CSS. The 'table' and 'hr' settings are always there but the rest is -%]
[%# only for when we are marking comments -%]
<style>
table td.shrink {
white-space:nowrap
}
hr.thin {
border: 0;
height: 0;
border-top: 1px solid rgba(0, 0, 0, 0.1);
border-bottom: 1px solid rgba(255, 255, 255, 0.3);
}
[%- IF mark_comments == 1 %]
p#ignore, li#ignore {
background-color: lightgreen;
color:maroon;
}
div#highlight {
border-style: solid;
border-color: red;
padding-right: 20px;
padding-left: 20px;
}
[%- END %]
</style>
[%# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -%]
<h2>New hosts</h2>
<p>
[% IF hosts.size > 0 -%]
Welcome to our new host[%- hosts.size > 1 ? 's' : '' -%]: <br />
[%- count = 0 %]
[%# List the new hosts. If a name contains a comma quote it. -%]
[%- FOREACH row IN hosts %]
[%- count = count + 1 %]
[%- hostname = (row.host.search(',') ? row.host.replace('^(.*)$','"$1"') : row.host) %]
<a href="[% correspondents %]/[% pad4(row.hostid) %].html" target="_blank">[% hostname %]</a>
[%- count < hosts.size ? ', ' : '.' %]
[%- END %]
[% ELSE -%]
There were no new hosts this month.
[% END -%]
</p>
<h2>Last Month's Shows</h2>
[%# The id 't01' is in the HPR CSS but might give trouble on the IA -%]
<table id="t01">
<tr>
<th>Id</th>
<th>Day</th>
<th>Date</th>
<th>Title</th>
<th>Host</th>
</tr>
[%- FOREACH row IN shows %]
<tr>
<td><strong><a href="https://hackerpublicradio.org/eps/hpr[% pad4(row.eps_id) %]/index.html" target="_blank">[% row.eps_id %]</a></strong></td>
<td>[% date.format(row.date,'%a') %]</td>
<td class="shrink">[% date.format(row.date,'%Y-%m-%d') %]</td>
<td><a href="https://hackerpublicradio.org/eps/hpr[% pad4(row.eps_id) %]/index.html" target="_blank">[% row.title %]</a></td>
<td><a href="[% correspondents %]/[% pad4(row.ho_hostid) %].html" target="_blank">[% row.ho_host FILTER html_entity %]</a></td>
</tr>
[%- END %]
</table>
[%# ---------------------------------------------------------------------------------------- -%]
[%# Skip comments if told to by the caller -%]
[%- IF skip_comments == 0 -%]
[%# Handle any missed comments if mark_comments is true -%]
[%- IF (mark_comments == 1) AND (missed_count > 0) -%]
<br/><div id="highlight">
<h2>Missed comment[%- missed_comments.size > 1 ? 's' : '' -%] last month</h2>
<p><b>Note to Volunteers</b>: These are comments for shows last month that were not read in the last show because they arrived on or after the recording started. This section will be removed before these notes are released.</p>
<ul>
[%- FOREACH comment IN missed_comments -%]
<li><strong><a href="[% comment.identifier_url %]#comments" target="_blank">hpr[% pad4(comment.episode) %]</a></strong>
([% comment.date %]) "<em>[% comment.title %]</em>" by <a href="[% correspondents %]/[% pad4(comment.hostid) %].html" target="_blank">[% comment.host %]</a>.<br/>
<small>Summary: "<em>[% comment.summary %]</em>"</small><br/>
From: [% comment.comment_author_name FILTER html_entity -%] on [% date.format(comment.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
[%- IF comment.comment_title.length > 0 %]
"[% comment.comment_title %]"
[%- ELSE -%]
"[no title]"
[%- END -%]
<br/><hr class="thin">[% comment.comment_text FILTER html_line_break %]
</li><br/>
[%- END -%]
</ul></div>
[%- END -%]
[%# ---------------------------------------------------------------------------------------- -%]
<h2>Comments this month</h2>
[% IF comment_count > 0 -%]
[%- IF (mark_comments == 1) AND (ignore_count > 0) -%]
<p id="ignore"><b>Note to Volunteers</b>: Comments marked in green were read in the last
Community News show and should be ignored in this one.</p>
[%- END -%]
<p>These are comments which have been made during the past month, either to shows released during the month or to past shows.
There [%- comment_count == 1 ? "is $comment_count comment" : "are $comment_count comments" -%] in total.</p>
[% IF past_count > 0 -%]
<h3>Past shows</h3>
<p>There [% past_count == 1 ? "is $past_count comment" : "are $past_count comments" %] on
[% past.size %] previous [% past.size == 1 ? "show" : "shows" %]:</p>
<ul>
[%# Loop through by episode then by comment relating to that episode -%]
[%- FOREACH ep IN past.keys.nsort -%]
[%- arr = past.$ep -%]
<li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% pad4(arr.0.episode) %]</a></strong>
([% arr.0.date %]) "<em>[% arr.0.title %]</em>"
by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.<br/>
[%- IF mark_comments == 1 || ctext == 1 -%]
<small>Summary: "<em>[% arr.0.summary %]</em>"</small></li>
[%- END %]
<li style="list-style: none; display: inline">
<ul>
[%- FOREACH row IN arr -%]
[%# IF mark_comments == 1 && ((row.comment_timestamp_ut <= last_recording) && (arr.0.date.substr(0,7) == last_month)) -%]
[%# IF mark_comments == 1 && ((row.comment_released_ut <= last_recording) && (arr.0.date.substr(0,7) == last_month)) -%]
[%- IF mark_comments == 1 && row.ignore == 1 -%]
<li id="ignore">
[%- ELSE %]
<li>
[%- END %]
<a href="[% row.identifier_url %]#comment_[% row.comment_id %]" target="_blank">Comment [% row.comment_number %]</a>:
[% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
[%- IF row.comment_title.length > 0 %]
"[% row.comment_title %]"
[%- ELSE -%]
"[no title]"
[%- END -%]
[%# Add the comment body in too if ctext is true -%]
[%- IF ctext == 1 %]
<br/><hr class="thin">[% row.comment_text FILTER html_line_break %]
</li><br/>
[%- ELSE -%]
</li>
[%- END -%]
[%- END -%]
</ul><br/>
</li>
[%- END -%]
</ul>
[%- IF mark_comments == 1 || ctext == 1 -%]
<p><small><small><em>Updated on [% date.format(date.now,'%Y-%m-%d %H:%M:%S') %]</em></small></small></p>
[%- END -%]
[%- END %]
[%# ---------------------------------------------------------------------------------------- -%]
[% cc = (comment_count - past_count) -%]
[% IF cc > 0 -%]
<h3>This month's shows</h3>
<p>There [% cc == 1 ? "is $cc comment" : "are $cc comments" %] on [% current.size %] of this month's shows:</p>
<ul>
[%- FOREACH ep IN current.keys.nsort -%]
[%- arr = current.$ep -%]
<li><strong><a href="[% arr.0.identifier_url %]#comments" target="_blank">hpr[% pad4(arr.0.episode) %]</a></strong>
([% arr.0.date %]) "<em>[% arr.0.title %]</em>"
by <a href="[% correspondents %]/[% pad4(arr.0.hostid) %].html" target="_blank">[% arr.0.host %]</a>.</li>
<li style="list-style: none; display: inline">
<ul>
[%- FOREACH row IN arr -%]
<li><a href="[% row.identifier_url %]#comment_[% row.comment_id %]" target="_blank">Comment [% row.comment_number %]</a>:
[% row.comment_author_name FILTER html_entity -%] on [% date.format(row.comment_timestamp_ut,'%Y-%m-%d','UTC') -%]:
[%- IF row.comment_title.length > 0 %]
"[% row.comment_title %]"
[%- ELSE -%]
"[no title]"
[%- END -%]
</li>
[%- END -%]
</ul><br/>
</li>
[%- END -%]
</ul>
[%- END %]
[%- ELSE %]
There were no comments this month.
[%- END %]
[%- END %]
[%# ---------------------------------------------------------------------------------------- -%]
[%- IF mailnotes == 1 -%]
<h2>Mailing List discussions</h2>
<p>
Policy decisions surrounding HPR are taken by the community as a whole. This
discussion takes place on the <a href="[% mailinglist %]" target="_blank">Mailing List</a>
which is open to all HPR listeners and contributors. The discussions are open
and available on the HPR server under <a href="[% mailbase %]">Mailman</a>.
</p>
<p>The threaded discussions this month can be found here:</p>
<a href="[% mailthreads %]" target="_blank">[% mailthreads %]</a>
[%- END %]
[%# ---------------------------------------------------------------------------------------- -%]
<h2>Events Calendar</h2>
<p>With the kind permission of <strong>LWN.net</strong> we are linking to
<a href="https://lwn.net/Calendar/" target="_blank">The LWN.net Community Calendar</a>.</p>
<p>Quoting the site:</p>
<blockquote>This is the LWN.net community event calendar, where we track
events of interest to people using and developing Linux and free software.
Clicking on individual events will take you to the appropriate web
page.</blockquote>
[%# ---------------------------------------------------------------------------------------- -%]
[%#
# vim: syntax=tt2:ts=8:sw=4:ai:et:tw=78:fo=tcrqn21
-%]