NAME

Mail::vpopmail - Utility to get information about vpopmail managed email addresses

SYNOPSIS

use Mail::vpopmail;

my $vchkpw = Mail::vpopmail->new();

my $vchkpw = Mail::vpopmail->new(cache => 1, debug => 0, auth_module => 'cdb', dsn => 'DBI:mysql:host=localhost;database=vpopmail', dbun => 'vpopmailuser', dbpw => 'vpoppasswd', );

DESCRIPTION

Mail::vpopmail provides serveral functions for interacting with vpopmail. This module can be useful especially when hashing is turned on, as you can not predict the location of the domain's nor the mailbox's directories.

CONSTRUCTOR

new( [OPTIONS] );

OPTIONS are passed in a hash like fashion, using key and value pairs. Possible options are:

cache - Cache results of queries (0=Off, 1=On). Default=On.

debug - Print debugging info to STDERR (0=Off, 1=On). Default=On.

auth_module - cdb or sql. Default=cdb, but Default=sql if ~vpopmail/etc/vpopmail.mysql exists.

dsn - SQL DSN. Default='DBI:mysql:host=localhost;database=vpopmail' Autogenerated if ~vpopmail/etc/vpopmail.mysql exists.

dbun - SQL Username. Default=vpopmailuser. Autogenerated if ~vpopmail/etc/vpopmail.mysql exists.

dbpw - SQL Password. Default=vpoppasswd. Autogenerated if ~vpopmail/etc/vpopmail.mysql exists.

userinfo( email => $email, field => <fields> );

email - the email address to get properties on

field - the field(s) to be returned (may be comma separated):

        dir - return this domain's vpopmail domains directory

        crypt - return the encrypted password

        uid - return the uid

        gid - return the gid

        comment - return the comment, if available

        maildir - return this user's maildir
        
        quota - return the quota (you have to parse this yourself)

        plain - return the plain text password, if available

domaininfo( domain => $domain, field => <field> );

domain - the domain to get properties on

field - the field to be returned:

   dir - return the vpopmail domain directory

   mailboxes - return an array reference containing all the mailboxes

   all - return an array ref of hash refs of all data for the domain
        

alldomains( field => <field> );

field - the field to be returned:

   name - returns an array reference of the names of all domains

   dir - returns an array refrence of all domain directories

   map - returns a hash reference of domain name -> domain directory

EXAMPLES

        use strict;
        use Mail::vpopmail;

        my $vchkpw = Mail::vpopmail->new(cache=>1, debug=>0);


        # find all domains
        my $domains_aref = $vchkpw->alldomains(field => 'name');
        foreach my $domain (@${domains_aref}){
                print "$domain\n";
        }

        # find all domains directories
        my $dirlist_aref = $vchkpw->alldomains(field => 'dir');
        foreach my $dir (@${dirlist_aref}){
                print "$dir\n";
        }

        # find all domains and their directories
        my $alllist_aref = $vchkpw->alldomains(field => 'map');
        foreach my $href (@${alllist_aref}){
                print "$href->{name} => $href->{dir}\n";
        }

        my $domain = shift;
        unless(defined($domain)){
                print "enter domain: ";
                chop($domain=<STDIN>);
        }


        # find all mailboxes in a given domain
        my $mailboxes_aref = $vchkpw->domaininfo(domain => $domain, field => 'mailboxes');
        foreach my $mailbox (@{$mailboxes_aref}){
                print "found mailbox: $mailbox for domain: $domain\n";
        }

        # find all properties for a given domain
        my $alldata_aref = $vchkpw->domaininfo(domain => $domain, field => 'all');
        foreach my $href (@{$alldata_aref}){
                print "found data for $domain:\n";
                while(my($key,$value) = each %{$href}){
                        print " found $key => $value\n";
                }
        }

        # individual user stuff
        my $email = shift;
        unless(defined($email)){
                print "email address: ";
                chop($email=<STDIN>);
        }

        my $dir = $vchkpw->userinfo(email => $email, field => 'dir');
        print "dir: $dir\n";
        my ($crypt,$uid,$gid) = $vchkpw->userinfo(email => $email, field => 'crypt,uid,gid');
        print "crypt/uid/gid: $crypt/$uid/$gid\n";
        my $comment = $vchkpw->userinfo(email => $email, field => 'comment');
        print "comment: $comment\n";
        my $maildir = $vchkpw->userinfo(email => $email, field => 'maildir');
        print "maildir: $maildir\n";
        my $quota = $vchkpw->userinfo(email => $email, field => 'quota');
        print "quota: $quota\n";
        my $plain = $vchkpw->userinfo(email => $email, field => 'plain');
        print "plain: $plain\n";

CAVEATS

This version is the first that supports SQL auth modules. It is not tested and should be used with caution. Feedback needed.

AUTHOR

Jeremy Kister - http://jeremy.kister.net/