File Coverage

blib/lib/Wetware/llyrisWeb.pm

Criterion	Covered	Total	%
statement	18	34	52.9
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	24	51	47.0

package Wetware::llyrisWeb;

use 5.006;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

use CGI qw/:standard/;

# This allows declaration    use Wetware::llyrisWeb ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
#    dtk_lyris_init dtk_lyris_get_players
#   parse_cmd_line
our %EXPORT_TAGS = ( 'all' => [ qw(
    dtk_show_query_page show_answerPage
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '0.01';

use vars qw/@lyris_mailing_lists/ ;

# Preloaded methods go here.

#-----------------------
# dtk_lyris_init - used to initialize the lyris stuff and set lists to check
#   this is skanky Hiding a Require inside of the sub - but for the moment
#   it allows us to do other games
# as an TODO thing - we may want to load the security stuff here
# so that we return only those lists that the person is allowed to
# see to begin with - rather than them all -

sub dtk_lyris_init {

    require 'lyrislib.pl';
    &lyris::init;

    #
    # we really need something that based upon the user
    # to select the Right Lists - something with
    # $user = $ENV{'REMOTE_USER'};

    @lyris_mailing_lists=&lyris::ListAll;

} # end sub dtk_lyris_init

#-----------------------
# dtk_lyris_get_players - check the lists to see if a player is in it
#            return the Hash of things that were found

sub dtk_lyris_get_players {

    my ($name)  = @_;

    my %retHash = ();

    my @players = ();

    dtk_lyris_init;

    foreach my $list_name (@lyris_mailing_lists) {
        my %fields = &lyris::MemberAllNameEmail($list_name);
        while ( my ($key, $val) = each %fields ) {
            push(@players, ( $key , $val ) )
                   if ( $key =~ m/$name/i or $val =~ m/$name/i );
        }

        # now the funk
        if (@players) {
                my %tmpHash = @players;
                $retHash{ $list_name } = \%tmpHash;
                @players = ();
        }
    } # end the foreach

    %retHash ;

} # end dtk_lyris_get_players


# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__