Visualización de un Cluster con cssh

Una utilidad que permite emitir comandos a un cluster de máquinas es el programa Perl cssh. Es conveniente tener instalado un sistema de autentificación automática.

Genere un fichero de configuración usando el comando cssh -u > $HOME/.csshrc.

lhp@nereida:~$ cat -n .csshrc
 1  # Configuration dump produced by 'cssh -u'
 2  auto_quit=yes
 3  comms=ssh
..  .........................................
36  clusters = bo ner
37  bo = casiano@beowulf casiano@orion
38  ner = nereida.deioc.ull.es casiano@beowulf casiano@orion

Añada líneas como la 36-38 para definir sus clusters.

A continuación (en modo X) puede ejecutar un comando como:

lhp@nereida:~$ cssh ner &
[1] 955

Este comando abre sesiones en las máquinas del cluster ner. Una terminal por máquina.

La figura muestra la cónsola de control y tres terminales controladas. Todo lo tecleado en la cónsola de control aparece replicado en las terminales. En la terminal en la parte inferior se puede observar la llamada a cssh que arrancó todo el proceso.

• En una consola de comando adicional es posible emitir comandos que serán replicados en cada una de las máquinas.

• Se puede desactivar cualquiera de las máquinas en el menú hosts. Esto hará que los comandos no se emitan a esa máquina.

• Es siempre posible situarse en la terminal de una conexión y emitir comandos dirgidos a esa sóla máquina.

• La combinación de teclas alt-n genera el nombre de la conexión en cada una de las terminales. Esta macro permite emitir comandos paramétricos.

Konsole

Se puede lograr un efecto parecido, aunque mucho menos conveniente, utilizando el programa konsole de KDE. Abra varias sesiones (tabs), váya al menu Vista/View y seleccione Enviar entrada a todas las sesiones. Ahora lo que escriba en esa sesión se enviará a cada una de las sesiones. Sin embargo, no es tan conveniente como cssh

Enlaces Relacionados

• Cluster ssh: cssh
• Clusterm es otro proyecto también escrito también en Perl pero orientado a Gnome: clusterm
• tentakel
• gsh
• En Python: pssh
• ClusterIt
• Project C3

:PerlSSH )

Vamos a minimizarla:

lusasoft@LusaSoft:~/src/perl/perltesting/dcop$ dcop konsole-10832 konsole-mainwindow#1 minimize

Cambiando el Color de Fondo

Otro ejemplo. Cambiemos el color de fondo:

casiano@europa:~$ dcop kdesktop KBackgroundIface  setWallpaper /tmp/393_5052_2.jpg
casiano@europa:~$ dcop kdesktop KBackgroundIface setColor '#E444F2' true
casiano@europa:~$ dcop kdesktop KBackgroundIface setColor '#68F20B' true

Ejemplo: knotes

He aqui un ejemplo que ilustra como establecer notas post-it con knotes desde la shell:

$dcop knotes KNotesIface
QCStringList interfaces()
QCStringList functions()
int newNote(QString name,QString text)
int newNoteFromClipboard(QString name)
ASYNC showNote(int noteId)
ASYNC hideNote(int noteId)
ASYNC killNote(int noteId)
QMap notes()
ASYNC setName(int noteId,QString newName)
ASYNC setText(int noteId,QString newText)
QString text(int noteId)
ASYNC sync(QString app)
bool isNew(QString app,int noteId)
bool isModified(QString app,int noteId)

Vamos a añadir una nota:

dcop knotes KNotesIface newNote "Titulo de la Nota" "Corregir exámenes"

Ahora veamos las notas que tenemos disponibles:

lusasoft@LusaSoft:~/src/perl/perltesting/dcop$ dcop knotes KNotesIface notes
libkcal-2096876672.442->Titulo de la Nota
libkcal-461202155.843->03-05-09 15:06
libkcal-962646955.232->Una nota

Conexiones SSH con konsole

lusasoft@LusaSoft:~/src/perl/perltesting/dcop$ cat -n dcop_control.pl
 1  #!/usr/bin/perl -w
 2  use strict;
 3  use Log::Log4perl qw(:easy);
 4  use Time::HiRes qw(usleep);
 5  use Backtick::AutoChomp;
 6
 7  Log::Log4perl->easy_init($DEBUG);
 8  my $logger = Log::Log4perl->get_logger();
 9
10  my @servers = qw{orion beowulf europa};
11
12  my $konsole= `dcopstart konsole-script`;
13
14  $logger->warn("can't maximize window\n") if system("dcop $konsole konsole-mainwindow#1 maximize");
15
16  my $thissession= qx{dcop $konsole konsole currentSession};
17
18  # rename this window/session
19  system qq{dcop $konsole $thissession renameSession "init"};
20
21  # start a new session tab for each server
22  for  (@servers) {
23    # this output is displayed on the terminal which is running your script
24    $logger->debug("connecting to server: $_");
25
26    # create another konsole tab and save handle in $newsession
27    my $newsession=`dcop $konsole konsole newSession "ssh $_"`;
28
29    # wait for shell startup - raise if needed
30    usleep(1000) while `dcop $konsole $newsession sessionPID` eq 0;
31
32    # rename the new session
33    !system(qq{dcop $konsole $newsession renameSession $_}) or $logger->warn("can't rename new session to $_\n");
34
35    # and start the ssh session
36    !system(qq{dcop $konsole $newsession sendSession "exec ssh $_ @ARGV"}) or $logger->warn("can't exec ssh  $_ @ARGV\n");
37
38  }
39
40  # close the first session window
41  !system(qq{dcop $konsole $thissession closeSession > /dev/null}) or $logger->warn("can't close intial session\n");
42
43  __END__

Véase También

• The KDE User Guide
• DCOP: Desktop COmmunications Protocol
• Usando DCOP desde la línea de comandos
• Konsole session save and restore
• Start multiple ssh sessions with KDE konsole
• Entrada de la wikipedia para DCOP