#!/usr/bin/perl
#
# $Revision: 1.1 $ $Date: 2019-04-29 16:01:46-04 $
# $Source: /doc/html/htdocs/color/RCS/mkcolorbyname,v $
# $Host: furbag.home.arpa $
# $UUID: 0004ffaf-bd8b-4076-a718-aef7973f8c12 $
#
# Read list of colors, create an HTML page displaying them in a table.
# Table has three sets of three columns, holding the hex definition,
# the color name, and a sample. We use three columns in case the color
# sample would make any text too hard to read.
use strict;
use warnings;
use File::Basename;
# Arguments, variables.
$ENV{'PATH'} = join ":", qw(/bin /usr/bin /usr/local/bin /opt/sfw/bin);
my $myname = basename($0);
$myname =~ s/\.\w*$//; # strip any extension
my $file = shift(@ARGV) || die "need a list of colors\n";
my $fh;
my ($h, $i, $inc, $j, $k, $total, $y);
my (@color, @hexno, @name, @cname);
# Real work starts here.
open($fh, "$file") || die "$file: $!\n";
print <<"EndHeader";
Color Samples
\n";
print "$blankline" if $i % 10 == 0;
}
# Footer.
my $adate = arpadate();
print <<"EndTrailer";
\
Generated by $myname from $file
Last update: $adate
EndTrailer
close($fh);
exit(0);
#---------------------------------------------------------------------
# Accept an optional date in total seconds since the epoch,
# and write it in ARPA-mail standard form:
# Fri, 28 Mar 1997 15:40:57 -0500
sub arpadate {
use POSIX qw(strftime);
my $t = shift || time();
return strftime("%a, %d %b %Y %T %z", localtime($t));
}