Solucionar error NO_PUBKEY Ubuntu

Posted on por

Cuando se ejecuta una actualización apt update, o cuando se intenta actualizar las fuentes de software, apt se quejará de no poder descargar todos los índices del repositorio, mostrando errores como este:

Las firmas siguientes no se pudieron verificar porque su clave pública no está disponible: NO_PUBKEY 3F01618A51312F3F

Solución: Importar por lotes todas las claves GPG que faltan

Cuando faltan varias claves OpenPGP públicas, puedes usar una simple línea para importarlas todas de una sola vez:

sudo apt update 2>&1 1>/dev/null | sed -ne 's/.*NO_PUBKEY //p' | while read key; do if ! [[ ${keys[*]} =~ "$key" ]]; then sudo apt-key adv --keyserver hkp://pool.sks-keyservers.net:80 --recv-keys "$key"; keys+=("$key"); fi; done

Ejemplo Cursor MySQL

Posted on por

Responder

Ejemplo Cursor MySQL

DELIMITER $$
CREATE PROCEDURE createEmailList (
    INOUT emailList varchar(4000)
)
BEGIN
    DECLARE finished INTEGER DEFAULT 0;
    DECLARE emailAddress varchar(100) DEFAULT "";

    -- declare cursor for employee email
    DEClARE curEmail 
        CURSOR FOR 
            SELECT email FROM employees;

    -- declare NOT FOUND handler
    DECLARE CONTINUE HANDLER 
        FOR NOT FOUND SET finished = 1;

    OPEN curEmail;

    getEmail: LOOP
        FETCH curEmail INTO emailAddress;
        IF finished = 1 THEN 
            LEAVE getEmail;
        END IF;
        -- build email list
        SET emailList = CONCAT(emailAddress,";",emailList);
    END LOOP getEmail;
    CLOSE curEmail;

END$$
DELIMITER ;

MySQL Server – Ajustar la autenticación y los privilegios del usuario

Posted on por

Responder

Para las instalaciones recientes, querrá ejecutar el script de seguridad que viene incluido. Esto cambia algunas de las opciones predeterminadas menos seguras para cosas como inicios de sesión root remotos y usuarios de ejemplo. Para las versiones antiguas de MySQL, también deberá inicializar el directorio de datos manualmente, pero ahora esto se hace automáticamente.

Sigue leyendo →

Mac Os: Eliminar los archivos ._ en las unidades montadas

Posted on por

Responder

Ya sea en unidades de red o unidades externas que hayamos montado (pendrives, discos externos, unidades NAS, etc) es común que se generen estos archivos ._nombre_archivo de “respaldo” ( no tengo certeza cual es su función ). Estos archivos son ocultos en sistemas unix, pero sí los vemos, por ejemplo desde Windows, pueden ser un tanto molestos si son demasiados. Para borrarlos sólo basta correr el siguiente script desde una terminal.

12	`cd` `[lugar donde esta montado la unidad]` `find` `. -name "._*"` `-exec` `rm` `'{}'` `\; -print`

Si se trata de un disco duro su punto de montaje es normalmente /Volumes, pero si no está ahí no y tienes idea donde está montada la unidad (como me pasó con las unidades que monta ntfsMounter) puedes preguntarle a la Utilidad de Discos:

Cómo conectarse en perl a una base de datos mysql

Posted on por

Responder

Supongamos que tenemos una base de datos mysql llamada ‘personas’ a la que podemos acceder con usuario ‘usudb’ y contraseña ‘clave’.

La base de datos contiene una tabla llamada ‘tabla’ con los siguientes campos:

nombre varchar(32)
edad integer
fecha_alta date

Podemos conectarnos a la base de datos, leer y escribir registros con el siguiente código en perl:

#!/usr/bin/perl use strict; use warnings; use DBI; my $dbname = 'personas'; my $dbhost = '127.0.0.1'; my $dbuser = 'usudb'; my $dbpwd = 'clave'; my $dbh; my $stmt; my $sth; my $row; ## Conectarse a la base de datos ## $dbh = DBI->connect("DBI:mysql:$dbname;host=$dbhost", $dbuser, $dbpwd) or die "Error de conexion: $DBI::errstr"; ## Preparar la sentencia de insercion en la base de datos $sth = $dbh->prepare( "insert into tabla ( nombre, edad, fecha) values ( ? , ? , ? )" ); ## Insertar un registro en la tabla ## $sth->execute( "pedro ramirez", 36, '2012-04-14' ); ## Leer los registros de la tabla ## $sth = $dbh->prepare("select nombre, edad, fecha from tabla"); $sth->execute(); while ($row = $sth->fetchrow_hashref) { print "nombre: " . $row->{nombre} . "\n"; print "edad: " . $row->{edad} . "\n"; print "fecha de alta: " . $row->{fecha_alta} . "\n"; } ## Desconectarse de la base de datos ## if (! $dbh->disconnect) { warn "Error al desconectarse de la base de datos: $DBI::errstr"; } #####################################################################

