..:: JR ::..

Sin nada que hacer….

Ahora es un día bastante aburrido, estoy aquí en la escuela con un monton de calor y algunos pendientillos que tengo pero que ya deben de ir saliendo.

Creo que ya es justo un clima porque hace demaciado calor :@

Saludos.

Terminando de afinar lx

Bueno, ahora domingo, y después de tener algo de trabajo haciendole al pringao con las compus de algunos vecinos he terminado de poner en marcha el servicio de SMTP basado Postfix + SASL + Pam en el buen lx.

Desde el día de ayer estube leyendo un buen de manuales y mensajes de listas de correo porque fallaba al momento de autenticar, y púes seguí buscando y el día de ahora por fin le dí al clavo :d

Seguí leyendo, y leyendo, y leyendo, cuando de repente se me vinieron algunas ideas vagas a la cabeza y fueron las que puse en práctica, a continuación las detallo:

Recorde que Postfix corre en un chroot dentro de /var/spool/postfix, entonces, cuando intentaba autenticar marcaba un error de que no podia leer /etc/pam.conf, y fue entonces cuando se me ocurrio copiar el archivo /etc/pam.conf y el directorio /etc/pam.d/ dentro de la carpeta /etc del chroot de Postfix, o sea /var/spool/postfix/etc, despues de esto, intente enviar correo de nuevo, revise los logs y ahora me encontraba que marcaba un error diferente, decía que no podía ejecutar /lib/security/pam_permit.so, y entonces dije huuummmm, copiaré eso támbien a la carpeta del chroot /var/spool/postfix/lib y listo, renicié el buen Postfix y listo, a enviar correos :d.

Ahora espero que todo esto funcione bien y no vaya a tener problemas de que sea usado para enviar spam, como quiera, estare al pendiente para sancionar cualquier abuso.

Saludos (y)

Creación de cuentas para lx

Hoy domingo, en lugar de salirme a divertir o hacer otra cosa, estube haciendo un pequeño scripcito para dar de alta las cuentas de los alumnos en lx, ahora decidí usar Perl para dicho script.

Aquí el código.

#!/usr/bin/perl
#############################################
#  Name: makecounts
#  Author: Jesús Reyna (jgreyna@lx.itnl.edu.mx)
#  Description: This script make two files to create
#               acounts in the server:
#
#               cuentas.sh: Bash script to create acounts
#                           using useradd whit random password.
#               alumnos-password.txt: Information to user and
#                                     password generate
#
#               The script need a file with the control numbrer
#               and namde to alumn, this file is put whit
#               parameter to script
#############################################
# Check the path to file exist, this path is a parameter
# of the script
if ($ARGV[0] eq "")
   {
   print "\nError de sintaxis..\n Ej. makeacounts \n\n";
   exit;
   }
# Vars whith the name of the files
$file_data = $ARGV[0];
$file_script = "cuentas.sh";
$file_password = "alumnos-password.txt";
# Open the files
open(FILE_DATA,"$file_data") || die { print "  Error al abrir el archivo:  $!\n"};
open (FILE_SCRIPT,"> $file_script");
open(FILE_PASSWORD,"> $file_password");
# Print the line to call the bash script
print FILE_SCRIPT "#!/bin/bash\n\n\n";
while()
    {
     # Use chomp to delete the end line
     chomp;
     # Value of the line of the file is a var $_
     # Use split to get the control numbre and name
     # the array @user contain the values (control number and name)
     @user = split(/,/,$_);
     # The var $username contain the acount to create and
     # $name containt the name of alumn
     $username = "al".$user[0];
     $name = $user[1];
     # Get the password from command line using makepasswd
     # and chop to delete the end line
     $pass = `makepasswd --crypt-md5 --chars 5`;
     chop $pass;
     # Use split to get the password and crypt password
     @pwd = split(/   /,$pass);
     # The var $password contanin the password in text plain and
     # the var $pwdcrypt contain the crypt password
     $password = $pwd[0];
     $pwdcrypt = $pwd[1];
     # Print the line on the script file and send message to standar output
     print FILE_SCRIPT "useradd -c \"$name\" -p '$pwdcrypt' -s /bin/bash -m $username;\n";
     print FILE_SCRIPT "echo \"Cuenta $username creada.\";\n\n\n";
     # Print the line on the alumnos-password file
     print FILE_PASSWORD "$name, $username, $password\n";
     # Send message to standar output
     print "Agregando $username\n"
    }
# Make executable a script file
chmod 755, $file_script;
# Print the end message
print "\nTerminada la creación de cuentas\n\n";

Le puse los comentarios en inglés, pués para practicarlo, aunque la verdad no se si esten bien escrito, pero bueno, mas que todo los puse para mamonear

Saludos (y)

Código para colorear sintaxis

Aquí esta el código con el cual hago colorear la sintaxis de diferentes lenguajes, es una modificación del que se usa en Jaws.

Cualquiera puede usarlo libremente.

Y también se debe de poner el archivo syntax.php que es el que hace el parsing y los colores. Ya nadamas es cuestión de que agregen sus CSS al gusto.

Espero les sirva

Una nueva era….

Después de un buen rato de no postear, bueno, mas bien si posteaba pero cada rato de descomponía el servidor y no respaldaba mi base de datos

Ya de nuevo, ahora el servidor tiene Debian y esperemos que ahora sí dure, ya se cambiaran un poco las politicas de uso, así como la asignación de paswords, cuotas y unos cuantos truquillos mas, esperemos que ya no tengamos problemas, además lx esta estrenando hardware (gracias al buen zeus), tiene una bonita HP con procesador Pentium IV.

Ahorita me dirigire a realizar un trabajillo, es un programa en Visual Basic que hay que terminar, y si logro hacerlo, me caera una buena lanilla, y así ya veo mas cerca el tener mi carrito.

Bueno, suerte a todos (y)