#!/usr/bin/perl
# ==================================================================
# Gossamer Community
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   CVS Info :                     
#   NAme     : birthdays.cgi
# 
# Copyright (c) 2004 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

    use strict;
    use lib '';
    use Community qw/comm_init comm_config comm_fatal $DB $IN $CFG/;
    use GT::CGI;
    use GT::Date;
    use GT::SQL::Condition;
    use CGI::Carp qw(fatalsToBrowser); 
    use Carp;
    require Community::Web::User;

    local $SIG{__DIE__} = \&fatal;

    Community::init();

    print $IN->header();
 
	username_ajax_check();

sub username_ajax_check {

   my $username = $IN->param('username');

   print $IN->header;
   if (!$username) {
#     print qq|<span style="color:#f00; font-size: 10pt;">Username ($username) Unavailable</span>|;
     print qq|<span style="color:#f00; font-size: 10pt;">Please select a username!</span>|;
	 exit;
   }


	if ($DB->table('comm_users')->count( { comm_username => $username } ) > 0) {
	    print qq|<span style="color:#f00; font-size: 10pt;">Username Unavailable</span>|;
		exit;
    } 

   print qq|<span style="color:green; font-size: 10pt;">Username ($username) Available</span>|;
}