#!/usr/bin/perl

use strict;

use warnings;

use DBI;

my $dbname = 'personas';

my $dbhost = '127.0.0.1';

my $dbuser = 'usudb';

my $dbpwd = 'clave';

my $dbh;

my $stmt;

my $sth;

my $row;

## Conectarse a la base de datos

$dbh = DBI->connect("DBI:mysql:$dbname;host=$dbhost", $dbuser, $dbpwd)

or die "Error de conexion: $DBI::errstr";

## Preparar la sentencia de insercion en la base de datos

$sth = $dbh->prepare(

"insert into tabla ( nombre, edad, fecha) values ( ? , ? , ? )"

);

## Insertar un registro en la tabla

$sth->execute( "pedro ramirez", 36, '2012-04-14' );

## Leer los registros de la tabla

$sth = $dbh->prepare("select nombre, edad, fecha from tabla");

$sth->execute();

while ($row = $sth->fetchrow_hashref) {

print "nombre: " . $row->{nombre} . "\n";

print "edad: " . $row->{edad} . "\n";

print "fecha de alta: " . $row->{fecha_alta} . "\n";

}

## Desconectarse de la base de datos

if (! $dbh->disconnect) {

warn "Error al desconectarse de la base de datos: $DBI::errstr";

}

#####################################################################

Como vemos, la librería DBI es la encargada de implementar la conectividad a mysql desde perl.

Cómo enviar un email desde un script perl

Posted on por

Responder

En ocasiones es interesante poder enviar un email desde nuestra aplicación. Un ejemplo puede ser el caso de un proceso que se ejecuta periódicamente en un servidor (quizá mediante una entrada en cron), y que avisa mediante un email cuando se produce alguna incidencia durante su ejecución.

En Perl, la manera más sencilla de enviar un email es llamando a una aplicación externa de envío de correos por línea de comandos que esté disponible en el sistema, como pueden ser ‘mailx’, ‘mutt’ o el propio ‘sendmail’ en sistemas Linux:

Envío de email mediante a una llamada a sendmail

Para ello, podemos definir una función ‘send_email’ como sigue:

sub send_email {<br /><br /><br />
    my ($remitente, $destinatario, $asunto, $mensaje) = @_;<br /><br /><br />
    open(MAIL, "|/usr/lib/sendmail -oi -t");<br /><br /><br />
    print MAIL "From: $remitente\n";<br /><br /><br />
    print MAIL "To: $destinatario\n";<br /><br /><br />
    print MAIL "Subject: $asunto\n\n";<br /><br /><br />
    print MAIL "$mensaje\n";<br /><br /><br />
    close(MAIL);<br /><br /><br />
}<br /><br /><br />

sub send_email {

my ($remitente, $destinatario, $asunto, $mensaje) = @_;

open(MAIL, "|/usr/lib/sendmail -oi -t");

print MAIL "From: $remitente\n";

print MAIL "To: $destinatario\n";

print MAIL "Subject: $asunto\n\n";

print MAIL "$mensaje\n";

close(MAIL);

}

De este modo, podemos enviar un email mediante la llamada:

  send_email('soporte@openalfa.com',<br /><br /><br />
             'usuario@gmail.com',<br /><br /><br />
             'Mensaje de prueba',<br /><br /><br />
             'Estimado usuario, este es un mensaje de prueba');<br /><br /><br />

send_email('soporte@openalfa.com',

'usuario@gmail.com',

'Mensaje de prueba',

'Estimado usuario, este es un mensaje de prueba');

En la rutina send_email, el segundo argumento de la llamada a open(MAIL …) comienza con el caracter “|” (pipe). Así se dispara la ejecución del comando sendmail, y se asocia su standard input a la variable “MAIL”. De este modo, las siguientes llamadas “print MAIL …” envían el texto al programa sendmail.

El texto que se envía a sendmail consta de una cabecera de tres líneas con el remitente, el destinatario y el asunto del mensaje, seguida del cuerpo del mensaje. La cabecera debe estar separada del cuerpo por una línea en blanco, y por eso la tercera línea que se envía (con el asunto del mensaje) finaliza en “nn”.

Envío de emails con ficheros adjuntos

