From topillu at hotmail.com Tue Jun 1 07:24:50 2004 From: topillu at hotmail.com (=?iso-8859-1?B?dG9wbyB0b3BvIGzzcGV6?=) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] ncurses Message-ID: Bones, m'agradar?a que alg? m'explicara exactament con van les cureses amb perl, quines diferencies hi ha entre curses i ncurses, i on puc baixar tots els moduls que fan falta, perque em demana molt?ssims (POE's etc....). Si alg? em pot responde, ho agrairia :P Gr?cies _________________________________________________________________ ?Est?s pensando en cambiar de coche? Todas los modelos de serie y extras en MSN Motor. http://motor.msn.es/researchcentre/ From pancake at phreaker.net Thu Jun 3 17:04:22 2004 From: pancake at phreaker.net (pancake) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] xml parser nyaju In-Reply-To: <200405070905.54418.jluis@escomposlinux.org> References: <200405070905.54418.jluis@escomposlinux.org> Message-ID: <20040603220422.30cf45b6.pancake@phreaker.net> Bueno, he probat amb el XML::Parser i es molt lent :// i aixo q esta basat en expat, q es C. Ahir a la nit vaig estar una estoneta fent un parser i aqui esta el codi per si a algu li interesa, suporta tag arrel i un nivell de tags, atributs, body i comentaris. logicament no comproba si el document es correcte ni agafa mes de 1 nivell de tags, pero fa tot el q necessito i unes 10 vegades mes rapid que XML::Parser. potser el faig orientat a objectes i amb callbacks per fer-lo servir desde fora, pq aixo es el parser a seques. I de segur que a m?s d'algu li anir? be per montarlo en sistemes pesats per tal d'estalviar cpu i millorar temps de resposta, s'hauria de fer alguna part per pillar els charsets i dem?s, pero llavors ja seria mes pesat. i el tenir mes d'un nivell de tags ja capgira una mica el codi pq caldria fer-lo recursiu, pero be, aqi esta, viam que us sembla: :--- Parser --: #!/usr/bin/env perl my $msg=""; open(F,"<$ARGV[0]") or die "No such file"; while(){ $msg.=$_; } $msg=~s/\n//g; $msg=~s///g; #Strip comments $msg=~s/<([^>]*)>/>/; print "ROOT: '$1'\n===\n"; $msg=~s/<\/([^<>]*)>/<\/\1>\n/g; close(F); while(1) { $msg=~/<(.*)>(.*)<\/.*>/; $tag=$1;chomp($tag); $body=$2; if ($tag eq "") { last; } $tag=~/([^\ ]*)/; $name=$1; print "NAME: '$name'\n"; while ($tag=~/=/) { $tag=~s/([^\ ]*)=\"([^\"]*)\"//; print "ATTR: ($name) '$1' = '$2'\n"; } chop($tag); print "BODY: '$body'\n"; $msg=~s/<.*>$body<\/.*>//; print "==\n"; } :--- XML d'exemple i test --: [0:~/prg/xml]$ cat side.xml Title of depart code xxx yyy xxx zzz [0:~/prg/xml]$ ./side.pl side.xml ROOT: 'side' === NAME: 'title' ATTR: (title) 'type' = '2' BODY: 'Title of depart' == NAME: 'body' BODY: ' code' == NAME: 'food' BODY: ' xxx yyy xxx zzz ' == [0:~/prg/xml]$ apa salut i bon profit :) From jpandres at sync.es Fri Jun 4 03:03:22 2004 From: jpandres at sync.es (Jose Pedro Andres) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. Message-ID: <40C02CCA.10106@sync.es> Buenos dias: Me llamo Jose Pedro Andres y me acabo de apuntar, asi q en breve empezare a daros la tabarra :D Ahora mismo trabajo como administrador de windows/linux, y me molaria usar perl para los scripts de administracion, pero se me plantean las siguientes dudas: - ? Puedo saber, desde perl, la carga de la CPU windows ? En linux lo haria desde el /proc/cpuinfo... - ? Como demonios controlo la fecha de creacion de un archivo ? La idea es borrar los logs de los meses pasados, pero no hay manera de que me lo pille. Se aceptan sugerencias y consejos :D Un saludo. Nota: Los acentos de este mensaje se han omitido deliberadamente por compatibilidad MIME From pancake at phreaker.net Fri Jun 4 04:21:14 2004 From: pancake at phreaker.net (pancake) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. In-Reply-To: <40C02CCA.10106@sync.es> References: <40C02CCA.10106@sync.es> Message-ID: <20040604092114.78aba0a1.pancake@phreaker.net> > - ? Puedo saber, desde perl, la carga de la CPU windows ? En linux > lo haria desde el /proc/cpuinfo... si, pero tendrias q hacer una interficie C para acceder a la api interna de win32 > - ? Como demonios controlo la fecha de creacion de un archivo ? La > idea es borrar los logs de los meses pasados, pero no hay manera de que > me lo pille. stat: 8 atime last access time in seconds since the epoch 9 mtime last modify time in seconds since the epoch 10 ctime inode change time in seconds since the epoch (*) (*) The ctime field is non-portable, in particular you cannot expect it to be a "creation time", see "Files and Filesystems" in perlport for details. i a perlport trobem: ctime is creation time instead of inode change time (Win32). device and inode are not meaningful. (Win32) man perlfunc pop From jdelgado at lsi.upc.es Fri Jun 4 03:29:11 2004 From: jdelgado at lsi.upc.es (Jordi Delgado) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Bibliografia y comentaris continuacions In-Reply-To: <40C02CCA.10106@sync.es> References: <40C02CCA.10106@sync.es> Message-ID: <20040604082911.GA16587@nodoiuna.lsi.upc.es> Hola, Aqui va el que us vaig dir que enviaria (mas vale tarde...), Introducci?: Scheme and the Art of Programming George Springer and Daniel P. Friedman MIT Press 1989 Introduccio a la programacio, usa Scheme. Parla de continuacions en els dos darrers capitols. Structure and Interpretation of Computer Programs (2nd. ed.) Harold Abelson and Gerald Jay Sussman MIT Press 1996 (complet on-line, mitpress.mit.edu/sicp) Introduccio heavy (cal tenir les mates fresques) a la programacio Extraordinari. Video de les classes on-line The Scheme Programming Language (3rd. ed.) R. Kent Dybvig MIT Press 2003 (complet on-line, www.scheme.com/tspl) NO es una introduccio a la programacio. Parla de continuacions (breu pero complet) Ve a ser el Kernighan & Ritchie d'Scheme. Avan?ats: Lisp in Small Pieces Christian Queinnec Cambridge Univ. Press 1996 Essentials of Programming Languages (2nd. ed.) Daniel P. Friedman, Mitchell Wand and Christopher T. Haynes MIT Press 2001 Tota (i vull dir TOTA) la info sobre Scheme: www.schemers.org Espero que aixo sigui suficient. Pels que vau venir a la darrera reunio: Hi ha una manera de programar que es diu Continuation Passing Style (CPS) amb la que pots fer explicites les continuacions sense call/cc (ja que te les fas tu). La unica cosa que cal es que puguis passar i retornar subprogrames a altres subprogrames i que puguis fer closures, i totes dues coses son factibles en Perl. Estic donant-li voltes a posar uns quants exemples d'aixo en Perl, pero com vaig malament de temps, no prometo res (ni poso dates). Parlant d'una altra cosa, que passa aquest mes?? El quart dijous es el dia 24, i considerant que alguns farem/faran pont, probablement no estiguem/estiguin per aqui... En fi, ja direu... Salut! Jordi From alexm at ac.upc.es Fri Jun 4 05:06:26 2004 From: alexm at ac.upc.es (Alex Muntada) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. In-Reply-To: <40C02CCA.10106@sync.es> References: <40C02CCA.10106@sync.es> Message-ID: <20040604100626.GB32062@ac.upc.es> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 * Jose Pedro Andres: [2004-06-04/10:03:22 +0200] > ? Puedo saber, desde perl, la carga de la CPU windows ? Has provat algun dels m?duls Win32::.*? He vist que hi ha un Win32::SystemInfo per? aquest no indica els valors de la c?rrega. En qualsevol cas, sempre podries utilitzar el Win32::API i preguntar-li directament al sistema (no em preguntis com perqu? no tinc ni idea de Windows). > ? Como demonios controlo la fecha de creacion de un archivo ? Mira les funcions "-M", "-A" i "-C" del "perldoc -f -X". use Perl; no Patents; - -- Alex Muntada http://people.ac.upc.es/alexm/ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (GNU/Linux) iD8DBQFAwEmWLdxCGS3zaBERAvJ3AKDXVbwJM8pNa9TUbPTb4emwGp8bpwCfSsqq Q1tbCiutNjD8n7OpRS0g1u8= =Lhxp -----END PGP SIGNATURE----- From frankie at etsetb.upc.es Fri Jun 4 04:14:11 2004 From: frankie at etsetb.upc.es (Francesc Guasch) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. In-Reply-To: <40C02CCA.10106@sync.es> References: <40C02CCA.10106@sync.es> Message-ID: <40C03D63.6090800@etsetb.upc.es> Jose Pedro Andres wrote: > Buenos dias: > Me llamo Jose Pedro Andres y me acabo de apuntar, asi q en breve > empezare a daros la tabarra :D > > Ahora mismo trabajo como administrador de windows/linux, y me molaria > usar perl para los scripts de administracion, pero se me plantean las > siguientes dudas: > - ? Puedo saber, desde perl, la carga de la CPU windows ? En linux lo > haria desde el /proc/cpuinfo... yo para hacer estas cosas utilizo nagios:An open source host, service and network monitoring program. http://www.nagios.org/ > - ? Como demonios controlo la fecha de creacion de un archivo ? La > idea es borrar los logs de los meses pasados, pero no hay manera de que > me lo pille. Con la funci?n stat. Si quieres ver como va: $perldoc -f stat -- - jo tamb? vull una Europa lliure de patents de programari - -------------------------------------------------------------- EuropeSwPatentFree - http://EuropeSwPatentFree.hispalinux.es -------------------------------------------------------------- http://patents.caliu.info From jpandres at sync.es Fri Jun 4 05:30:43 2004 From: jpandres at sync.es (Jose Pedro Andres) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. In-Reply-To: <40C03D63.6090800@etsetb.upc.es> References: <40C02CCA.10106@sync.es> <40C03D63.6090800@etsetb.upc.es> Message-ID: <40C04F53.9090007@sync.es> Buenas: > yo para hacer estas cosas utilizo nagios:An open source host, service > and network monitoring program. > http://www.nagios.org/ Ya lo tengo implementado , y funciona de miedo. El interese de esto era para la automatizacion de scripts en perl. Si conoceis Cpanel, a la hora de procesar logs o cualquier proceso que pueda cargar la CPU, mira cada X tiempo y si la carga sube mucho, detiene el proceso hasta que baja. Me interesaba usar algo asi para los de windows, pq a nada que haces un find o similar, se me pone el servidor al 80% :\ Por dios, con lo facil que son las cosas en linux, y la de vueltas que tengo que dar para hacer lo mismo en windows..... > > Con la funci?n stat. Si quieres ver como va: > > $perldoc -f stat > Gracias ! -- Este correo no es la direccion de soporte. Si desea indicar una incidencia hagalo mediante http://soporte.sync.es Nota: Los acentos de este mensaje se han omitido deliberadamente por compatibilidad MIME ---------------------------------------- Jose Pedro Andres Administrador de sistemas jose@sync.es ---------------------------------------- From pancake at phreaker.net Fri Jun 4 07:01:53 2004 From: pancake at phreaker.net (pancake) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] XML nyaju (2) In-Reply-To: <200405070905.54418.jluis@escomposlinux.org> References: <200405070905.54418.jluis@escomposlinux.org> Message-ID: <20040604120153.53ccf95e.pancake@phreaker.net> Aixo d'estar en epoca d'exams m'obliga a sudar d'estudiar. aqi teniu la api OO per accedir al parseig del XML q vaig enviar ahir. el passar-ho a OO es 1ms m?s lent en el p4m 1.7. pero bueno. es mes practic ;) espero q a m?s d'algu li serveixi per si ha de fer algo semblant, per cert, si algu es curra per poder suportar tags aniuats q m'envii el .diff o ho comentem per aqi la llista. si us mireu el codi del PXP.pm veureu que lq he fet basicament es anar enlla?ant amb rerefencies internes a la hash self del objecte les arrays de cada element amb els hash i escalars. inga bon profit! =) aqi esta el codi q l'utilitza, pq veieu com s'utilitza l'api. [0:~/prg/xml]$ cat pxp.pl use PXP; $pxp=PXP->new(); $pxp->setBufferFromFile("side.xml"); $pxp->parse(); print "ROOT TAG IS : '".$pxp->getRoot()."'\n"; @tags=$pxp->getTags(); @body=$pxp->getBodies(); foreach $i ( 0..$#tags ) { print "$i) TAG: ".$tags[$i]." ( ".$body[$i]." )\n"; %attr=$pxp->getAttributes($i); foreach $a (keys %attr) { print "ATTR $a=".$attr{$a}."\n"; } } [0:~/prg/xml]$ PD::::___::::DP ja veig q la llista capa els mails amb fitxers adjunts...viam si ho canvieu, pq amb el mutt no hi ha manera d'enviar els mails a la llista. torno a enviar en plain tot. #!/usr/bin/env perl package PXP; sub new { my ($class)=@_; my %self={}; # Variables $self->{buf}=""; $self->{root}=""; $self->{tags}=(); $self->{attr}=(); $self->{body}=(); return bless \$self; } sub parse { my (%self)=@_; $msg=$self->{buf}; @ATTR=(); @TAGS=(); @BODY=(); $TAGS_i=0; $msg=~s/\n//g; $msg=~s///g; #Strip comments $msg=~s/<([^>]*)>/>/; $self->{root}=$1; $msg=~s/<\/([^<>]*)>/<\/\1>\n/g; while(1) { $msg=~/<(.*)>(.*)<\/.*>/; $tag=$1;chomp($tag); $body=$2; $BODY[$TAGS_i]=$body; if ($tag eq "") { last; } $tag=~/([^\ ]*)/; $name=$1; $TAGS[$TAGS_i]=$name; # Store tag $BODY[$TAGS_i]=$body; $TAGS_i++; while ($tag=~/=/) { $tag=~s/([^\ ]*)=\"([^\"]*)\"//; $ATTR[$ATTR_i]{$1}=$2; } chop($tag); $msg=~s/<.*>$body<\/.*>//; } ($self->{tags})=\@TAGS; ($self->{body})=\@BODY; ($self->{attr})=\@ATTR; } sub getAttributes { %self=shift; $i=shift; return %{$self->{attr}[$i]}; } sub getRoot { my (%self)=@_; return $self->{root}; } sub getTags { my (%self)=@_; return @{$self->{tags}}; } sub getBodies { my (%self)=@_; return @{$self->{body}}; } sub setBuffer { my (%self,$buf)=@_; bless($buf); $self->{buf}=$buf; } sub setBufferFromFile { my %self=shift; my $file=shift; my $buf; open(F,"<$file") or die "File '$file' not found"; while(){ $buf.=$_; } close(F); $self->{buf}=$buf; } 1; __END__ =head1 NAME PXP - A perl module for parsing XML documents (pancake xml parser) $pxp PXP->new(); $pxp->setBuffer($buf); $pxp->setBufferFromFile("filename"); print $pxp->getRoot()."\n"; for $tag (keys $pxp->getTags() ) { print "TAG $tag\n"; } $pxp->parse(); =cut From pancake at phreaker.net Fri Jun 4 06:45:25 2004 From: pancake at phreaker.net (pancake) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] XML nyaju (2) In-Reply-To: <200405070905.54418.jluis@escomposlinux.org> References: <200405070905.54418.jluis@escomposlinux.org> Message-ID: <20040604114525.3486c2ce.pancake@phreaker.net> Aixo d'estar en epoca d'exams m'obliga a sudar d'estudiar. aqi teniu la api OO per accedir al parseig del XML q vaig enviar ahir. el passar-ho a OO es 1ms m?s lent en el p4m 1.7. pero bueno. es mes practic ;) espero q a m?s d'algu li serveixi per si ha de fer algo semblant, per cert, si algu es curra per poder suportar tags aniuats q m'envii el .diff o ho comentem per aqi la llista. si us mireu el codi del PXP.pm veureu que lq he fet basicament es anar enlla?ant amb rerefencies internes a la hash self del objecte les arrays de cada element amb els hash i escalars. inga bon profit! =) aqi esta el codi q l'utilitza, pq veieu com s'utilitza l'api. [0:~/prg/xml]$ cat pxp.pl use PXP; $pxp=PXP->new(); $pxp->setBufferFromFile("side.xml"); $pxp->parse(); print "ROOT TAG IS : '".$pxp->getRoot()."'\n"; @tags=$pxp->getTags(); @body=$pxp->getBodies(); foreach $i ( 0..$#tags ) { print "$i) TAG: ".$tags[$i]." ( ".$body[$i]." )\n"; %attr=$pxp->getAttributes($i); foreach $a (keys %attr) { print "ATTR $a=".$attr{$a}."\n"; } } [0:~/prg/xml]$ -------------- next part -------------- A non-text attachment was scrubbed... Name: PXP.pm Type: application/octet-stream Size: 1685 bytes Desc: not available Url : http://mail.pm.org/pipermail/barcelona-pm/attachments/20040604/b628fb25/PXP.obj From alexm at ac.upc.es Sat Jun 5 12:17:15 2004 From: alexm at ac.upc.es (Alex Muntada) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] ncurses In-Reply-To: References: Message-ID: <20040605171715.GA10001@ac.upc.es> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 * topo topo l?pez: [2004-06-01/12:24:50 +0000] > m'agradar?a que alg? m'explicara exactament con van les cureses > amb perl, Si saps com van en C, no hauries de tenir gaires problemes per utilitzar-les des de Perl: http://search.cpan.org/~wps/Curses-1.06/gen/make.Curses.pm > quines diferencies hi ha entre curses i ncurses, En principi, poques. Les curses s?n les que pots trobar a la majoria dels sistemes Un*x comercials, ?s a dir, es tracta de la versi? cl?ssica (sovint, for?a limitada). Les N(ew)curses s?n la nova implementaci? lliure que es va crear per al projecte GNU: http://www.gnu.org/directory/ncurses.html > i on puc baixar tots els moduls que fan falta, perque em demana > molt?ssims (POE's etc....). Al CPAN, ?s clar. Executa "cpan" (o "perl -MCPAN -eshell" si la teva versi? de Perl ?s molt antiga) i instal?la els m?duls amb "install", que ja s'encarregar? de descarregar les depend?ncies que necessiti. http://search.cpan.org/~andk/CPAN-1.76/lib/CPAN.pm use Perl; no Patents; - -- Alex Muntada http://people.ac.upc.es/alexm/ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (GNU/Linux) iD8DBQFAwgAILdxCGS3zaBERAppsAKC9SjOdTjnn7LaU1XOrw6KP5uUPmACgvLE6 2XEzac6mhghKvFkkBP/x0rY= =bVav -----END PGP SIGNATURE----- From pincky at soon.com Mon Jun 7 04:51:26 2004 From: pincky at soon.com (Joel Pinckheard) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. Message-ID: <20040607095126.353ED28B57@ws1-1a.us4.outblaze.com> > > Ahora mismo trabajo como administrador de windows/linux, y me molaria > > usar perl para los scripts de administracion, pero se me plantean las > > siguientes dudas: > > - ? Puedo saber, desde perl, la carga de la CPU windows ? En linux lo > > haria desde el /proc/cpuinfo... No tengo el codigo exacto a mano ahora mismo pero si bajas Big Sister http://prdownloads.sourceforge.net/bigsister/big-sister-0.98c8.tar.gz (http://bigsister.graeff.com/ - otra herramienta de monitorizacion pero escrito en perl). Tiene ejemplos de como accedar al perflib de windows por perl. En particular mira a los ficheros uxmon\Monitor\PerfLib.pm -- Joel Pinckheard http://www.pincky.com From kpeiruza at gnunetworks.com Mon Jun 7 04:56:09 2004 From: kpeiruza at gnunetworks.com (Kenneth Peiruza) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Presentacion y dudas. In-Reply-To: <20040607095126.353ED28B57@ws1-1a.us4.outblaze.com> References: <20040607095126.353ED28B57@ws1-1a.us4.outblaze.com> Message-ID: <1086602168.1828.12.camel@linux.local> Activestate's Perl for Windows tiene toneladas de documentaci?n. La mejor forma de solucionar algo, es dejar de lado los problemas futuros y echarse al ruedo ;) Saludos! On dl, 2004-06-07 at 11:51, Joel Pinckheard wrote: > > > Ahora mismo trabajo como administrador de windows/linux, y me molaria > > > usar perl para los scripts de administracion, pero se me plantean las > > > siguientes dudas: > > > - ? Puedo saber, desde perl, la carga de la CPU windows ? En linux lo > > > haria desde el /proc/cpuinfo... > > No tengo el codigo exacto a mano ahora mismo pero si bajas Big Sister > http://prdownloads.sourceforge.net/bigsister/big-sister-0.98c8.tar.gz > (http://bigsister.graeff.com/ - otra herramienta de monitorizacion pero > escrito en perl). Tiene ejemplos de como accedar al perflib de windows > por perl. > > En particular mira a los ficheros uxmon\Monitor\PerfLib.pm -- Kenneth Peiruza From pincky at soon.com Mon Jun 7 04:59:52 2004 From: pincky at soon.com (Joel Pinckheard) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion Message-ID: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> Como Jordi ha dicho la proxima reunion es el d?a 24 de este mes. Depende del interes podemos cambiar la reunion una semana al d?a 18. ?Algunas preferencias? Para mi los dos me van bien. ?Por cierto quien dar? la charla? -- Joel Pinckheard http://www.pincky.com From fxn at hashref.com Mon Jun 7 05:26:14 2004 From: fxn at hashref.com (Xavier Noria) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> References: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> Message-ID: <1ACB64EB-B86D-11D8-939C-000A95A4E370@hashref.com> On Jun 7, 2004, at 11:59, Joel Pinckheard wrote: > Como Jordi ha dicho la proxima reunion es el d?a 24 de este mes. > > Depende del interes podemos cambiar la reunion una semana al d?a > 18. ?Algunas preferencias? > > Para mi los dos me van bien. > > ?Por cierto quien dar? la charla? Esta claro que lo de la charlas necesita cierta coordinacion, si quereis me puedo encargar yo mismo. (Decidir esto tambien necesita cierta coordinacion a su vez. :-) -- fxn From alexm at ac.upc.es Mon Jun 7 06:06:40 2004 From: alexm at ac.upc.es (Alex Muntada) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> References: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> Message-ID: <20040607110640.GA20345@ac.upc.es> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 * Joel Pinckheard: [2004-06-07/10:59:52 +0100] > Depende del interes podemos cambiar la reunion una semana al d?a > 18. ?Algunas preferencias? Jo el dia 18 no podr?. El 24 gaireb? segur que s?. - -- Alex Muntada http://people.ac.upc.es/alexm/ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (GNU/Linux) iD8DBQFAxEw2LdxCGS3zaBERAq1KAJ9wozXM65NgsxtdU3BUUkll4O7CaQCgkwR/ WxsZEEl6wrAjEbEwhw8hmwo= =gEHa -----END PGP SIGNATURE----- From alexm at ac.upc.es Mon Jun 7 06:09:38 2004 From: alexm at ac.upc.es (Alex Muntada) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <1ACB64EB-B86D-11D8-939C-000A95A4E370@hashref.com> References: <20040607095952.8D48228B4B@ws1-1a.us4.outblaze.com> <1ACB64EB-B86D-11D8-939C-000A95A4E370@hashref.com> Message-ID: <20040607110938.GB20345@ac.upc.es> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 * Xavier Noria: [2004-06-07/12:26:14 +0200] > Esta claro que lo de la charlas necesita cierta coordinacion, si > quereis me puedo encargar yo mismo. (Decidir esto tambien necesita > cierta coordinacion a su vez. :-) Ho he ent?s b? o ens est?s proposant fer una xerrada sobre les xerrades de Barcelona.pm? ;-) En qualsevol cas, confio plenament en el teu criteri. Endavant.. - -- Alex Muntada http://people.ac.upc.es/alexm/ -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.3 (GNU/Linux) iD8DBQFAxEzvLdxCGS3zaBERAlvZAKCnIfIi8g3Opfhf524CvLDh8wRX0QCeO0By fm+ejkewArQNp64OonNnv9M= =ahjM -----END PGP SIGNATURE----- From pincky at soon.com Mon Jun 7 08:05:22 2004 From: pincky at soon.com (Joel Pinckheard) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion Message-ID: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> > Esta claro que lo de la charlas necesita cierta coordinacion, si > quereis me puedo encargar yo mismo. (Decidir esto tambien necesita > cierta coordinacion a su vez. :-) Si no me equivoco hab?amos decido que decidiremos quien iba a dar la pr?xima charla el mes anterior. Como yo me fui antes la ultima vez no se si se dec?a algo ? no... Si nadie m?s tiene alg?n tema, hablar? sobre como hacer programes multi linguales en perl (1. encontrar algun para traducir el texto) -- Joel Pinckheard http://www.pincky.com From fxn at hashref.com Mon Jun 7 08:51:32 2004 From: fxn at hashref.com (Xavier Noria) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> References: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> Message-ID: On Jun 7, 2004, at 15:05, Joel Pinckheard wrote: >> Esta claro que lo de la charlas necesita cierta coordinacion, si >> quereis me puedo encargar yo mismo. (Decidir esto tambien necesita >> cierta coordinacion a su vez. :-) > > Si no me equivoco hab?amos decido que decidiremos quien iba a dar la > pr?xima charla el mes anterior. Como yo me fui antes la ultima vez > no se si se dec?a algo ? no... Hmmmm... eso tiene que ver algo con lo de coordinar o lo dices como un comentario al margen? Coordinar las charlas no significa escogerlas, eso deberia correr a cargo del grupo en mi opinion. El mes pasado por ejemplo se decidio que se haria la de Scheme, pero nadie aviso a Jordi. Esto no tendria que suceder, por respeto a quien haya de presentarla. La figura de un coordinador se convierte ahi en alguien que esta al caso y esta aceptado por el grupo como alguien que puede enviar un mail al respecto, nada mas. Bueno, yo me he ofrecido voluntariamente porque creo que hay una responsabilidad minima que cubrir ahi, pero si no es asi, nada. > Si nadie m?s tiene alg?n tema, hablar? sobre como hacer programes > multi linguales en perl (1. encontrar algun para traducir el texto) Si que se propuso algo, pero esa misma estara bien por mi. -- fxn From frankie at etsetb.upc.es Mon Jun 7 10:22:54 2004 From: frankie at etsetb.upc.es (Francesc Guasch) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: References: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> Message-ID: <40C4884E.4060700@etsetb.upc.es> Xavier Noria escribi?: > On Jun 7, 2004, at 15:05, Joel Pinckheard wrote: >> Si nadie m?s tiene alg?n tema, hablar? sobre como hacer programes >> multi linguales en perl (1. encontrar algun para traducir el texto) > Si que se propuso algo, pero esa misma estara bien por mi. si no recordo malament, el Toni Hermoso ( que fa temps que no ve els dijous ) va proposar un tema abans de la darrera reuni?. I fa poc el Xavi tamb? tenia un m?dul que ensenyar-nos. From fxn at hashref.com Mon Jun 7 10:29:47 2004 From: fxn at hashref.com (Xavier Noria) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <40C4884E.4060700@etsetb.upc.es> References: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> <40C4884E.4060700@etsetb.upc.es> Message-ID: <829B2DBB-B897-11D8-939C-000A95A4E370@hashref.com> On Jun 7, 2004, at 17:22, Francesc Guasch wrote: > Xavier Noria escribi?: >> On Jun 7, 2004, at 15:05, Joel Pinckheard wrote: >>> Si nadie m?s tiene alg?n tema, hablar? sobre como hacer programes >>> multi linguales en perl (1. encontrar algun para traducir el texto) >> Si que se propuso algo, pero esa misma estara bien por mi. > > si no recordo malament, el Toni Hermoso ( que fa temps > que no ve els dijous ) va proposar un tema abans de la > darrera reuni?. Arran d'aixo, que en sabeu res de l'Angel? Estas encara per aqui? -- fxn From pincky at soon.com Mon Jun 7 12:30:52 2004 From: pincky at soon.com (Joel Pinckheard) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion Message-ID: <20040607173052.B4A6C28B4B@ws1-1a.us4.outblaze.com> > Hmmmm... eso tiene que ver algo con lo de coordinar o lo dices como un > comentario al margen? Pues de verdad no ten?a mucho que ver. Pon lo como comentario al margen :-) > Bueno, yo me he ofrecido voluntariamente porque creo que hay una > responsabilidad minima que cubrir ahi, pero si no es asi, nada. Tienes la razon. Si que es una responsabilidad que alguien tiene que encargarse y si te ofrecias como voluntario yo por uno, accepto la oferta con mis gracias. -- Joel Pinckheard http://www.pincky.com From pincky at soon.com Mon Jun 7 12:34:09 2004 From: pincky at soon.com (Joel Pinckheard) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion Message-ID: <20040607173409.EA57428B9E@ws1-1a.us4.outblaze.com> > si no recordo malament, el Toni Hermoso ( que fa temps > que no ve els dijous ) va proposar un tema abans de la > darrera reuni?. > > I fa poc el Xavi tamb? tenia un m?dul que ensenyar-nos. Creo que hab?a algo sobre Subversion y sus respectivos perl-bindings tambi?n. -- Joel Pinckheard http://www.pincky.com From toniher at arrakis.es Tue Jun 8 08:41:21 2004 From: toniher at arrakis.es (Toni Hermoso) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <40C4884E.4060700@etsetb.upc.es> References: <20040607130522.08D2428B9F@ws1-1a.us4.outblaze.com> <40C4884E.4060700@etsetb.upc.es> Message-ID: <40C5C201.2040900@arrakis.es> Hola, jo puc parlar-vos una mica de Bioperl ( http://bioperl.org/ ). -- Officially organized in 1995 and existing informally for several years prior, The Bioperl Project is an international association of developers of open source Perl tools for bioinformatics, genomics and life science research. -- Salut! En/na Francesc Guasch ha escrit: > si no recordo malament, el Toni Hermoso ( que fa temps > que no ve els dijous ) va proposar un tema abans de la > darrera reuni?. > -- * Toni Hermoso Pulido ------------------------------------------------------ web: http://drac.homelinux.org email: toniher@arrakis.es gpg: B67B43DC All that you touch You Change. All that you Change Changes you. The only lasting truth is Change O.Butler ------------------------------------------------------ -------------- next part -------------- A non-text attachment was scrubbed... Name: signature.asc Type: application/pgp-signature Size: 189 bytes Desc: OpenPGP digital signature Url : http://mail.pm.org/pipermail/barcelona-pm/attachments/20040608/cc4f12bd/signature.bin From fxn at hashref.com Tue Jun 8 09:44:52 2004 From: fxn at hashref.com (Xavier Noria) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Proxima Reunion In-Reply-To: <20040607173409.EA57428B9E@ws1-1a.us4.outblaze.com> References: <20040607173409.EA57428B9E@ws1-1a.us4.outblaze.com> Message-ID: <66850F00-B95A-11D8-9282-000A95A4E370@hashref.com> On Jun 7, 2004, at 19:34, Joel Pinckheard wrote: >> si no recordo malament, el Toni Hermoso ( que fa temps >> que no ve els dijous ) va proposar un tema abans de la >> darrera reuni?. >> >> I fa poc el Xavi tamb? tenia un m?dul que ensenyar-nos. > > Creo que hab?a algo sobre Subversion y sus respectivos perl-bindings > tambi?n. Recordeu qui l'havia proposat aquesta? De moment hi ha aquestes tres a la cua: Joel Pinckheard - i18n amb Perl Toni Hermoso - BioPerl Xavier Noria - Filtres de codi (source filters) i a la reunio d'aquest mes tindrem la d'en Joel. -- fxn From jluis at escomposlinux.org Tue Jun 15 06:19:18 2004 From: jluis at escomposlinux.org (=?iso-8859-1?q?Jos=E9_Luis_P=E9rez_Diez?=) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Propuesta de charla futura Message-ID: <200406151319.40716.jluis@escomposlinux.org> -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Estoy realizando un proyecto para monitorizar la red de forma pasiva Basado en ARP request y para familiarizarme con algunos modulos como : Net::PcapUtils Net::Pcap NetPacket::Ethernet NetPacket::ARP threads threads::shared Thread::Queue DBI y varios para realizar SNMP consultas netbios y nmap (monitorizar para consulta del estado de la red en condiciones de alertas de virus ). De momento estoy con el modulo que captura las peticiones de arp y gestiono los datos directamente desde pgsql pero la intencion es generar un grupo de paginas web (via XML) que faciliten la explotacion de los datos capturados. Si os parece interesante mantendre al dia las incidencias y cosas curiosas que vea para una poxima charla =================================capture.pl ====================== #!/usr/bin/perl -w =head1 Capture =item Descripcion captura paquetes ARP y almacena el origen (mac e ip) esta pensado para ejecutar como root =item Dependecias Net::PcapUtils Net::Pcap NetPacket::Ethernet NetPacket::ARP threads threads::shared Thread::Queue Actualmente su funcinamiento se controla desde la entrada estandard =cut use Net::PcapUtils; use Net::Pcap; use NetPacket::Ethernet qw(:types); use NetPacket::ARP; use threads; use threads::shared; use Thread::Queue; use DBI; my %lista =(); my $cola = Thread::Queue->new; my $stoped = 0; my $captured =0; my $processed =0; share($stoped); share($captured); share($processed); ##no se puede sharear la lista =head2 showhw(HexString) retorna la conversion string de 12bytes que representan una MacAdress en exadecimal a la notacion estandard para macs =cut sub showhw($){ my ($hw ) = @_; $hw =~ s/([0-9A-Fa-f][0-9A-Fa-f])(?=[0-9A-Fa-f])/$1:/g; return $hw; } =head2 showip(HexString) retorna la conversion de un string de 8 bytes que representan una IP en exadecimal a la notacion estandard para macs =cut sub showip($){ my ($ip) = @_; return hex(substr($ip,0,2)).".".hex(substr($ip,2,2)).".".hex(substr($ip,4,2)).".".hex(substr($ip,6,2)); } =head2 showtipe(Numero) retorna el nombre del tipo de paquete arp =cut sub showtype($) { my @nombre = ("", arp_ask, arp_resp,rarp_ask,rarp_resp); return $nombre[shift]; } =head2 monta_lista Actiualiza un hash de hash de array con clave IP y MAC con la siguete informacion =over 4 =item 1 timestamp del paquete =item 2 cuenta de paquetes recibidos =item 3 dirty flag =back =cut sub monta_lista { while ($cola->pending) { my $ip = $cola->dequeue; my $hw = $cola->dequeue; my $cuando = $cola->dequeue; $processed ++; if ($lista{$ip}{$hw}[0]) { $lista{$ip}{$hw}[0] = $cuando; $lista{$ip}{$hw}[1] ++; $lista{$ip}{$hw}[2] = 1; }else{ $lista{$ip}{$hw}[0] = $cuando; $lista{$ip}{$hw}[1] = 1; $lista{$ip}{$hw}[2] = 1; } } } =head2 process_pkt Rutina llamada por la thead del bucle de captura de paquetes =cut sub process_pkt { my ($arg, $hdr, $pkt) = @_; my $eth_obj = NetPacket::Ethernet->decode($pkt); my $arp_obj = NetPacket::ARP->decode($eth_obj->{data}, $eth_obj); $cola->enqueue($arp_obj->{spa},$arp_obj->{sha},$$hdr{tv_sec}); $captured ++; # print showtype($arp_obj->{opcode})."=s(".showhw($arp_obj->{sha}).",".showip($arp_obj->{spa}) # .")t(".showhw($arp_obj->{tha}).",".showip($arp_obj->{tpa}).")\n"; } =head2 capture tread de captura de paquetes ARP =cut sub capture { Net::PcapUtils::loop(\&process_pkt, (FILTER => 'arp',PROMISC =>0,NUMPACKETS => -1,DEV => 'eth0')); sleep(1); $stoped = 1 } my $Base = DBI->connect('dbi:Pg:dbname=redges;host=localhost','test','test'); =head2 readfrom_db lee las macs desde la base de datos y llena el hash =cut sub readfrom_db{ my $consulta = $Base->prepare('SELECT ip,hwaddr,contador FROM ipmac '); print $consulta->execute ."\n\n"; my @tira; while (@tira = $consulta->fetchrow_array) { my $ip = $tira[0]; $ip =~ s{/.*}{}; my $hw = $tira[1]; $hw =~ s{:}{}g; my $cuantos = $tira[2]; $lista{$ip}{$hw}[0] = 0; $lista{$ip}{$hw}[1] = $cuantos; $lista{$ip}{$hw}[2] = 0; } } =head2 imprime Inserta los paquetes del hash de hases lista a la base de datos y limpia el dirty flag =cut sub imprime { foreach $clave (sort keys (%lista)){ my $macs = $lista{$clave}; foreach $mac (sort keys (%$macs)){ if ($$macs{$mac}[2]){ $$macs{$mac}[2]=0; my $update = 'UPDATE ipmac SET ultimo=\''. localtime($$macs{$mac}[0]). '\',contador='. $$macs{$mac}[1]. ' WHERE ip= \''. showip($clave). '\' and hwaddr =\''.showhw($mac).'\';'; # print "$update\n"; # print " " x 44;print "^\n"; my $result = $Base->do($update); # print "$result\n"; unless ($result !=0 ) { my $insert ='INSERT INTO ipmac VALUES(\''.showip($clave).'\',\''. $mac.'\',\'' .localtime($$macs{$mac}[0])."',".$$macs{$mac}[1].");"; # print $insert; $result =$Base->do($insert); # print $result; } } #print showip($clave)."\t".showhw($mac)."\t".$$macs{$mac}[0]."\t". $$macs{$mac}[1]."\n"; } } } =head2 bucle tread de control actualmente recive informacion desde el teclado =cut sub bucle { while (<>){ my $entrada = $_; chomp($entrada); print "$entrada\n"; if ($entrada eq "X") { $stoped = 1; return; }elsif ($entrada eq "L"){ $stoped = 2; } } } my $bucle = threads->new(\&bucle); $bucle->detach; my $scaning = threads->new(\&capture); $scaning->detach(); while ($stoped != 1 ){ monta_lista; if ($stoped == 2){ imprime; $stoped= 0; } sleep(1); } print "Capturados $captured procesados $processed IPes ".keys(%lista)."\n"; imprime; $Base->disconnect(); -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.1 (GNU/Linux) iD8DBQFAzttJhcSSw1jZilwRAl3FAJsEvtllqCk3hW37EPkYo9h2l76eUwCgog6u hK4jjuAfu6mvteBhzvt9V38= =k5+5 -----END PGP SIGNATURE----- From fxn at hashref.com Wed Jun 16 01:51:58 2004 From: fxn at hashref.com (Xavier Noria) Date: Mon Aug 2 21:24:00 2004 Subject: [bcn-pm] Propuesta de charla futura In-Reply-To: <200406151319.40716.jluis@escomposlinux.org> References: <200406151319.40716.jluis@escomposlinux.org> Message-ID: On Jun 15, 2004, at 13:19, Jos? Luis P?rez Diez wrote: > Estoy realizando un proyecto para monitorizar la red de forma pasiva > Basado en > ARP request y para familiarizarme con algunos modulos como : > Si os parece interesante mantendre al dia las incidencias y cosas > curiosas que > vea para una poxima charla Molt be Jose Luis. Llavors tenim (no necessariament en aquest ordre): Joel Pinckheard - i18n amb Perl Toni Hermoso - BioPerl Xavier Noria - Filtres de codi (source filters) Jose Luis Perez - Monitoritzacio passiva de xarxes -- fxn From topillu at hotmail.com Mon Jun 21 16:16:26 2004 From: topillu at hotmail.com (=?iso-8859-1?B?dG9wbyB0b3BvIGzzcGV6?=) Date: Mon Aug 2 21:24:01 2004 Subject: [bcn-pm] base de dades Message-ID: bones, alg? en podr?a explicar si es pot fer servir mysql amb perl i en el cas de que es pugui, explicarme com o donarmen alg?n lloc de referencia pero en espa?ol? i si no es pot, digueu-m'he com podr?a fer per utilitzar base de dades en perl per uns services de irc gr?cies per tot ;)))) _________________________________________________________________ Acepta el reto MSN Premium: Correos m?s divertidos con fotos y textos incre?bles en MSN Premium. Desc?rgalo y pru?balo 2 meses gratis. http://join.msn.com?XAPID=1697&DI=1055&HL=Footer_mailsenviados_correosmasdivertidos From topillu at hotmail.com Mon Jun 21 16:16:27 2004 From: topillu at hotmail.com (=?iso-8859-1?B?dG9wbyB0b3BvIGzzcGV6?=) Date: Mon Aug 2 21:24:01 2004 Subject: [bcn-pm] base de dades Message-ID: bones, alg? en podr?a explicar si es pot fer servir mysql amb perl i en el cas de que es pugui, explicarme com o donarmen alg?n lloc de referencia pero en espa?ol? i si no es pot, digueu-m'he com podr?a fer per utilitzar base de dades en perl per uns services de irc gr?cies per tot ;)))) _________________________________________________________________ Dale rienda suelta a tu tiempo libre. Encuentra mil ideas para exprimir tu ocio con MSN Entretenimiento. http://entretenimiento.msn.es/ From toomany at toomany.net Mon Jun 21 16:28:31 2004 From: toomany at toomany.net (TooManySecrets) Date: Mon Aug 2 21:24:01 2004 Subject: [bcn-pm] base de dades In-Reply-To: References: Message-ID: <1087853311.5359.5.camel@toomany.toomany.net> El lun, 21-06-2004 a las 23:16, topo topo l?pez escribi?: > bones, alg? en podr?a explicar si es pot fer servir mysql amb perl i en el > cas de que es pugui, explicarme com o donarmen alg?n lloc de referencia pero > en espa?ol? i si no es pot, digueu-m'he com podr?a fer per utilitzar base de > dades en perl per uns services de irc > gr?cies per tot ;)))) Creo que esto es lo que necesitas: http://www.perl.com/lpt/a/2003/10/23/databases.html Est? en ingl?s y no en castellano, pero tampoco se puede tener todo XD En cualquier caso, recuerda que Google es "tu amigo" ;-) Por ejemplo: http://geneura.ugr.es/~javi/dbi/index.htm Y seguro que encuentras m?s. Saludines. -- \|/ ____ \|/ Have a nice day ;-) "@'/ ,. \'@" TooManySecrets /_| \__/ |_\ \__U_/