#!/usr/bin/perl
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI->dispatch_to("emailfind")->handle;

package emailfind;
use HTTP::Cookies;
sub findingit {
    warn "****** findingit(".join(',',map{"'$_'"}@_).")\n";
    my $function   = shift;
    my $cookiejar  = shift;
    die "No cookies" unless $cookiejar;
    my $cookie = $cookiejar->as_string();
    die "no cookie" if (!$cookie || $cookie =~ /WALOGIN="RESET/);  #exit function if cookie empty or is RESET

    my ($e) = $cookie =~ /WALOGIN="([^"]+)"/;
    return $e; 
}