X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=from-cvs%2Ffiles%2Fpersonal_scripts_bin_xloadt;fp=from-cvs%2Ffiles%2Fpersonal_scripts_bin_xloadt;h=d7132164a0c65e706112cd2d10cd88466d4de000;hb=4ed6df107b1db703ad86565447aa20b6385d3116;hp=0000000000000000000000000000000000000000;hpb=5f7cd9911c34368127da9819a3afc878976c02e5;p=ian-dotfiles.git

diff --git a/from-cvs/files/personal_scripts_bin_xloadt b/from-cvs/files/personal_scripts_bin_xloadt
new file mode 100755
index 0000000..d713216
--- /dev/null
+++ b/from-cvs/files/personal_scripts_bin_xloadt
@@ -0,0 +1,22 @@
+#!/bin/sh -
+hostname="`hostname | sed -e 's/\..*//'`"
+xlsclients | egrep \
+ '[^ ]* xload -geometry [^ ]* -title '"'xload - $hostname'" \
+ >/dev/null && exit 0
+xload -geometry 120x120+@@
+
+@hostlist=
+($ncipher eq 'bos' ? qw(viking dover pell arrakis) :
+ $ncipher eq 'cam' ? qw(jura islay dover dounreay marple belgrano greenock) :
+ $chiark ? qw(chiark) :
+ qw(davenant anarres liberator norway));
+
+for ($i=0; $i<@hostlist; $i++) { last if $hostlist[$i] eq $nodename; }
+if ($i>=@hostlist) {
+    print STDERR "!! nodename $nodename not in $ncipher list @hostlist\n";
+    $i=-2;
+}
+
+302+141*$i;
+
+@@+0 -title "xload - $hostname"