El mecanismo de llamar a un comando del sistema mediante una canalización (pipe) se puede aplicar a cualquier otro comando que queramos ejecutar. En concreto, si tenemos necesidad de enviar mensajes más elaborados (por ejemplo, mensajes HTML, o mensajes que incluyen ficheros adjuntos) podemos llamar a otro cliente de correo en lugar de a sendmail. mutt es un ejemplo de cliente de correo disponible en sistemas linux que puede ser usado para añadir adjuntos a los mensajes que enviamos.

En funcion de las características de nuestro sistema, podemos también utilizar los comandos ‘mail’, ‘mailx’ o cualquier otro cliente de correo que ofrezca un interfaz de línea de comandos.

Otras posibilidades para enviar emails desde Perl

La biblioteca CPAN de módulos perl también dispone de numerosos módulos para el envío de correo, entre los que se encuentran Net::SMTP, Email::Sender, Email::MIME, MIME::Lite, etc.

Por ejemplo, podemos enviar un mensaje HTML utilizando MIME::Lite con el siguiente código:

#!/usr/bin/perl -w<br /><br /><br />
use strict;<br /><br /><br />
use MIME::Lite;<br /><br /><br />
# Destinatario<br /><br /><br />
my $email = 'usuario@gmail.com';<br /><br /><br />
my $mensaje = MIME::Lite->new (<br /><br /><br />
    Subject => "Prueba de mensaje HTML",<br /><br /><br />
    From    => 'dev@openalfa.com',<br /><br /><br />
    To      => $email,<br /><br /><br />
    Type    => 'text/html',<br /><br /><br />
    Data    => '<H1>Mensaje de prueba</H1><br>Este es un mensaje de prueba<br/><br /><br /><br />
    Por cortesía de <a href="http://blog.openalfa.com/">Blog Openalfa</a><hr>'<br /><br /><br />
);<br /><br /><br />
$mensaje->send();<br /><br /><br />

#!/usr/bin/perl -w

use strict;

use MIME::Lite;

# Destinatario

my $email = 'usuario@gmail.com';

my $mensaje = MIME::Lite->new (

Subject => "Prueba de mensaje HTML",

From => 'dev@openalfa.com',

To => $email,

Type => 'text/html',

Data => '<H1>Mensaje de prueba</H1> Este es un mensaje de prueba

Por cortesía de <a href="http://blog.openalfa.com/">Blog Openalfa</a><hr>'

);

$mensaje->send();

Sigue leyendo →

Como Detectar Errores y Comprobar el Estado de tu Disco Duro en Linux

Posted on por

Responder

Detecta Sectores Defectuosos en el Disco con badblocks

Otra utilidad muy interesante que no debes dejar de conocer es badblocks, que forma parte del proyecto e2fsprogs, un set de herramientas y utilidades de mantenimiento para GNU/Linux y enfocado a sistemas de archivos ext2, ext3 y ext4.

Con badblocks podrás hacer un check completo de tu disco, y te indicará al finalizar el número de sectores defectuosos que encuentra. La sintaxis básica para su utilización la tienes aquí:

$ sudo badblocks [parámetros] [ruta de la partición]

Los parámetros generalmente son letras que indican diferentes modalidades de escaneo. La ruta del volumen generalmente será la ruta de una partición. Para conocer el nombre las diferentes particiones y volúmenes de tu disco, puedes utilizar esto:

$ sudo fdisk -l

Previamente a utilizar badblocks, es muy importante desmontar la partición o el volumen sobre el cual se pretende hacer el análisis. Para desmontar una unidad o partición concreta, y conociendo ya su nombre y su ruta, puedes valerte del siguiente comando:

$ sudo unmount [ruta de la partición]

Para hacer un escaneo de la partición del sistema, lo más recomendable sera hacera mediante un LiveCD con alguna distro Linux, y desmontando la partición del sistema operativo antes del análisis.

Visto todo esto, si te parece podemos ver algunos ejemplos de uso de badblocks con diferentes parámetros de escaneo.

Uso Básico

$ sudo badblocks /dev/sda1

Es la opción estándar y la más simple si no dominas mucho su sintaxis. Con esta opción, badblocks hace un check de solo lectura, y no muestra ninguna salida de pantalla mientras no se encuentren sectores defectuosos.

Uso Básico con Verbose

$ sudo badblocks -v /dev/sda1

Igual que la opción estándar, pero con la opción verbose habilitada [-v]. En este caso badblocks nos informará por pantalla del progreso del análisis, así como del numero de bloques defectuosos que haya encontrado al final del análisis.

