¿Qué versión de linux utilizas?

1. dmesg | head -1

2. cat /proc/version

3. cat /etc/issue

4. egrep '^title' /boot/grub/menu.lst

Integración Jabber vs Nagios

1. Script en perl de jabber para integrarlo con nagios.

########################################################
#!/usr/bin/perl
#
# Author David Cox
# Created from various code examples found on the web
# Last Modified 08/06/2002
# Feel free to use or modify as needed to suit your needs
#######################################################
# MAXWAIT is used because the send message function didn't seem to
# like being called to fast. The message would be sent unless I waited a second
# or so. You can experiment with it but I just went with 2 seconds.
#######################################################

use strict;
use Net::Jabber qw(Client) ;
use Net::Jabber qw(Message) ;
use Net::Jabber qw(Protocol) ;
use Net::Jabber qw(Presence) ;

my $len = scalar @ARGV;

if ($len ne 2) {
die "Usage...\n notify [jabberid] [message]\n";
}

my @field=split(/,/,$ARGV[0]);

use constant RECIPIENT => $ARGV[0];
use constant SERVER => 'icaro.cti.es';
use constant PORT => 5222;
use constant USER => 'nagios';
use constant PASSWORD => 'ShJRRUQg';
use constant RESOURCE => 'resource';
use constant MESSAGE => $ARGV[1];
use constant MAXWAIT => 2 ;

my $connection = Net::Jabber::Client->new();
$connection->Connect( "hostname" => SERVER,"port" => PORT ) or die
"Cannot connect ($!)\n";

my @result = $connection->AuthSend( "username" => USER,"password" =>
PASSWORD,"resource" => RESOURCE );
if ($result[0] ne "ok") {
die "Ident/Auth with server failed: $result[0] - $result[1]\n";
}

foreach ( @field ) {
my $message = Net::Jabber::Message->new();
$message->SetMessage( "to" => $_,
"subject" => "Notification",
"type" => "chat",
"body" => MESSAGE);

$connection->Send($message);
sleep(MAXWAIT);
}
$connection->Disconnect();
exit;
######################################################

2. Paquetes de perl necesarios para que funcione;

-Authen-SASL-2.10
-Digest-HMAC-1.01
-Net-Jabber-2.0
-Net-XMPP-1.0
-XML-Stream-1.22

3. Modificaciones para integrarlo en nagios.

Modificar el archivo miscommands.cfg para añadir estas lineas:
# 'notify-by-jabber' command definition
define command{
command_name notify-by-jabber
command_line /usr/bin/perl /path/to/jabber/jabber-monitor.pl nagios@jabber_server.com "$HOSTSTATE$ alert for $HOSTNAME$!"
}

y

# 'host-notify-by-jabber' command definition
define command{
command_name host-notify-by-jabber
command_line /usr/bin/perl /path/to/jabber/jabber-monitor.pl nagios@jabber_server.com "$HOSTSTATE$ alert for $HOSTNAME$!"
}

Reiniciamos el servicio nagios.
Añadimos en nuestra cuenta el contacto nagios@jabber_server.com

NOTA: Usuario, host y password son de test, no válidos.

Script de creación de perfil movil para equipos

Situación: En el PDC tenemos las imagenes de los diferentes perfiles creados, ejemplo
aula de audiovisuales "aulaaudio", es un directorio con todo el perfil.
Lo que tenemos que hacer para que al iniciar sesión en el dominio cargue el perfil correspondiente, es crean un enlace de el equipo a dicho perfil, y crear un directorio con el nombre de el equipo y la extensión .pds.


----script-----

[root@pdc profiles]# cat make_link.sh
#!/bin/sh

IP_LINK=$1

PATH_PROFILES=/usr/local/samba/profiles/

PROFILE_BASE=$2

IP_HOST=$1
PDS_HOST=$IP_HOST".pds"

if [ $# != 2 ]
then
echo Uso: "make_link.sh "
exit 1
fi

if [ -L $PATH_PROFILES$1 ]
then
echo "$1 ya esta linkado"
exit 1
else
ln -s $PATH_PROFILES$PROFILE_BASE $PATH_PROFILES$IP_HOST
echo "link $IP_HOST creado."
fi

if [ -d $PATH_PROFILES$PDS_HOST ]
then
echo "$PDS_HOST ya existe"
exit 1
else
mkdir $PATH_PROFILES$PDS_HOST
echo "Dir $PDS_HOST creado."
fi

----end script-----



Con este script no tenemos más que ejecutar lo siguiente para
generar un perfil para ese equipo.
[root@pdc root]#sh make_link.sh x.x.x.x perfil_a_cargar