From franjvasquezg at gmail.com  Thu Aug  5 13:55:46 2010
From: franjvasquezg at gmail.com (francisco vasquez)
Date: Fri, 6 Aug 2010 16:25:46 +1930
Subject: [caracas-pm] Fwd: enviar nota
In-Reply-To: <AANLkTimoOZ0ciR56do4d-U1nYzMm2QeDx_8EFOV=iUXy@mail.gmail.com>
References: <AANLkTimoOZ0ciR56do4d-U1nYzMm2QeDx_8EFOV=iUXy@mail.gmail.com>
Message-ID: <AANLkTina4cyXV-tZGUFQs+xfuK4r4guEs1+JNrW8VCgv@mail.gmail.com>

---------- Mensaje reenviado ----------
De: francisco vasquez <franjvasquezg at gmail.com>
Fecha: 6 de agosto de 2010 16:19
Asunto: enviar nota
Para: caracas-pm at pm.org


Buenas tarde amigos :

estoy migrado un programa echo python a Perl y este realiza llamados al
sistema operativo deb?an en una maquina local (lspci, lsusb, etc) y adem?s
permiter escribir una nota esto con el fin de ayudar a un usuario en caso
que tenga problemas tecnicos en su maquina y entonces con esa informacion
suministra ayudarlo toda esta informaci?n la guardo en un arreglo, mi
problema compa?eros como enviar informacion en el mismo formato que lo tiene
el codigo en phyton a un servidor. este es el codig? python :


import urllib
import os
info="-*- Informaci?n publicada autom?ticamente mediante el script
'crearnota' de canaima:\n\n"
info+="-\n"
info+="----- Dispositivos conectados por PCI:\n"
info+="-\n"
info+=os.popen("lspci").read()
info+="-\n"
info+="----- Dispositivos conectados por puerto USB:\n\n"
info+="-\n"
info+=os.popen("lsusb").read()
info+="-\n"
info+="----- Informaci?n sobre su tarjeta gr?fica:\n\n"
info+="-\n"
info+=os.popen("glxinfo").read()
info+="-\n"
info+="----- Informaci?n sobre su memoria RAM (en MB):\n\n"
info+="-\n"
info+=os.popen("free -m").read()
info+="-\n"
info+="----- Informaci?n sobre su espacio libre :\n\n"
info+="-\n"
info+=os.popen("df -h").read()
info+="-\n"
info+="----- Informaci?n sobre sus discos duros :\n\n"
info+="-\n"
info+=os.popen("fdisk -l").read()


