#!/bin/bash

pkill gvfsd-metadata
rm -rf ~/.local/share/gvfs-metadata

#!/usr/bin/env perl

use strict;
use warnings;

use Net::Telnet;

#------------------------------------------------------------------------------

my($host, $username, $password, $prompt, $logFileName) =
(
	'unix-box',
	'user-name',
	'pass-word',
	'/\$/',
	'xterm.log',
);

my($session);

$session = new Net::Telnet
(
	Timeout	=> 10,
	Prompt	=> $prompt
);

$session -> input_log($logFileName);
$session -> open($host);
$session -> login($username, $password);

# Warning: Use spaces and not tabs to separated fields within these strings.
#	Net::Telnet strips the tabs and does not replace them with a space.

# This does not work. Why? Probably the paths to xt in xts:
# $session -> cmd('./bin/xts 192.168.1.2');

$session -> cmd('./bin/xt cornsilk        firebrick4  192.168.1.2');
$session -> cmd('./bin/xt lavenderblush   indianred4  192.168.1.2');
$session -> cmd('./bin/xt palegoldenrod   darkgreen   192.168.1.2');
$session -> cmd('./bin/xt palegoldenrod   navyblue    192.168.1.2');
$session -> cmd('./bin/xt whitesmoke      dimgray     192.168.1.2');

$session -> close();

#!/bin/bash
# Purpose: Start a set of xterms.
# Note: Color combinations I have tested.
#
# Good
# ====
# cornsilk		firebrick4
# white			firebrick4
#
# palegoldenrod	darkgreen
# whitesmoke	darkgreen
#
# whitesmoke	dimgray
#
# whitesmoke	grey20
#
# lavenderblush	indianred4
# palegoldenrod	indianred4
# white			indianred4
#
# whitesmoke	lightslategray
#
# bisque		navyblue
# palegoldenrod	navyblue
# white			navyblue
# whitesmoke	navyblue
#
# Possible
# ========
# yellow		black
#
# white			cadetblue
#
# indianred		cornsilk
#
# aliceblue		firebrick4
# lavender		firebrick4
# lightcyan		firebrick4
# turqouise		firebrick4
#
# turqouise		indianred4
# white			indianred4
#
# black			lavender
#
# yellow		navy
#
# yellow		slateblue
#
# whitesmoke	steelblue

IP=$1

xt yellow        black      $IP
xt yellow        black      $IP

xt whitesmoke    dimgray    $IP
xt whitesmoke    dimgray    $IP

xt cornsilk      firebrick4 $IP
xt cornsilk      firebrick4 $IP

xt palegoldenrod darkgreen  $IP
xt palegoldenrod darkgreen  $IP

xt palegoldenrod navyblue   $IP
xt palegoldenrod navyblue   $IP

#xt lavenderblush indianred4 $IP
#xt lavenderblush indianred4 $IP

#!/bin/bash
# Note: See xts.sh for sample color combinations.

FG=$1
BG=$2
IP=$3

/usr/bin/xterm -bg $BG -cr yellow -display $IP:0 -fg $FG -font 9x15bold -geometry 120x50+0+0 -ls -maximized -name ${FG}_$BG -sb -sl 10000 &

You can redistribute all my programs, and/or modify them, under the terms of
	The Perl License, a copy of which is available via: http://dev.perl.org/licenses/