Lectura y Escritura – No Destructivo

$ sudo badblocks -nsv /dev/sda1

Básicamente hace un escaneo de lectura y escritura no destructivo [-n], mostrando una barra de progreso [-s] y con la opción verbose habilitada [-v] para mostrar información sobre los sectores detectados. La partición en este caso es la sda1.

Tienes mucha más información del uso y las diferentes opciones de badblocks en esta completa wiki de Arch Linux. Además, para un vistazo de todas las opciones, puedes acceder a la guía oficial tecleando man badblocks por la terminal.

Detecta Errores e Inconsistencias en el Sistema de Archivos con e2fsck

e2fsprogs, utilidad llamada e2fsck, que en este caso hará un análisis del sistema de archivos a nivel lógico, en busca de errores e inconsistencias. La sintaxis es muy similar a la de badblocks.

$ sudo e2fsck [parametros] [ruta de partición]

Al igual que con badblocks, es muy importante desmontar antes la partición que vayamos a analizar. A continuación, algunos ejemplos:

Uso Básico

$ sudo e2fsck /dev/sda1

Esta es la opción más básica, y en este caso hará un análisis a nivel lógico del sistema de archivos de la partición sda1.

Uso Combinado con Badblocks

$ sudo e2fsck -c /dev/sda1

Esta opción es especialmente interesante, ya que al mismo tiempo de busca errores en el sistema de archivos, también utiliza badblocks, con un test de solo lectura, para buscar bloques defectuosos a nivel físico.

Esta opción permitirá que e2fsck marque cualquier sector defectuosos encontrado, y prevenga que sea utilizado por el sistema de archivos para almacenar archivos para almacenar información.

Acceso a máquinas usando el SSH sin contraseña

Posted on por

Responder

Generación de claves

boo:~$ test -d $HOME/sshids || mkdir $HOME/sshids
boo:~$ ssh-keygen -t rsa -f $HOME/sshids/idrsa-1

Sigue leyendo →

Bloquear la actualización de paquetes en Debian y Ubuntu

Posted on por

Responder

Ver el estado de todos los paquetes:

~$ dpkg --get-selections

Filtrar directamente el paquete que nos interesa:

~$ dpkg --get-selections firefox
firefox install

Sigue leyendo →

Copiar base de datos MySql sin Backup

Posted on por

Responder

Hoy en mi trabajo tuve la necesidad de copiar una base de datos mysql de un servidor a otro sin poder utilizar las funciones de backup y restore, ya que el servidor principal, donde recidía la base de datos se daño, y el sistema operativo no funcionaba…… Pensé que con sólo copiar la carpeta de la base de datos en el directorio de datos de mysql era suficiente. Luego de hacer me fijé que no se mostraban ninguna de las tablas con el motor de almacenamiento InnoDB…. Tras unas horas de búsqueda, descubrí que también tenía que copiar en el directorio de mysql los siguientes archivos:

ib_logfile1
ibdata1
ib_logfile0

Estos son los archivos de datos y logs poseen información sobre la configuración de InnoDB.

Al hacer el reemplazo de la carpeta data se obtiene el siguiente mensaje de error:

ErrorTable 'performance_schema.session_variables' doesn't exist

Ejecutando la siguiente instrucción de línea de comando soluciona este error:

mysql_upgrade -u root -p --force

Luego reiniciar el servicio de mysql:

sudo /bin/systemctl restart  mysqld.service

Blog – BuilderSoft Networks

Solucion, Desarrollo de Sistemas Computacionales y Telecomunicaciones

Archivo del Autor:

Solucionar error NO_PUBKEY Ubuntu

Ejemplo Cursor MySQL

Ejemplo Cursor MySQL

MySQL Server – Ajustar la autenticación y los privilegios del usuario

Mac Os: Eliminar los archivos ._ en las unidades montadas

Cómo conectarse en perl a una base de datos mysql

Cómo enviar un email desde un script perl

Envío de email mediante a una llamada a sendmail

Envío de emails con ficheros adjuntos

Otras posibilidades para enviar emails desde Perl

Como Detectar Errores y Comprobar el Estado de tu Disco Duro en Linux

Detecta Sectores Defectuosos en el Disco con badblocks

Uso Básico

Uso Básico con Verbose

Lectura y Escritura – No Destructivo

Detecta Errores e Inconsistencias en el Sistema de Archivos con e2fsck

Uso Básico

Uso Combinado con Badblocks

Acceso a máquinas usando el SSH sin contraseña

Bloquear la actualización de paquetes en Debian y Ubuntu

Copiar base de datos MySql sin Backup