"Hosts" f.title
@@-
sub host {
- my ($x,$usex,$rsh) = @_;
+ my ($x,$xfqdn,$usex,$rsh) = @_;
$x =~ m/^(.)(.*)$/;
my ($y) = (uc $1).$2;
my ($rlss) = $rsh ? 'rlogin' : 'ssh';
return " \"$y\"\t\t!\"".
($usex ? "remoteshell ".($rsh?'-rrsh ':'')."$x" :
- "xterm-CT '$x $rlss' -e $rlss $x"). "\t&\"";
+ "xterm-CT '$x $rlss' -e $rlss $xfqdn"). "\t&\"";
}
@@
@@-
sub host_nc {
my ($x,$h,$rsh) = @_;
- &host($x, $ncipher eq $h, $rsh);
+ &host($x,"$x.$ncipherdom{$h}", $ncipher eq $h, $rsh);
}
@@
-@@ &host_nc( 'dounreay', 'cam', 0) @@
@@ &host_nc( 'dover', 'cam', 1) @@
-@@ &host( 'titanic', 0, 1) @@
-@@ &host( 'belgrano', 0, 0) @@
+ "" f.nop
+@@ &host_nc( 'dounreay', 'cam', 0) @@
+@@ &host( 'titanic','titanic.ncipher.com', 0, 1) @@
+@@ &host( 'belgrano','belgrano.ncipher.com', 0, 0) @@
+ "" f.nop
+@@ &host_nc( 'pell', 'bos', 0) @@
"" f.nop
@@ &host_nc( 'jura', 'cam', 0) @@
-@@ &host_nc( 'viking', 'bos', 0) @@
@@ &host_nc( 'islay', 'cam', 0) @@
@@ &host_nc( 'keynes', 'cam', 1) @@
@@ &host_nc( 'scarp', 'cam', 1) @@
@@ &host_nc( 'fowey', 'cam', 1) @@
@@ &host_nc( 'ludlow', 'cam', 1) @@
@@ &host_nc( 'greenock', 'cam', 1) @@
+ "" f.nop
+@@ &host_nc( 'viking', 'bos', 0) @@
+@@ &host_nc( 'arrakis', 'bos', 0) @@
@@;
"" f.nop