- "Dounreay" !"remoteshell dounreay &"
- "Dover" !"remoteshell -rrsh dover &"
- "Titanic" !"xterm-CT 'titanic rlogin' -e rlogin titanic &"
- "Belgrano" !"xterm-CT 'belgrano ssh' -e ssh belgrano &"
+@@-
+ sub host {
+ my ($x,$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&\"";
+ }
+@@
+
+@@? $ncipher ?@@
+@@-
+ sub host_nc {
+ my ($x,$h,$rsh) = @_;
+ &host($x, $ncipher eq $h, $rsh);
+ }
+@@
+@@ &host_nc( 'dounreay', 'cam', 0) @@
+@@ &host_nc( 'dover', 'cam', 1) @@
+@@ &host( 'titanic', 0, 1) @@
+@@ &host( 'belgrano', 0, 0) @@