Categoría: Notas rápidas

  • update: manda un email con adjuntos usando perl

    ### Adjust sender, recipient and your SMTP mailhost my $from_address = ‘robot@senin.org’; my $to_address = ‘jorge@senin.com’; my $mail_host = ‘mail.senin.org»; my $your_file_txt = ‘for-mail-robot.txt’; ### Adjust subject and body message my $subject = ‘[notificacion] enviando un email con perl’; my $message_body = «»; open ( F , $your_file_txt); @message_body = <F> ; close ( F…

  • Downgrade de Debian

    Cómo pasar de unstable a testing, antes era un problema. Ahora es cuestión de tiempo y ancho de banda. Cuando lo quiero todo y tenerlo a la última siempre me la juego y uso unestable, y siempre acabo volviendo a testing. Cada vez aprendo más que más vale 10 minutos, 1 hora un día de…

  • Qemu: emulando a colores I

    Como dicen por ahí la pregunta es: ¿por qué no deberías instarte gnu/linux?. La respuesta es muy sencilla: no se ;). Qemu es la caña del software libre, un emulador de sistemas operativos, hacía tiempo que quería probar botch y quemu, y la verdad es que viendo las comparativas ni me paro a instalar botch…

  • Instalar java en debian

    Debian debido a su estricto compromiso social se compromete a mantener una distribución exclusivamente libre, así que hay paquetes como el de java que debido a su licencia no forman parte del contenido oficial, aún así son necesarios para la vida cotidiana. He encontrado en esta web http://martinfowler.com/bliki/DebianJava.html esta manera de instalar java de una…

  • [emerg] (28)No space left on device: Couldn’t create accept lock «

    Un error que aparece algunas veces en los apache 2.x aún no sé por que es pero es un problema de semaforos. solución rápida: [shell] for ipsemId in $(ipcs -s | grep apache | cut -f 2 -d ‘ ‘); do ipcrm $ipsemId; done[/shell]

  • Exportar tablas de mysql a csv con perl

    #!/usr/bin/perl # # Obtiene estadisticas diarias sobre ociojoven.com y ojgames.com # use DBI; &ConnectDatabase; $path=»/tmp/product.csv»; @tablas=( «eZTrade_Category», «eZTrade_Quantity»); foreach $tabla (@tablas){ $path=»/tmp/$tabla.csv»; $sql= «SELECT * INTO OUTFILE ‘$path’ FIELDS TERMINATED BY ‘;’ ENCLOSED BY ‘\»‘ LINES TERMINATED BY ‘\r\n’ FROM $tabla»; $foo = &QueryOneFetch ($sql ); } &DisconnectDatabase; #Nos conecta a la base de datos…

  • [warn] (32)Broken pipe: write pipe_of_death

    Este error en Apache : [warn] (32)Broken pipe: write pipe_of_death Es por culpa de eaccelerator-0.9.4-rc1 y la version de cvs a fecha 4 de enero de 2006 Ticket del bug http://issues.apache.org/bugzilla/show_bug.cgi?id=37903

  • Chequeando una lista de emails con perl

    #!/usr/bin/perl # # apt-get install libmail-verify-perl # /usr/share/perl5/Mail/Verify.pm # valores de retorno # 0 The email address appears to be valid. # 1 No email address was supplied. # 2 There is a syntaxical error in the email address. # 3 There are no DNS entries for the host in question (no MX records or…

  • El mejor chiste rubias

    El mejor chiste de rubias del mundo en el blog de mi amigo PeterPunk !!! esto no se cuenta con palabas XDDDDDD http://elblogdepeterpunk.blogspot.com/2005/12/offtopic-el-mejor-chiste.html

  • el proxy-cache de telefonica apesta

    Razones por las que el proxy-cache de telefonica apesta: 1.- Estoy modificando sitios estaticos en html y los cambios no se reflejan aunque el sitio esté caido 2.- ya no se puede usar dnsstuf.com una gran web con herramientas para comprobar dns y servicios de email. La web se visita con la ip de telefonica…