#!/usr/bin/perl
#
# $Revision: 1.10 $ $Date: 2019-04-29 16:14:20-04 $
# $Source: /doc/html/htdocs/color/RCS/mkcolor,v $
# $Host: furbag.home.arpa $
# $UUID: 68203a34-c2b7-4b05-96ce-07ab6b451129 $
#
# 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, $n, $total, $y);
my (@color, @hexno, @name);
# Real work starts here.
open($fh, "$file") || die "$file: $!\n";
print <<"EndHeader";
Color Samples
Color Samples
Colors in bold can be displayed using the color name as
well as the hex value.
EndHeader
# Colors printed here.
$k = 0;
while (<$fh>) {
$k++;
($h, $n) = (split)[0,4];
if ($n =~ s/\*//) {
$name[$k] = "$n\n";
}
else {
$name[$k] = "$n";
}
$h =~ tr/a-z/A-Z/;
$hexno[$k] = "" . "#$h" . "";
$color[$k] = "#$h";
}
my $blankline = <<"EndBlank";
|
|
|
EndBlank
$total = $k;
$inc = int($total / 3) + 1;
$i = 0;
while ($i < $inc) {
$i++;
$j = $i + $inc;
$k = $j + $inc;
print " \n";
print <<"EndEntry" if $hexno[$i];
| $hexno[$i] |
$name[$i] |
\ |
\ |
EndEntry
print <<"EndEntry" if $hexno[$j];
$hexno[$j] |
$name[$j] |
\ |
\ |
EndEntry
print <<"EndEntry" if $hexno[$k];
$hexno[$k] |
$name[$k] |
\ |
\ |
EndEntry
print "
\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));
}