#!/usr/bin/perl

# The nice web page I had been using for X11 screen colours disappeared
# You might want to apply this script to your local rgb.txt
# www.iainmurray.net 2001

use File::Basename; 

# WARNING: Unjustified assumptions are made about his file:
#$file = 'rgb.txt';
$file = '/usr/X11R6/lib/X11/rgb.txt';

print '<h1>X11 Screen Colours</h1>
';
	   
open (INPUT, $file) or die "Can not open $file: $!";
	print '<p>Taken from: '.<INPUT>;
	print ', using <a href="'.basename($0).'">'.basename($0).'</a></p>';
	print '<table cellspacing="10">'."\n";
	while (<INPUT>) {
		chomp;
		($red,$green,$blue,$colour) = split(" ",$_);
		$red = sprintf("%2.2x",$red);
		$green = sprintf("%2.2x",$green);
		$blue = sprintf("%2.2x",$blue);
		print '<tr><td align="right">'.$colour.'</td>';
		print '<td bgcolor="#'.$red.$green.$blue.'" width="100%">';
		print '<font color="#'.$red.$green.$blue;
		print '">'.$colour.'</font></td></tr>'."\n";
	}
close(INPUT) or print STDERR "Can not close $file: $!";

print '</table>';