#!/usr/bin/perl
use strict;
use warnings;
use Cwd;
use File::Basename;
use File::Glob;
use Getopt::Long;
my $version = 'v3.14';
my $signature = " (hs $version)"; # Added to (some of) the html files
my $prog = fileparse($0, '\.pl');
my $rc = 'bcfix.ini'; # Control file
my $nl = "\n ";
$nl = "";
# Standard values
# Change the following constants to tailor the script to your club:
my $defCharset = ' ';
my $defResSeq = 'sap';
# Following values can be set in the configuration file, $rc
my $fSub = 0; # No link for substitutes
my $submail = '';
my $sub = 'Substitutter';
my $subtip = 'Send e-mail om substitutter';
my $fCorr = 0; # No links for corrections
my $corrmail = '';
my $corr = 'Korrektioner';
my $corrtip = 'Send e-mail med korrektioner';
my $fNext = 0; # No link to next section
my $nextweek = 'Næste gang';
my $nextweektip = 'Startlisten næste gang';
my $fTable = 0; # No table symbol in the diagrams
my $fTNumbers = 0; # Retain table numbers (2Å and 3L)
my $fScoreSequence = 0; # Show results in different sequences
my ($resseq, @resseq);
# End of values that can be set in the configuration file
# Values modifiable by options:
my $fCss = 1; # Insert CSS commands in the html files
my $fDel = 1; # Delete superfluous SpilRes files
my $fList = 0; #
my $fShow = 0; #
my $fTest = 0; #
my $fTime = 0; #
my $fIgnore = 0; # Ignore missing files
# End of values modifiable by options:
# I would like to control the page breaks when the boards are printed,
# but I haven't found the way with current browsers.
sub usage(); # print usage info and quit
sub version(); # print version info and quit
sub list(); # list the start files and their status and quit
sub showtime($); #
sub move($$); #
sub state($); # returns the state of a presumed start file
sub makeISOdate($$$$); #
sub makePairsResult($$); # makes an html-section with a pairs' result table
sub makeTeamsTable($$$$); # makes an html-section with a teams' score table
sub makeBoard($$$); #
sub getTournaments($); # make a hash with tournament dates and corresponding section numbers
sub getNextSec($); # determine the next section number
sub isOK($); #
sub extendResultat($); # add differently ordered result lists
sub extendSpilRes($); # add differently orderer board results
sub extendKampresultat($); # add team table order by scores
sub handle($); # handle a single html-file
sub getconf(); # read the configuration file
sub usage() {
print <<"USAGE";
Synopsis:
$prog [options] [section ...]
--help show this help and quit
--? show this help and quit
--version show the version of $prog and quit
--list show the start files in the current directory and quit
--[no]css insert (or don't insert) the CSS modifications in the html-files (default css)
--[no]delete delete (or don't delete) the superfluous html files (default delete)
--[no]show show (or don't show) the names of the files handled (default noshow)
--[no]table show (or don't show) a table in the diagrams (default notable)
--[no]time show (or don't show) the time used (default notime)
If no section is specified, all new (i.e. unhandled) sections are fixed.
This script modifies the html-files produces by BridgeCentral for the specified sections
in the current directory (the sections may be specified by their number (e.g. 48) or
by the name of their start file (e.g. Startliste48.html)).
It corrects a few formal errors, it ensures that the links from the personal result files
refer to the actual boards in the SpilRes file rather than to the top,
and it inserts (optionally) a number of mailto links for corrections.
The script assumes the existence of a start list (Startliste#.html), and all files referred here
or in any of the referred files (except those only referred in ../KlubTurn.html) are fixed.
Pairs Teams
../KlubTurn.html x x
Startliste#.html x x
Fordeling#.html x x
Resultat#.html x x
PRegnskab_S#_P€.html x
SpilRes_S#_CG~.html x
Frekvens#.html x
Stilling#.html x
Slutstilling#.html x
KampResultat#.html x
MultiStilling#.html x
MultiBord§.html x
MultiResultat§.html x
where # is the section number,
€ is the pair number,
~ is the round number and
§ is some sort of sequence number.
Depending on the options it further deletes any file named SpilRes_S#_CG~.html unless it is
referred from another file. This cleans up a strange behaviour of BridgeCentral.
The script currently works with the template files from BridgeCentral 1.8.1, but the CSS file
(standard.css) has to be modified as explained in the source (unless you use the --css option,
which is the default).
USAGE
exit 0;
} # usage()
sub version() {
printf "%s %s\n", $prog, $version;
exit 0;
} # version()
sub list() {
foreach my $fn (glob "Startliste*.html") {
print $fn, state($fn);
}
exit 0;
} # list()
sub showtime($) {
my ($t) = @_;
printf "\ttime used: %.3f secs\n", $t if $fTime;
} # showtime()
# The script makes the following modifications to the html-files:
# Cosmetics
# All tags and attributes are converted to lower case
# Table numbers like 3Å and 4L are (optionally) shown
# as if the tables were numbered 1, 2, 3, ...
#
# Errors corrected
# The character set is defined
# A missing is inserted
# Missing ...
inserted around |
# align="left" valign="top" align="right" is replaced by align="left" valign="top"
# Missing , and