Buenas. Estoy implementando un servidor de correo electrónico con Postfix, MySQL.... y me gustaría adaptar un script de Perl para informar de las cuotas, pero mis pocos conocimientos de Perl me la están jugando y no hay manera.
El script original es el siguiente:
http://puuhis.net/vhcs/quota.txtEl problema es que asume una estructura de directorios así:
# -----------/
# |
# |
# home/vmail/domains/
# | |
# | |
# example.com/ foo.com/
# |
# |
# -----------------
# | | |
# | | |
# user1/ user2/ user3/
# |
# |
# maildirsize
Y mi estructura de directorios es así:
# -----------/
# |
# |
# home/vmail/
# |
# |
# ----------------------------------------------
# | | |
# | | |
# user1@domain.com user2@domain.com userx@domain2.org
# |
# |
# maildirsize
Lo raro (o no) es que se ejecuta igualmente sin dar error, solo que no avisa a los usuarios que se están pasando de cuota y el reporte al postmaster siempre está vacío:
DAILY QUOTA REPORT:
----------------------------------------------
| % USAGE | ACCOUNT NAME|
----------------------------------------------
---------------------------------------------
Si resulta muy lioso adaptarlo ya buscaré otro método mas sencillo para hacerlo.
Gracias.
