#!/usr/bin/perl
#
# $Id: checkid.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
#
# Source File: login.pl
# Get config
require 'sitecfg.pl';
require 'testlib.pl';
use logger;
&app_initialize;
print "Content-Type: text/html\n\n";
if (&get_session($FORM{'tid'})) {
if ($FORM{'lang'} ne $SESSION{'lang'}) { &set_session($FORM{'tid'},'lang',$FORM{'lang'});}
&get_client_configuration();
$SESSION{'lang'} = ($SYSTEM{'DEFAULTLANG'} eq '') ? "enu" : $SYSTEM{'DEFAULTLANG'};
$SESSION{'lang'} = ($FORM{'lang'} eq '') ? $SESSION{'lang'} : $FORM{'lang'};
&LoadLanguage($SESSION{'lang'});
if ((&get_candidate_profile( $SESSION{'clid'}, $FORM{'cndid'}))
|| (&check_admin_profiles($FORM{'cndid'}))) {
print "\n";
print "\n";
print "\n";
print "Login ID $CANDIDATE{'cndid'} is NOT available.
\n";
print "\n";
print "\n";
print "\n";
} else {
print "\n";
print "\n";
print "\n";
print "Login ID $CANDIDATE{'cndid'} is available.
\n";
print "\n";
print "\n";
print "\n";
}
}