DocumentRoot "/usr/local/www/apache22/data"
    ServerName misitioweb.epico.net 
 
         Options Indexes +FollowSymLinks -Multiviews
          AllowOverride All
         Order allow,deny
         Allow from all
         RedirectMatch ^/$ "http://misitioweb.epico.net/personal/"

AllowOverride All

AuthName "Mi Info Personal - Acceso exclusivo"
     AuthType Basic
     AuthUserFile /usr/home/jhon/documents/.htpasswd
     AuthGroupFile /dev/null
     require user jhon

htpasswd -c .htpasswd jhon

AuthGroupFile AuthUserFile /usr/home/jhon/documents/.htgroup
require group member-users

 require user jhon

#!/usr/bin/perl -w
# por WJPP, 30/4/2009
#
#  ultima edicion:
#  Thu Nov 12 16:01:40 VET 2009
#
#  CHANGELOGS
#
#  26/5/2009 - activar la solicitud de cambio
#               de contraseña.
#
#
# Objetivo: Asignar una nueva contraseña al usuario de
#               Zimbra en base a la fecha y hora al
#               momento que se procesa el cambio.
#
# version
my $vers = "1.3";
 
use strict;
use Term::ANSIColor;
use Digest::MD5 qw(md5 md5_hex md5_base64);
sub gdfs { # get date from system
# recibir fecha del sistema
  my ($sec,$min,$hour,$mday,$mon,$year,
       $wday,$yday,$isdst) = localtime time;
       return sprintf("%02d-%02d-%4d_%02d.%02d.%02d",
       $mday,$mon+1,$year+1900,$hour,$min,$sec);
}# endof gdfs 
 
my $fechahoy = &gdfs();
 
print color("green"),"\n\t Asignar nueva contraseña al usuario Zimbra - Vers. $vers \n",color("reset");
print "\t-----------------------------------------------------------\n";
 
if ($#ARGV != 0) { # valida entrada de argumento
    print color("magenta"),"\n\tUso: $0  \n",color("reset");
    print color("yellow"),"Debe indicar  email del usuario\n", color("reset");
    exit;
}
   my $emailx = $ARGV[0]; # email del usuario
   # tomo solo 8 caracteres del MD5 de la fecha
   my $md5pass = substr(md5_hex($fechahoy),0,8);
   print "\tEmail ......................: ";
   print color("bold blue"),$emailx,color("reset");print "\n";
   print "\tnueva contraseña asignada ..: ";
   print color("white on_blue"),$md5pass,color("reset");print "\n\n\n";
   ## actualiza la contraseña en el LDAP del Zimbra
   if ( system("su - zimbra -c \'zmprov sp $emailx $md5pass \' ") !=0) {
      die "No se pude actualizar la contraseña en el Zimbra\n" ; }
      else { # activa la solicitud de cambio de contraseña para el proximo inicio de sesion
         system("su - zimbra -c \'zmprov ma $emailx zimbraPasswordMustChange TRUE\' ");
         print color("white on_red"),"\t Notifique al usuario acerca de su nueva contraseña ",color("reset");print
"\n";
   } # endif system
die "Fin..\n";

sudo ./assignpass.pl prueba01@winner.sytes.net

#!/usr/bin/perl
#
# por Willians Patiño, 5.11.2009, 2:56pm
# ultima edicion:
# jue nov  5 19:07:11 VET 2009
#
#  Postfix gestiona los correos con ayuda de una serie de colas
#  y asigna un ID a cada uno desde el momento que se envian o
#  se reciben. Durante este proceso puede darse situaciones, que
#  causen que los correos sean pasado a una cola de diferidos.
#  (deferred). En este caso, dichos correos ocupan un espacio
#  de disco  asi como recursos de sistema que manejan los intervalos
#  de tiempo para los proximos intentos de entrega a los buzones.
#
#  En este sentido, este script se convierte en una herramienta
#  adicional al monitoreo, a fin de eliminar todos estos correos
#  y reducir la carga de procesamiento de la plataforma de correos
#  Zimbra.-
 
#
# Objeto: Eliminar los corres diferidos por Zimbra, en base a un ID
# segun el dominio spammer.-
#
#
# Uso: deldefer.pl
#
# requerimiento: ser miembro del grupo zimbra para ejecucion
 
use strict;
use Term::ANSIColor;   ## colorear salida en pantalla
use File::Find;
use File::Basename;
 
# valida  argumentos
if ($#ARGV != 0) {
    print "\n\tUso: $0  \n";
    exit;
}
 
my $dominio = $ARGV[0];     # dominio a buscar
# directorio de diferidos en zimbra
my $directorio = "/opt/zimbra/data/postfix/spool/deferred";
# comando postfix en zimbra
my $POSTSUPER = "/opt/zimbra/postfix/sbin/postsuper";
 
print "\t Eliminar diferidos por $dominio\n";
# deferred
chdir($directorio) or die "no se pudo cambiar al directorio";
&rrod($directorio,$dominio);
 
die "fin..\n";
## end of program
 
sub rrod { #recursive reading of directory
   # Lectura recursiva de directorio
   my ($xdir, $xdom) = @_;
   print "buscar en $xdir\n";
   my @dir = @ARGV=qw(.);
   find(\&buscadir, @dir);
 
   sub buscadir {
      my $fpath=$File::Find::name;
      my $fname=basename($fpath);
      #print "Directorio: $fpath\n";
      #print "Archivo: $fname\n";
      my $foundcounter = 0;
      &fdif($fname, $xdom);
   }
} # end of rrod
 
sub fdif { # find domain inside file
   # buscar dominio en archivo
   my ($ffile, $fdomain) = @_;
   open (FILENAME, $ffile) or die "No puede abrir $ffile : $!";
 
  while (my $bufferfile = ) {
      #print "leyendo $bufferfile\n";
      if ($bufferfile =~/$fdomain/) { ## si halla dominio en archivo
      #print "$ffile\n";
      &ddebi($ffile);
      }
   }
   close(FILENAME);
} # end of fdif
 
sub ddebi { # delete deferred email by ID
   # eliminar correos diferidos segun ID
   my ($queuemailid) = @_;
   #print "\tEliminado $queuemailid\n";
   if ( system("$POSTSUPER -d $queuemailid -p") != 0 ) {
      print "\tNo se pude eliminar $queuemailid error de $POSTSUPER\n ";
   }
   else {
   #print "\tEliminado $queuemailid\n";
   }
} # end of ddebi

sudo ./deldefer.pl t02.com.ch