#!/usr/bin/perl

use warnings;
use strict;
use DBI;
use CGI;
use CGI::Session;
use HTML::Template;

my $cgi     = CGI->new;
my %form    = $cgi->Vars;
my $session = CGI::Session->load;

if ($session->is_empty or $session->is_expired or !$session->param('logged_in')) {
    my $login_page = 'http://emailadmin.company.com';
    print $cgi->redirect($login_page);
}

print $cgi->header;

my $template = HTML::Template->new(filename => '../../html/emadmin/search.tmpl',
                                   associate => [$session],
                                   global_vars => 1);

$template->param(title => 'Email Administration - Search Page');
$template->param(gic => 1) if $session->param('roll') eq 'admin';


if ( exists $form{'locate'} ) {
    my @search_results = search_abook($form{searchfield}, $form{searchvalue});

    if ( @search_results ) {
        $template->param(found =>  scalar @search_results);
        $template->param(results => \@search_results);
    }
    else {
        $template->param(not_found => 'Unable to locate any users matching your query');
    }
}

print $template->output;