params = urllib.urlencode({'codigo_form': info, 'titulo_form': "Desde
consola",'nombre_form': "nombre"})
f = urllib.urlopen("http://172.16.130.67:8000/enviar_consola", params)
print f.read()

como pueden ver amigos la inforaci?n la guardan en un arreglo de
nombre info y luegos la envia a la maquina y creo que es en formato
html

tengo dos meses programando en perl e avanzado en lo siguiente compa?eros

notas.pl

#!/usr/bin/perl -w

#   use strict;
  use Gtk2 -init;
  use Gtk2::GladeXML;

  my $buffer_t ;
  my $programa = Gtk2::GladeXML->new('canaima-notas2.glade');
  my $ventana_principal = $programa->get_widget('ventana_principal');
  my $t_titulo = $programa->get_widget('text_titulo');

  my $t_autor = $programa->get_widget('text_autor');
# my $notas_t = $programa->get_widget('nota');#textview
  my $boton_e = $programa->get_widget('boton_enviar');
  my $boton_c = $programa->get_widget('boton_cancelar');

  my $pci = $programa->get_widget('pci'); #lspci
  my $usb = $programa->get_widget('usb'); #lsusb
  my $dpkg = $programa->get_widget('dpkg'); #dpkg.log
  my $term = $programa->get_widget('term'); #term.log

  my $d_alma = $programa->get_widget('d_alma'); #dispositvo de
almacenamientoterm.lo
  my $t_part = $programa->get_widget('t_part'); #tabla de particiones	
  my $Eprueba = $programa->get_widget('label4');

  my $tit_aut = $programa->get_widget('label6');
  my $n1 =	$programa->get_widget('entry1');
  my $n2 =	$programa->get_widget('entry2');
  my $n3 =	$programa->get_widget('entry3');

  my $n4 =	$programa->get_widget('entry4');
  my $n5 =	$programa->get_widget('entry5');
  my $n6 =	$programa->get_widget('entry6');
  my $n7 =	$programa->get_widget('entry7');

  my $n8 =	$programa->get_widget('entry8');
  my $n9 =	$programa->get_widget('entry9');
  my $n10 =	$programa->get_widget('entry10');
  my $n11 =	$programa->get_widget('entry11');

  my $n12 =	$programa->get_widget('entry12');
  my $n13 =	$programa->get_widget('entry13');
  my $n14 =	$programa->get_widget('entry14');
  my $n15 =	$programa->get_widget('entry15');

  my $n16 =	$programa->get_widget('entry16');
  $programa->signal_autoconnect_from_package('main');
  $ventana_principal->show_all();

  Gtk2->main;

  sub on_boton_cancelar_clicked {Gtk2->main_quit;}


  sub on_boton_enviar_clicked {			
		my $d_alma1 = $d_alma->get_active;
		my $t_part1 = $t_part->get_active;
		push (@informe,"****<<<< SISTEMA DE NOTAS CANAIMA >>>>****\n\n");		

		my $tex_1 = $n1->get_text();
		my $w = &validar_nota($tex_1);
		&datos_sistema($w);
		my $t_titulo1 = $t_titulo->get_text();
	    my $t_autor1 = $t_autor->get_text();			
		my $e =&titulo_autor($t_titulo1,$t_autor1);

		#creamos el archivo y almacenamos los datos
  		open (DATA, ">/tmp/notas_canaima.txt");
		# Grabamos el archivo con los datos
		foreach $dato (@informe)
			{
 				print DATA $dato;
			}

  		close(DATA);
  		chmod (0777, "/tmp/notas_canaima.txt");
}

sub validar_nota {
#asignaciones,reconsideracion,cuota_ipasme,fe_vida,constancia_estudio,homologacion,embargo,oficios,resol_jp,
#jubilacion_pension,pension_sobreviviente,resol_sob,pasivos_laborales

#---------------------------------------------------------------------------
	my ($num)=@_;
		my $w;
		if ($num eq ""){
# 			push (@informe,"----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");

			$Eprueba->set_markup("----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");
			 $w=1;
 		}else{
			 $w=0;
			push (@informe,"----- NOTA DEL USUARIO -----\n");
			$tex_1 = $n1->get_text();

			$Eprueba->set_markup("");
			push(@informe,$tex_1);
			$tex_2 = $n2->get_text();
			push(@informe,$tex_2);
			$tex_3 = $n3->get_text();
			push(@informe,$tex_3);
			$tex_4 = $n4->get_text();

			push(@informe,$tex_4);
			$tex_5 = $n5->get_text();
			push(@informe,$tex_5);
			$tex_6 = $n6->get_text();
			push(@informe,$tex_6);
			$tex_7 = $n7->get_text();
			push(@informe,$tex_7);

			$tex_8 = $n8->get_text();
			push(@informe,$tex_8);
			$tex_9 = $n9->get_text();
			push(@informe,$tex_9);	
			$tex_10 = $n10->get_text();
			push(@informe,$tex_10);
			$tex_11 = $n11->get_text();

			push(@informe,$tex_11);
			$tex_12 = $n12->get_text();
			push(@informe,$tex_12);
			$tex_13 = $n13->get_text();
			push(@informe,$tex_13);
			$tex_14 = $n14->get_text();
			push(@informe,$tex_14);

			$tex_15 = $n15->get_text();
			push(@informe,$tex_15);
			$tex_16 = $n16->get_text();
			push(@informe,$tex_16);
		}	
	return $w;
}
sub datos_sistema{
	my $num=@_;
	if ($num != 0){
		my $pc1 = $pci->get_active;	

		if ($pc1 == 1) {
			push (@informe,"----- Dispositivos PCI -----\n");
			my @pci = qx(lspci);
			push(@informe, at pci);
		
		}
		my $usb1 = $usb->get_active;
		if ($usb1==1){
			push (@informe,"----- Dispositivos USB -----\n");

			my @usb = qx(lsusb);
			push(@informe, at usb);
			
		}
		my $dpkg1 = $dpkg->get_active;
		if($dpkg1==1){
			push (@informe,"----- dpkg.log -----\n");
			my @dpkg = qx(cat /var/log/dpkg.log);

			push(@informe, at dpkg);
			
		}
		my $term1 = $term->get_active;
		if($term1==1){
			push (@informe,"----- term.log -----\n");
			my @term = qx(cat /var/log/apt/term.log);
			push(@informe, at term);			

		}	
	}			
}
sub titulo_autor{
	my ($t_titulo1,$t_autor1)=@_;
	$Eprueba->set_markup("$t_titulo1,$t_autor1");
	    my $w;			
			if ($t_titulo1 eq ""){
				my $w=1;
				$tit_aut->set_markup("----- SIN TITULO PARA LA NOTA: Por favor es
necesario un Titulo-----\n");

			}else{
				my $w=0;
				push (@informe,"----- TITULO USUARIO -----\n");			
				$tit_aut->set_markup("");
				push(@informe,$t_titulo1);				
			}			
			if ($t_autor1 eq ""){

				my $w=1;
				$tit_aut->set_markup("----- SIN AUTOR PARA LA NOTA: Por favor es
necesario un Autor-----\n");
			}else{
				my $w=0;
				push (@informe,"----- AUTOR DE LA NOTA -----\n");			

				$tit_aut->set_markup("");
				push(@informe,$t_autor1);				
			}		
 		foreach  $i (@informe) {
 			print "$i\n";
 		}		
	return $w;
} 	

y el canaima-notas2.glade es la interfaz gr?fica


mis amigos solo necesito un poco de orientaci?n que paquete o paquetes
de la CPAN podria utilizar para tal fin


muschas gracias de ante mano buen dia  8,)  pasenla bien.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100806/9edccc46/attachment.html>

From franjvasquezg at gmail.com  Thu Aug  5 13:57:22 2010
From: franjvasquezg at gmail.com (francisco vasquez)
Date: Fri, 6 Aug 2010 16:27:22 +1930
Subject: [caracas-pm] notas 2 mensaje mas liviano
Message-ID: <AANLkTi=hU7oRMO6PMa7eOfCWUTA2FaXt5Ur1y6FZu_Ry@mail.gmail.com>

Buenas tarde amigos :

estoy migrado un programa echo python a Perl y este realiza llamados al
sistema operativo deb?an en una maquina local (lspci, lsusb, etc) y adem?s
permiter escribir una nota esto con el fin de ayudar a un usuario en caso
que tenga problemas tecnicos en su maquina y entonces con esa informacion
suministra ayudarlo toda esta informaci?n la guardo en un arreglo, mi
problema compa?eros como enviar informacion en el mismo formato que lo tiene
el codigo en phyton a un servidor. este es el codig? python :


import urllib
import os

info="-*- Informaci?n publicada autom?ticamente mediante el script
'crearnota' de canaima:\n\n"

info+="-\n"
info+="----- Dispositivos conectados por PCI:\n"

info+="-\n"
info+=os.popen("lspci").read()

info+="-\n"
info+="----- Dispositivos conectados por puerto USB:\n\n"

info+="-\n"
info+=os.popen("lsusb").read()

info+="-\n"
info+="----- Informaci?n sobre su tarjeta gr?fica:\n\n"

info+="-\n"
info+=os.popen("glxinfo").read()

info+="-\n"
info+="----- Informaci?n sobre su memoria RAM (en MB):\n\n"

info+="-\n"
info+=os.popen("free -m").read()

info+="-\n"
info+="----- Informaci?n sobre su espacio libre :\n\n"

info+="-\n"
info+=os.popen("df -h").read()

info+="-\n"
info+="----- Informaci?n sobre sus discos duros :\n\n"

info+="-\n"
info+=os.popen("fdisk -l").read()



params = urllib.urlencode({'codigo_form': info, 'titulo_form': "Desde
consola",'nombre_form': "nombre"})

f = urllib.urlopen("http://172.16.130.67:8000/enviar_consola", params)

print f.read()

como pueden ver amigos la inforaci?n la guardan en un arreglo de
nombre info y luegos la envia a la maquina y creo que es en formato
html


tengo dos meses programando en perl e avanzado en lo siguiente compa?eros

notas.pl

#!/usr/bin/perl -w

#   use strict;
  use Gtk2 -init;
  use Gtk2::GladeXML;


  my $buffer_t ;
  my $programa = Gtk2::GladeXML->new('canaima-notas2.glade');
  my $ventana_principal = $programa->get_widget('ventana_principal');
  my $t_titulo = $programa->get_widget('text_titulo');

  my $t_autor = $programa->get_widget('text_autor');
# my $notas_t = $programa->get_widget('nota');#textview
  my $boton_e = $programa->get_widget('boton_enviar');
  my $boton_c = $programa->get_widget('boton_cancelar');

  my $pci = $programa->get_widget('pci'); #lspci
  my $usb = $programa->get_widget('usb'); #lsusb
  my $dpkg = $programa->get_widget('dpkg'); #dpkg.log
  my $term = $programa->get_widget('term'); #term.log

  my $d_alma = $programa->get_widget('d_alma'); #dispositvo de
almacenamientoterm.lo
  my $t_part = $programa->get_widget('t_part'); #tabla de particiones	
  my $Eprueba = $programa->get_widget('label4');

  my $tit_aut = $programa->get_widget('label6');
  my $n1 =	$programa->get_widget('entry1');
  my $n2 =	$programa->get_widget('entry2');
  my $n3 =	$programa->get_widget('entry3');

  my $n4 =	$programa->get_widget('entry4');
  my $n5 =	$programa->get_widget('entry5');
  my $n6 =	$programa->get_widget('entry6');
  my $n7 =	$programa->get_widget('entry7');

  my $n8 =	$programa->get_widget('entry8');
  my $n9 =	$programa->get_widget('entry9');
  my $n10 =	$programa->get_widget('entry10');
  my $n11 =	$programa->get_widget('entry11');

  my $n12 =	$programa->get_widget('entry12');
  my $n13 =	$programa->get_widget('entry13');
  my $n14 =	$programa->get_widget('entry14');
  my $n15 =	$programa->get_widget('entry15');

  my $n16 =	$programa->get_widget('entry16');
  $programa->signal_autoconnect_from_package('main');
  $ventana_principal->show_all();

  Gtk2->main;

  sub on_boton_cancelar_clicked {Gtk2->main_quit;}


  sub on_boton_enviar_clicked {			
		my $d_alma1 = $d_alma->get_active;
		my $t_part1 = $t_part->get_active;
		push (@informe,"****<<<< SISTEMA DE NOTAS CANAIMA >>>>****\n\n");		

		my $tex_1 = $n1->get_text();
		my $w = &validar_nota($tex_1);
		&datos_sistema($w);
		my $t_titulo1 = $t_titulo->get_text();
	    my $t_autor1 = $t_autor->get_text();			
		my $e =&titulo_autor($t_titulo1,$t_autor1);

		#creamos el archivo y almacenamos los datos
  		open (DATA, ">/tmp/notas_canaima.txt");
		# Grabamos el archivo con los datos
		foreach $dato (@informe)
			{
 				print DATA $dato;
			}

  		close(DATA);
  		chmod (0777, "/tmp/notas_canaima.txt");
}

sub validar_nota {
#asignaciones,reconsideracion,cuota_ipasme,fe_vida,constancia_estudio,homologacion,embargo,oficios,resol_jp,
#jubilacion_pension,pension_sobreviviente,resol_sob,pasivos_laborales

#---------------------------------------------------------------------------
	my ($num)=@_;
		my $w;
		if ($num eq ""){
# 			push (@informe,"----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");

			$Eprueba->set_markup("----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");
			 $w=1;
 		}else{
			 $w=0;
			push (@informe,"----- NOTA DEL USUARIO -----\n");
			$tex_1 = $n1->get_text();

			$Eprueba->set_markup("");
			push(@informe,$tex_1);
			$tex_2 = $n2->get_text();
			push(@informe,$tex_2);
			$tex_3 = $n3->get_text();
			push(@informe,$tex_3);
			$tex_4 = $n4->get_text();

			push(@informe,$tex_4);
			$tex_5 = $n5->get_text();
			push(@informe,$tex_5);
			$tex_6 = $n6->get_text();
			push(@informe,$tex_6);
			$tex_7 = $n7->get_text();
			push(@informe,$tex_7);

			$tex_8 = $n8->get_text();
			push(@informe,$tex_8);
			$tex_9 = $n9->get_text();
			push(@informe,$tex_9);	
			$tex_10 = $n10->get_text();
			push(@informe,$tex_10);
			$tex_11 = $n11->get_text();

			push(@informe,$tex_11);
			$tex_12 = $n12->get_text();
			push(@informe,$tex_12);
			$tex_13 = $n13->get_text();
			push(@informe,$tex_13);
			$tex_14 = $n14->get_text();
			push(@informe,$tex_14);

			$tex_15 = $n15->get_text();
			push(@informe,$tex_15);
			$tex_16 = $n16->get_text();
			push(@informe,$tex_16);
		}	
	return $w;
}
sub datos_sistema{
	my $num=@_;
	if ($num != 0){
		my $pc1 = $pci->get_active;	

		if ($pc1 == 1) {
			push (@informe,"----- Dispositivos PCI -----\n");
			my @pci = qx(lspci);
			push(@informe, at pci);
		
		}
		my $usb1 = $usb->get_active;
		if ($usb1==1){
			push (@informe,"----- Dispositivos USB -----\n");

			my @usb = qx(lsusb);
			push(@informe, at usb);
			
		}
		my $dpkg1 = $dpkg->get_active;
		if($dpkg1==1){
			push (@informe,"----- dpkg.log -----\n");
			my @dpkg = qx(cat /var/log/dpkg.log);

			push(@informe, at dpkg);
			
		}
		my $term1 = $term->get_active;
		if($term1==1){
			push (@informe,"----- term.log -----\n");
			my @term = qx(cat /var/log/apt/term.log);
			push(@informe, at term);			

		}	
	}			
}
sub titulo_autor{
	my ($t_titulo1,$t_autor1)=@_;
	$Eprueba->set_markup("$t_titulo1,$t_autor1");
	    my $w;			
			if ($t_titulo1 eq ""){
				my $w=1;
				$tit_aut->set_markup("----- SIN TITULO PARA LA NOTA: Por favor es
necesario un Titulo-----\n");

			}else{
				my $w=0;
				push (@informe,"----- TITULO USUARIO -----\n");			
				$tit_aut->set_markup("");
				push(@informe,$t_titulo1);				
			}			
			if ($t_autor1 eq ""){

				my $w=1;
				$tit_aut->set_markup("----- SIN AUTOR PARA LA NOTA: Por favor es
necesario un Autor-----\n");
			}else{
				my $w=0;
				push (@informe,"----- AUTOR DE LA NOTA -----\n");			

				$tit_aut->set_markup("");
				push(@informe,$t_autor1);				
			}		
 		foreach  $i (@informe) {
 			print "$i\n";
 		}		
	return $w;
} 	


y el canaima-notas2.glade se lo adjunto:


mis amigos solo necesito un poco de orientaci?n que paquete o paquetes
de la CPAN podria utilizar para tal fin


muschas gracias de ante mano buen dia  8,)  pasenla bien.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100806/d1610f1b/attachment-0001.html>

From tovar.nelo at gmail.com  Fri Aug  6 07:01:26 2010
From: tovar.nelo at gmail.com (Nelo R. Tovar)
Date: Fri, 6 Aug 2010 09:31:26 -0430
Subject: [caracas-pm] notas 2 mensaje mas liviano
In-Reply-To: <AANLkTi=hU7oRMO6PMa7eOfCWUTA2FaXt5Ur1y6FZu_Ry@mail.gmail.com>
References: <AANLkTi=hU7oRMO6PMa7eOfCWUTA2FaXt5Ur1y6FZu_Ry@mail.gmail.com>
Message-ID: <AANLkTimEuRKO76uMD8j4k_5PSni9WW=sqM1DMHgSK0iq@mail.gmail.com>

Saludos.

2010/8/5 francisco vasquez <franjvasquezg at gmail.com>

> Buenas tarde amigos :
>
> estoy migrado un programa echo python a Perl y este realiza llamados al
> sistema operativo deb?an en una maquina local (lspci, lsusb, etc) y adem?s
> permiter escribir una nota esto con el fin de ayudar a un usuario en caso
> que tenga problemas tecnicos en su maquina y entonces con esa informacion
> suministra ayudarlo toda esta informaci?n la guardo en un arreglo, mi
> problema compa?eros como enviar informacion en el mismo formato que lo tiene
> el codigo en phyton a un servidor. este es el codig? python :
>
>
> Supongo que quieres colocar la informaci?n en un servicio parecido a
pastebin.org.
En http://pastebin.org/450975, tienes una versi?n en Perl del c?digo en
Python que enviaste. En http://www.pastebin.org/450965, esta la salida del
script (y enviado con el script).
F?jate en el uso de WWW::Mechanize para el env?o de los datos usando los
campos del formulario que usa pastebin.

-- 
Nelo R. Tovar
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100806/e4f83687/attachment.html>

From franjvasquezg at gmail.com  Mon Aug  9 07:01:05 2010
From: franjvasquezg at gmail.com (francisco vasquez)
Date: Tue, 10 Aug 2010 09:31:05 +1930
Subject: [caracas-pm] caracas-pm Digest, Vol 73, Issue 2
In-Reply-To: <mailman.5.1281121206.16810.caracas-pm@pm.org>
References: <mailman.5.1281121206.16810.caracas-pm@pm.org>
Message-ID: <AANLkTin2Yi-iZMDohikuGiG_znfU_zcByPzhK_DD8Eeu@mail.gmail.com>

Buen dia Nelo pana prob? lo que me enviaste hermano claro hay que tomar en
cuenta lo que esto escribiendo   es un cliente  que recogeria datos del
sistema y luego se lo envio al servidor: lo probe y me arroja el siguiente
error

  Can't call method "value" on an undefined value at
/usr/share/perl5/WWW/Mechanize.pm line 1397.
***  ignoring at ./canaima_notas23.pl line 53.

 EL CODIGO ES EL siguiente no cambia mucho

la linea 53 del codigo es esta

Gtk2->main;

no se como interpretar el error hermano...!





#!/usr/bin/perl -w
=head1
####################
Sistema:Canaima GNU-Linux
Nombre:Canaima-notas
Autor:Equipo de Desarrolladores canaima
Descripci?n:Sistema que permite tomar comentarios del usuario final y ademas
datos del sistema
que permitiran ampliar el comnetario para una mejor evaluacion del equipo de
desarrollo
Fecha: 20/07/10
###################
=cut

#   use strict;
  use Gtk2 -init;
  use Gtk2::GladeXML;
  use WWW::Mechanize;

  my $buffer_t ;
  my $programa = Gtk2::GladeXML->new('canaima-notas2.glade');
  my $ventana_principal = $programa->get_widget('ventana_principal');
  my $t_titulo = $programa->get_widget('text_titulo');
  my $t_autor = $programa->get_widget('text_autor');
# my $notas_t = $programa->get_widget('nota');#textview
  my $boton_e = $programa->get_widget('boton_enviar');
  my $boton_c = $programa->get_widget('boton_cancelar');
  my $pci = $programa->get_widget('pci'); #lspci
  my $usb = $programa->get_widget('usb'); #lsusb
  my $dpkg = $programa->get_widget('dpkg'); #dpkg.log
  my $term = $programa->get_widget('term'); #term.log
  my $d_alma = $programa->get_widget('d_alma'); #dispositvo de
almacenamientoterm.lo
  my $t_part = $programa->get_widget('t_part'); #tabla de particiones
  my $Eprueba = $programa->get_widget('label4');
  my $tit_aut = $programa->get_widget('label6');
  my $n1 =    $programa->get_widget('entry1');
  my $n2 =    $programa->get_widget('entry2');
  my $n3 =    $programa->get_widget('entry3');
  my $n4 =    $programa->get_widget('entry4');
  my $n5 =    $programa->get_widget('entry5');
  my $n6 =    $programa->get_widget('entry6');
  my $n7 =    $programa->get_widget('entry7');
  my $n8 =    $programa->get_widget('entry8');
  my $n9 =    $programa->get_widget('entry9');
  my $n10 =    $programa->get_widget('entry10');
  my $n11 =    $programa->get_widget('entry11');
  my $n12 =    $programa->get_widget('entry12');
  my $n13 =    $programa->get_widget('entry13');
  my $n14 =    $programa->get_widget('entry14');
  my $n15 =    $programa->get_widget('entry15');
  my $n16 =    $programa->get_widget('entry16');
  $programa->signal_autoconnect_from_package('main');
  $ventana_principal->show_all();

  Gtk2->main;

  sub on_boton_cancelar_clicked {Gtk2->main_quit;}

  sub on_boton_enviar_clicked {
        my $d_alma1 = $d_alma->get_active;
        my $t_part1 = $t_part->get_active;
        push (@informe,"****<<<< SISTEMA DE NOTAS CANAIMA >>>>****\n\n");

        my $tex_1 = $n1->get_text();
        my $w = &validar_nota($tex_1);
        &datos_sistema($w);
        my $t_titulo1 = $t_titulo->get_text();
        my $t_autor1 = $t_autor->get_text();
        my $e =&titulo_autor($t_titulo1,$t_autor1);
        #creamos el archivo y almacenamos los datos
          open (DATA, ">/tmp/notas_canaima.txt");
        # Grabamos el archivo con los datos
        foreach $dato (@informe)
            {
                 print DATA $dato;
            }
          close(DATA);
          chmod (0777, "/tmp/notas_canaima.txt");

        my $url = "http://notas.canaima.softwarelibre.gob.ve/enviar_consola
";
        my $mech = WWW::Mechanize->new();
        $mech->get($url);                             # Obtener la p?gina
            $mech->form_name('f');                        # Seleccionar el
formulario
        $mech->field('codigo_form', $informe);        # Llenar el campo de
texto
        $mech->field('titulo_form', $t_titulo1);
        $mech->field('nombre_form', "$t_autor1");     # Llenar el campo Name
/ Title
         my $resultado = $mech->click();               # Enviar el
formulario haciendo click en el boton Send
}

sub validar_nota {
#asignaciones,reconsideracion,cuota_ipasme,fe_vida,constancia_estudio,homologacion,embargo,oficios,resol_jp,
#jubilacion_pension,pension_sobreviviente,resol_sob,pasivos_laborales
#---------------------------------------------------------------------------
    my ($num)=@_;
        my $w;
        if ($num eq ""){
#             push (@informe,"----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");
            $Eprueba->set_markup("----- SIN NOTA DEL USUARIO: Por favor es
necesario una nota   -----\n");
             $w=1;
         }else{
             $w=0;
            push (@informe,"----- NOTA DEL USUARIO -----\n");
            $tex_1 = $n1->get_text();
            $Eprueba->set_markup("");
            push(@informe,$tex_1);
            $tex_2 = $n2->get_text();
            push(@informe,$tex_2);
            $tex_3 = $n3->get_text();
            push(@informe,$tex_3);
            $tex_4 = $n4->get_text();
            push(@informe,$tex_4);
            $tex_5 = $n5->get_text();
            push(@informe,$tex_5);
            $tex_6 = $n6->get_text();
            push(@informe,$tex_6);
            $tex_7 = $n7->get_text();
            push(@informe,$tex_7);
            $tex_8 = $n8->get_text();
            push(@informe,$tex_8);
            $tex_9 = $n9->get_text();
            push(@informe,$tex_9);
            $tex_10 = $n10->get_text();
            push(@informe,$tex_10);
            $tex_11 = $n11->get_text();
            push(@informe,$tex_11);
            $tex_12 = $n12->get_text();
            push(@informe,$tex_12);
            $tex_13 = $n13->get_text();
            push(@informe,$tex_13);
            $tex_14 = $n14->get_text();
            push(@informe,$tex_14);
            $tex_15 = $n15->get_text();
            push(@informe,$tex_15);
            $tex_16 = $n16->get_text();
            push(@informe,$tex_16);
        }
    return $w;
}
sub datos_sistema{
    my $num=@_;
    if ($num != 0){
        my $pc1 = $pci->get_active;
        if ($pc1 == 1) {
            push (@informe,"----- Dispositivos PCI -----\n");
            my @pci = qx(lspci);
            push(@informe, at pci);

        }
        my $usb1 = $usb->get_active;
        if ($usb1==1){
            push (@informe,"----- Dispositivos USB -----\n");
            my @usb = qx(lsusb);
            push(@informe, at usb);

        }
        my $dpkg1 = $dpkg->get_active;
        if($dpkg1==1){
            push (@informe,"----- dpkg.log -----\n");
            my @dpkg = qx(cat /var/log/dpkg.log);
            push(@informe, at dpkg);

        }
        my $term1 = $term->get_active;
        if($term1==1){
            push (@informe,"----- term.log -----\n");
            my @term = qx(cat /var/log/apt/term.log);
            push(@informe, at term);
        }
    }
}
sub titulo_autor{
    my ($t_titulo1,$t_autor1)=@_;
    $Eprueba->set_markup("$t_titulo1,$t_autor1");
        my $w;
            if ($t_titulo1 eq ""){
                my $w=1;
                $tit_aut->set_markup("----- SIN TITULO PARA LA NOTA: Por
favor es necesario un Titulo-----\n");
            }else{
                my $w=0;
                push (@informe,"----- TITULO USUARIO -----\n");
                $tit_aut->set_markup("");
                push(@informe,$t_titulo1);
            }
            if ($t_autor1 eq ""){
                my $w=1;
                $tit_aut->set_markup("----- SIN AUTOR PARA LA NOTA: Por
favor es necesario un Autor-----\n");
            }else{
                my $w=0;
                push (@informe,"----- AUTOR DE LA NOTA -----\n");

                $tit_aut->set_markup("");
                push(@informe,$t_autor1);
            }
         foreach  $i (@informe) {
             print "$i\n";
         }
    return $w;
}



El 7 de agosto de 2010 14:30, <caracas-pm-request at pm.org> escribi?:

> Send caracas-pm mailing list submissions to
>        caracas-pm at pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        http://mail.pm.org/mailman/listinfo/caracas-pm
> or, via email, send a message with subject or body 'help' to
>        caracas-pm-request at pm.org
>
> You can reach the person managing the list at
>        caracas-pm-owner at pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of caracas-pm digest..."
>
>
> Today's Topics:
>
>   1. Re: notas 2 mensaje mas liviano (Nelo R. Tovar)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Fri, 6 Aug 2010 09:31:26 -0430
> From: "Nelo R. Tovar" <tovar.nelo at gmail.com>
> Subject: Re: [caracas-pm] notas 2 mensaje mas liviano
> To: francisco vasquez <franjvasquezg at gmail.com>
> Cc: caracas-pm at pm.org
> Message-ID:
>        <AANLkTimEuRKO76uMD8j4k_5PSni9WW=sqM1DMHgSK0iq at mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Saludos.
>
> 2010/8/5 francisco vasquez <franjvasquezg at gmail.com>
>
> > Buenas tarde amigos :
> >
> > estoy migrado un programa echo python a Perl y este realiza llamados al
> > sistema operativo deb?an en una maquina local (lspci, lsusb, etc) y
> adem?s
> > permiter escribir una nota esto con el fin de ayudar a un usuario en caso
> > que tenga problemas tecnicos en su maquina y entonces con esa informacion
> > suministra ayudarlo toda esta informaci?n la guardo en un arreglo, mi
> > problema compa?eros como enviar informacion en el mismo formato que lo
> tiene
> > el codigo en phyton a un servidor. este es el codig? python :
> >
> >
> > Supongo que quieres colocar la informaci?n en un servicio parecido a
> pastebin.org.
> En http://pastebin.org/450975, tienes una versi?n en Perl del c?digo en
> Python que enviaste. En http://www.pastebin.org/450965, esta la salida del
> script (y enviado con el script).
> F?jate en el uso de WWW::Mechanize para el env?o de los datos usando los
> campos del formulario que usa pastebin.
>
> --
> Nelo R. Tovar
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <
> http://mail.pm.org/pipermail/caracas-pm/attachments/20100806/e4f83687/attachment-0001.html
> >
>
> ------------------------------
>
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm
>
> End of caracas-pm Digest, Vol 73, Issue 2
> *****************************************
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100810/cf07fd98/attachment-0001.html>

From fobispo at isc.org  Mon Aug  9 17:38:13 2010
From: fobispo at isc.org (Francisco Obispo)
Date: Mon, 9 Aug 2010 17:38:13 -0700
Subject: [caracas-pm] caracas-pm Digest, Vol 73, Issue 2
In-Reply-To: <AANLkTin2Yi-iZMDohikuGiG_znfU_zcByPzhK_DD8Eeu@mail.gmail.com>
References: <mailman.5.1281121206.16810.caracas-pm@pm.org>
	<AANLkTin2Yi-iZMDohikuGiG_znfU_zcByPzhK_DD8Eeu@mail.gmail.com>
Message-ID: <994C8B3A-7F7D-4141-AB91-5E3A730A168A@isc.org>

Est?s llamando un m?todo sobre un objeto no instanciado.

$ perl -e 'my $val; $val->value'
Can't call method "value" on an undefined value at -e line 1.


Asegurate que la instanciaci?n se haya hecho correctamente antes de llamar alguno de sus metodos

saludos






On Aug 10, 2010, at 9:31 AM, francisco vasquez wrote:

>   Can't call method "value" on an undefined value at /usr/share/perl5/WWW/Mechanize.pm line 1397.
> ***  ignoring at ./canaima_notas23.pl line 53.

Francisco Obispo 
Hosted@ Programme Manager
email: fobispo at isc.org
Phone: +1 650 423 1374 || INOC-DBA *3557* NOC
Key fingerprint = 532F 84EB 06B4 3806 D5FA  09C6 463E 614E B38D B1BE





From emhnemhn at gmail.com  Wed Aug 18 07:46:51 2010
From: emhnemhn at gmail.com (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=)
Date: Wed, 18 Aug 2010 10:16:51 -0430
Subject: [caracas-pm] =?iso-8859-1?q?=BFReuni=F3n_extraordinaria=3F?=
Message-ID: <1282142811.5375.129.camel@deepthought.ius.cc>

Ya hicimos la reuni?n anual... ?ser? que hacemos una extraordinaria el
pr?ximo s?bado?
-- 
Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
Geek by nature, Linux by choice, Debian of course.
If you can't aptitude it, it isn't useful or doesn't exist.
GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3


From tovar.nelo at gmail.com  Wed Aug 18 08:14:01 2010
From: tovar.nelo at gmail.com (Nelo R. Tovar)
Date: Wed, 18 Aug 2010 10:44:01 -0430
Subject: [caracas-pm] =?iso-8859-1?q?=BFReuni=F3n_extraordinaria=3F?=
In-Reply-To: <1282142811.5375.129.camel@deepthought.ius.cc>
References: <1282142811.5375.129.camel@deepthought.ius.cc>
Message-ID: <AANLkTim4i_3EZX_BjuwFMBBLyodqSJ-AKzZbThDMg5rF@mail.gmail.com>

Saludos.



El 18 de agosto de 2010 10:16, Ernesto Hern?ndez-Novich
<emhnemhn at gmail.com>escribi?:

> Ya hicimos la reuni?n anual... ?ser? que hacemos una extraordinaria el
> pr?ximo s?bado?
> --
>

Este s?bado yo no puedo :(,  estar? en Bqto :).



> Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
> Geek by nature, Linux by choice, Debian of course.
> If you can't aptitude it, it isn't useful or doesn't exist.
> GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3
>
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm




-- 
Nelo R. Tovar
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100818/e27ec6cd/attachment.html>

From jcmm986 at gmail.com  Thu Aug 19 05:51:10 2010
From: jcmm986 at gmail.com (Jennifer Maldonado)
Date: Thu, 19 Aug 2010 08:21:10 -0430
Subject: [caracas-pm] caracas-pm Digest, Vol 73, Issue 5
In-Reply-To: <mailman.11.1282158016.18556.caracas-pm@pm.org>
References: <mailman.11.1282158016.18556.caracas-pm@pm.org>
Message-ID: <AANLkTim+Db8NgyJeFP8wn4MFvyc8mfiDO1rMba6fgYhJ@mail.gmail.com>

yo puedo cualquier s?bado ...

2010/8/18 <caracas-pm-request at pm.org>

> Send caracas-pm mailing list submissions to
>        caracas-pm at pm.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        http://mail.pm.org/mailman/listinfo/caracas-pm
> or, via email, send a message with subject or body 'help' to
>        caracas-pm-request at pm.org
>
> You can reach the person managing the list at
>        caracas-pm-owner at pm.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of caracas-pm digest..."
>
>
> Today's Topics:
>
>   1. ?Reuni?n extraordinaria? (Ernesto Hern?ndez-Novich)
>   2. Re: ?Reuni?n extraordinaria? (Nelo R. Tovar)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Wed, 18 Aug 2010 10:16:51 -0430
> From: Ernesto Hern?ndez-Novich <emhnemhn at gmail.com>
> Subject: [caracas-pm] ?Reuni?n extraordinaria?
> To: caracas-pm at pm.org
> Message-ID: <1282142811.5375.129.camel at deepthought.ius.cc>
> Content-Type: text/plain; charset="UTF-8"
>
> Ya hicimos la reuni?n anual... ?ser? que hacemos una extraordinaria el
> pr?ximo s?bado?
> --
> Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
> Geek by nature, Linux by choice, Debian of course.
> If you can't aptitude it, it isn't useful or doesn't exist.
> GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3
>
>
>
> ------------------------------
>
> Message: 2
> Date: Wed, 18 Aug 2010 10:44:01 -0430
> From: "Nelo R. Tovar" <tovar.nelo at gmail.com>
> Subject: Re: [caracas-pm] ?Reuni?n extraordinaria?
> To: emhnemhn at gmail.com
> Cc: caracas-pm at pm.org
> Message-ID:
>        <AANLkTim4i_3EZX_BjuwFMBBLyodqSJ-AKzZbThDMg5rF at mail.gmail.com>
> Content-Type: text/plain; charset="iso-8859-1"
>
> Saludos.
>
>
>
> El 18 de agosto de 2010 10:16, Ernesto Hern?ndez-Novich
> <emhnemhn at gmail.com>escribi?:
>
> > Ya hicimos la reuni?n anual... ?ser? que hacemos una extraordinaria el
> > pr?ximo s?bado?
> > --
> >
>
> Este s?bado yo no puedo :(,  estar? en Bqto :).
>
>
>
> > Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
> > Geek by nature, Linux by choice, Debian of course.
> > If you can't aptitude it, it isn't useful or doesn't exist.
> > GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3
> >
> > _______________________________________________
> > caracas-pm mailing list
> > caracas-pm at pm.org
> > http://mail.pm.org/mailman/listinfo/caracas-pm
>
>
>
>
> --
> Nelo R. Tovar
> -------------- next part --------------
> An HTML attachment was scrubbed...
> URL: <
> http://mail.pm.org/pipermail/caracas-pm/attachments/20100818/e27ec6cd/attachment-0001.html
> >
>
> ------------------------------
>
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm
>
> End of caracas-pm Digest, Vol 73, Issue 5
> *****************************************
>



-- 
Saludos y un Abrazo.
Jennifer.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100819/4c78e2af/attachment.html>

From deruvo at gmail.com  Thu Aug 19 06:04:52 2010
From: deruvo at gmail.com (deruvo at gmail.com)
Date: Thu, 19 Aug 2010 13:04:52 +0000
Subject: [caracas-pm] =?windows-1252?q?=BFReuni=F3n_extraordinaria=3F?=
In-Reply-To: <1282142811.5375.129.camel@deepthought.ius.cc>
References: <1282142811.5375.129.camel@deepthought.ius.cc>
Message-ID: <435227430-1282223073-cardhu_decombobulator_blackberry.rim.net-1103026877-@bda603.bisx.prod.on.blackberry>

Yo puedo este s?bado.

Saludos,

PDR
Sent from my BlackBerry? smartphone

-----Original Message-----
From: Ernesto Hern?ndez-Novich <emhnemhn at gmail.com>
Sender: caracas-pm-bounces+deruvo=gmail.com at pm.org
Date: Wed, 18 Aug 2010 10:16:51 
To: <caracas-pm at pm.org>
Reply-To: emhnemhn at gmail.com
Subject: [caracas-pm] ?Reuni?n extraordinaria?

Ya hicimos la reuni?n anual... ?ser? que hacemos una extraordinaria el
pr?ximo s?bado?
-- 
Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
Geek by nature, Linux by choice, Debian of course.
If you can't aptitude it, it isn't useful or doesn't exist.
GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3

_______________________________________________
caracas-pm mailing list
caracas-pm at pm.org
http://mail.pm.org/mailman/listinfo/caracas-pm

From tovar.nelo at gmail.com  Thu Aug 19 06:41:22 2010
From: tovar.nelo at gmail.com (Nelo R. Tovar)
Date: Thu, 19 Aug 2010 09:11:22 -0430
Subject: [caracas-pm] =?iso-8859-1?q?Fwd=3A__=BFReuni=F3n_extraordinaria?=
	=?iso-8859-1?q?=3F?=
In-Reply-To: <AANLkTim-6MbQiW6NG9cJ25MkRU+R6N43DG97KH9sBYYd@mail.gmail.com>
References: <1282142811.5375.129.camel@deepthought.ius.cc>
	<AANLkTim4i_3EZX_BjuwFMBBLyodqSJ-AKzZbThDMg5rF@mail.gmail.com>
	<AANLkTim-6MbQiW6NG9cJ25MkRU+R6N43DG97KH9sBYYd@mail.gmail.com>
Message-ID: <AANLkTin=7uM+ccbZayXa4xW07sGOgAM5x--ijKceoFJN@mail.gmail.com>

Saludos.

Reenv?o a la lista respuestas que me han enviado sobre la reuni?n del
s?bado.

---------- Mensaje reenviado ----------
De: Javier E. P?rez P. <templeofdvst at gmail.com>
Fecha: 18 de agosto de 2010 11:18
Asunto: Re: [caracas-pm] ?Reuni?n extraordinaria?
Para: "Nelo R. Tovar" <tovar.nelo at gmail.com>


Hey que tal, me gustar?a asistir a la reuni?n, pero este s?bado no
podr? asistir por compromisos en la universidad, pero el otro arriba
si tengo la disponibilidad. igual un amigo que esta empezando con el
lenguaje, ha hecho algunas.

---------- Mensaje reenviado ----------
De: Ali Moreno <alimoreno at gmail.com>
Fecha: 18 de agosto de 2010 12:48
Asunto: Re: [caracas-pm] ?Reuni?n extraordinaria?
Para: "Nelo R. Tovar" <tovar.nelo at gmail.com>


Avisenme cuando metan en el tema el webgui ;)



-- 
Nelo R. Tovar
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/caracas-pm/attachments/20100819/cfadbbba/attachment.html>

From templeofdvst at gmail.com  Wed Aug 25 12:20:15 2010
From: templeofdvst at gmail.com (=?ISO-8859-1?B?SmF2aWVyIEUuIFDpcmV6IFAu?=)
Date: Wed, 25 Aug 2010 14:50:15 -0430
Subject: [caracas-pm]
	=?iso-8859-1?q?Fwd=3A_=BFReuni=F3n_extraordinaria=3F?=
In-Reply-To: <AANLkTin=7uM+ccbZayXa4xW07sGOgAM5x--ijKceoFJN@mail.gmail.com>
References: <1282142811.5375.129.camel@deepthought.ius.cc>
	<AANLkTim4i_3EZX_BjuwFMBBLyodqSJ-AKzZbThDMg5rF@mail.gmail.com>
	<AANLkTim-6MbQiW6NG9cJ25MkRU+R6N43DG97KH9sBYYd@mail.gmail.com>
	<AANLkTin=7uM+ccbZayXa4xW07sGOgAM5x--ijKceoFJN@mail.gmail.com>
Message-ID: <AANLkTi=CWSp+T5arcCKRbjnjy0bp5tjnT=e9giGioOLF@mail.gmail.com>

Buenas, les escribo para saber si se reunieron este sabado que paso,
nunca vi confirmaci?n,

nos vemos este s?bado?

2010/8/19 Nelo R. Tovar <tovar.nelo at gmail.com>:
> Saludos.
>
> Reenv?o a la lista respuestas que me han enviado sobre la reuni?n del
> s?bado.
>
> ---------- Mensaje reenviado ----------
> De: Javier E. P?rez P. <templeofdvst at gmail.com>
> Fecha: 18 de agosto de 2010 11:18
> Asunto: Re: [caracas-pm] ?Reuni?n extraordinaria?
> Para: "Nelo R. Tovar" <tovar.nelo at gmail.com>
>
>
> Hey que tal, me gustar?a asistir a la reuni?n, pero este s?bado no
> podr? asistir por compromisos en la universidad, pero el otro arriba
> si tengo la disponibilidad. igual un amigo que esta empezando con el
> lenguaje, ha hecho algunas.
>
> ---------- Mensaje reenviado ----------
> De: Ali Moreno <alimoreno at gmail.com>
> Fecha: 18 de agosto de 2010 12:48
> Asunto: Re: [caracas-pm] ?Reuni?n extraordinaria?
> Para: "Nelo R. Tovar" <tovar.nelo at gmail.com>
>
>
> Avisenme cuando metan en el tema el webgui ;)
>
>
>
> --
> Nelo R. Tovar
>
> _______________________________________________
> caracas-pm mailing list
> caracas-pm at pm.org
> http://mail.pm.org/mailman/listinfo/caracas-pm
>

From emhnemhn at gmail.com  Wed Aug 25 14:49:44 2010
From: emhnemhn at gmail.com (Ernesto =?ISO-8859-1?Q?Hern=E1ndez-Novich?=)
Date: Wed, 25 Aug 2010 17:19:44 -0430
Subject: [caracas-pm]
	=?iso-8859-1?q?Fwd=3A_=BFReuni=F3n_extraordinaria=3F?=
In-Reply-To: <AANLkTi=CWSp+T5arcCKRbjnjy0bp5tjnT=e9giGioOLF@mail.gmail.com>
References: <1282142811.5375.129.camel@deepthought.ius.cc>
	<AANLkTim4i_3EZX_BjuwFMBBLyodqSJ-AKzZbThDMg5rF@mail.gmail.com>
	<AANLkTim-6MbQiW6NG9cJ25MkRU+R6N43DG97KH9sBYYd@mail.gmail.com>
	<AANLkTin=7uM+ccbZayXa4xW07sGOgAM5x--ijKceoFJN@mail.gmail.com>
	<AANLkTi=CWSp+T5arcCKRbjnjy0bp5tjnT=e9giGioOLF@mail.gmail.com>
Message-ID: <1282772984.28723.40.camel@deepthought.ius.cc>

On Wed, 2010-08-25 at 14:50 -0430, Javier E. P?rez P. wrote:
> Buenas, les escribo para saber si se reunieron este sabado que paso,
> nunca vi confirmaci?n,

No hubo reuni?n.

> nos vemos este s?bado?

Puede ser. ?Quienes se anotan? ?Temas?
-- 
Ernesto Hern?ndez-Novich - @iamemhn - Unix: Live free or die!
Geek by nature, Linux by choice, Debian of course.
If you can't aptitude it, it isn't useful or doesn't exist.
GPG Key Fingerprint = 438C 49A2 A8C7 E7D7 1500 C507 96D6 A3D6 2F4C 85E3