hpr-tools/Show_Submission/resume_workflow

317 lines
8.0 KiB
Perl
Executable File

#!/usr/bin/env perl
#===============================================================================
#
# FILE: resume_workflow
#
# USAGE: ./resume_workflow epno
#
# DESCRIPTION: For use with an HPR show that may not be fully processed.
# Determines which workflow step is the next that needs to be
# run, displays what it is and the script needed to perform it,
# and passes the script name to the caller.
#
# OPTIONS: ---
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: Dave Morriss (djm), Dave.Morriss@gmail.com
# VERSION: 0.0.2
# CREATED: 2024-02-10 17:53:09
# REVISION: 2024-03-10 19:15:14
#
#===============================================================================
use v5.16;
use strict;
use warnings;
use feature qw{ postderef say signatures state try };
no warnings
qw{ experimental::postderef experimental::signatures experimental::try };
use Config::General;
use List::Util qw( maxstr minstr );
use List::MoreUtils qw( uniq );
use File::Slurper qw( read_text read_lines );
use JSON;
use Log::Handler;
use Data::Dumper;
#
# Version number (Incremented by Vim)
#
our $VERSION = '0.0.2';
#
# Script and directory names
#
( my $PROG = $0 ) =~ s|.*/||mx;
( my $DIR = $0 ) =~ s|/?[^/]*$||mx;
$DIR = '.' unless $DIR;
#-------------------------------------------------------------------------------
# Declarations
#-------------------------------------------------------------------------------
#
# Constants and other declarations
#
my $basedir = "$ENV{HOME}/HPR/Show_Submission";
my $cache = "$basedir/shownotes";
my $logs = "$basedir/logs";
my $logfile = "$logs/$PROG.log";
my $j_shownotes = 'shownotes.json';
my $formatfile = '.format';
my $statusfile = '.status';
my $assetfile = '.assets';
my $picturefile = '.pictures';
#
# Setting the environment variable 'resume_workflow_DEBUG' to greater than
# 0 enables debug output. Different values control different output
#
my $DEBUG = 0;
my $DEBUG_env = "${PROG}_DEBUG";
if ( defined($ENV{"$DEBUG_env"})) {
$DEBUG = $ENV{"$DEBUG_env"};
}
my ($showno, $showid, $missed);
my %showdata;
my @statustags = qw(
copied
parsed
format
metadata
pictures
assets
edited
converted
rendered
uploaded
database
reported
);
#
# Set up the tag hash
#
# {{{
my %taghash = (
'copied' => {
'description' => 'Copy notes',
'script' => 'copy_shownotes',
'level' => 1,
},
'parsed' => {
'description' => 'Parse raw',
'script' => 'do_parse',
'level' => 1,
},
'format' => {
'description' => 'Change format',
'script' => 'do_change_format',
'level' => 2,
},
'metadata' => {
'description' => 'Edit metadata',
'script' => 'do_edit_shownotes',
'level' => 2,
},
'pictures' => {
'description' => 'Process pictures',
'script' => 'do_pictures',
'level' => 2,
},
'assets' => {
'description' => 'Upload assets',
'script' => 'do_asset_upload',
'level' => 2,
},
'edited' => {
'description' => 'Edit notes',
'script' => 'do_vim',
'level' => 1,
},
'converted' => {
'description' => 'Run Pandoc',
'script' => 'do_pandoc',
'level' => 1,
},
'rendered' => {
'description' => 'Run browser',
'script' => 'do_browse',
'level' => 1,
},
'uploaded' => {
'description' => 'Upload HTML',
'script' => 'do_upload',
'level' => 1,
},
'database' => {
'description' => 'Change database status',
'script' => 'do_update_reservations',
'level' => 1,
},
'reported' => {
'description' => 'Report change to Matrix',
'script' => 'do_report',
'level' => 1,
},
);
# }}}
_debug($DEBUG == 3, '%taghash: ' . Dumper(\%taghash));
#
# Enable Unicode mode
#
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";
#-------------------------------------------------------------------------------
# Argument 1 must be the episode number in '1234' or 'hpr1234' form
#-------------------------------------------------------------------------------
$showno = shift;
die "Usage: $PROG epno\n" unless $showno;
if (($showno) =~ /^(?:hpr)?(\d+)$/) {
#
# Make an id in 'hpr1234' format
#
$showid = sprintf('hpr%04d',$showno);
}
else {
die "Invalid episode format: $showno\n";
}
#-------------------------------------------------------------------------------
# Set up logging keeping the default log layout except for the date. The format
# is "%T [%L] %m" where '%T' is the timestamp, '%L' is the log level and '%m is
# the message.
#-------------------------------------------------------------------------------
my $log = Log::Handler->new();
$log->add(
file => {
timeformat => "%Y/%m/%d %H:%M:%S",
filename => $logfile,
minlevel => 0,
maxlevel => 7,
}
);
#
# Check the existence of the requested show directory
#
unless (-d "$cache/$showid") {
die "Directory $cache/$showid not found\n";
}
$log->info("Processing show $showid");
#-------------------------------------------------------------------------------
# Collect show data
#-------------------------------------------------------------------------------
#
# Declared format
#
if ( -e "$cache/$showid/$formatfile" ) {
chomp($showdata{format} = read_text("$cache/$showid/$formatfile"));
}
else {
$showdata{format} = undef;
}
#
# Current status
#
if ( -e "$cache/$showid/$statusfile" ) {
$showdata{statuslist} = [];
push(@{$showdata{statuslist}}, read_lines("$cache/$showid/$statusfile"));
}
else {
$showdata{statuslist} = undef;
}
#
# Assets
#
if ( -e "$cache/$showid/$assetfile" ) {
$showdata{assets} = [];
push(@{$showdata{assets}}, read_lines("$cache/$showid/$assetfile"));
$taghash{assets}->{level} = 1;
}
else {
$showdata{assets} = undef;
}
#
# Pictures (a subset of assets)
#
if ( -e "$cache/$showid/$picturefile" ) {
$showdata{pictures} = [];
push(@{$showdata{pictures}}, read_lines("$cache/$showid/$picturefile"));
$taghash{pictures}->{level} = 1;
}
else {
$showdata{pictures} = undef;
}
_debug($DEBUG == 3, '%showdata: ' . Dumper(\%showdata));
#-------------------------------------------------------------------------------
# Determine the incomplete steps in the workflow
#-------------------------------------------------------------------------------
$missed = 0;
for my $tag (@statustags) {
my $th = $taghash{$tag};
if ( $th->{level} == 1
&& scalar( grep( /$tag/, @{ $showdata{statuslist} } ) ) == 0 )
{
printf "%-40s (./%s %d)\n",
"Missing '$th->{description}' step",
$th->{script}, $showno;
$missed++;
}
}
#
# Nothing missed, so say so
#
say "Nothing to do for show $showno" if ($missed == 0);
exit;
#=== FUNCTION ================================================================
# NAME: _debug
# PURPOSE: Prints debug reports
# PARAMETERS: $active Boolean: 1 for print, 0 for no print
# $messages... Arbitrary list of messages to print
# RETURNS: Nothing
# DESCRIPTION: Outputs messages if $active is true. It removes any trailing
# newline from each one and then adds one in the 'print' to the
# caller doesn't have to bother. Prepends each message with 'D>'
# to show it's a debug message.
# THROWS: No exceptions
# COMMENTS: Differs from other functions of the same name
# SEE ALSO: N/A
#===============================================================================
sub _debug {
my $active = shift;
my $message;
return unless $active;
while ($message = shift) {
chomp($message);
print STDERR "D> $message\n";
}
}
# vim: syntax=perl:ts=8:sw=4:et:ai:tw=78:fo=tcrqn21:fdm=marker