You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
1.1 KiB
41 lines
1.1 KiB
#!/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 "<HTML>\n";
|
|
print "<BODY>\n";
|
|
print "<CENTER><FONT COLOR=\"#FF0000\">\n";
|
|
print "Login ID $CANDIDATE{'cndid'} is NOT available.<BR>\n";
|
|
print "</CENTER>\n";
|
|
print "</BODY>\n";
|
|
print "</HTML>\n";
|
|
} else {
|
|
print "<HTML>\n";
|
|
print "<BODY>\n";
|
|
print "<CENTER>\n";
|
|
print "Login ID $CANDIDATE{'cndid'} is available.<BR>\n";
|
|
print "</FONT></CENTER>\n";
|
|
print "</BODY>\n";
|
|
print "</HTML>\n";
|
|
}
|
|
}
|
|
|