#!/usr/bin/perl -w

#$xterm = "rxvt";
$xterm = "xterm";
#$xterm = "/usr/openwin/bin/xterm";
#$xterm = "/usr/local/bin/rxvt";
#$xterm = '/usr/X11R6/bin/xterm';
#$xterm = '/opt/sfw/bin/rxvt';
#$stdarg = '-bc ';

%fontsdef = (
	all => "-misc-fixed-medium-r-normal-*-15-*-*-*-*-*-iso8859-2",
#  all => "-misc-fixed-medium-*-*-*-*-120-*-*-*-80-iso8859-2",
  ssh => "-misc-fixed-medium-*-*-*-*-117-*-*-*-80-iso8859-2",
  al2 => "-*-fixed-medium-r-*-*-15-*-*-*-*-*-*-2",
  fda => "-misc-*-medium-r-*-*-15-*-*-*-*-*-iso8859-2",
  qwe => "-misc-fixed-*-*-*-*-*-120-*-*-*-80-iso8859-2",
  aas => "-misc-fixed-*-r-*--15-*-*-*-*-*-iso8859-2",
  nic => "9x15",
  ok1 => "-misc-fixed-medium-*-*-*-*-140-*-*-*-*-iso8859-2",
	big => "-misc-fixed-*-*-*-*-20-*-*-*-*-*-iso8859-2",
);

$font = ("@ARGV" =~ /ssh/) ? $fontsdef{'ssh'} :
        ("@ARGV" =~ /big/) ? $fontsdef{'big'} :
				$fontsdef{'all'};

for(@ARGV){ /-fn/ and shift @ARGV,$font = shift @ARGV,last }

#if( defined $ARGV[0] and $ARGV[0] =~ /normal/ ){ $font = "9x15"; shift @ARGV; }

@colors = qw(
  003a3a 003a50 004040 304040 002c31 002f42
  002626 004a55 0d4a63 0c3129 3f5052 006675
  003840 00404c 004055 284d49 38436b 304b5b
);

for(@colors){ $_ = "#$_" }

srand( time()^ ($$ + ($$ << 15)) );
$num = rand(@colors);
system(
  qq[ $xterm ].#$stdarg.
  qq[ -fn "$font" ].
  qq[ -fg "#FFFFDD" ].
  qq[ -bg "$colors[$num]" ].
  qq[ -cr "#FF5500" ].
  (($xterm =~ /rxvt/) ? "--geometry 100x40" : "-geom 100x40" ).
  (join " ",@ARGV).
  qq[ & ]
);