#!/usr/bin/perl -w
use strict;
use CGI;
my $query    = CGI::new();
my $username = $query->param('username');
my $password = $query->param('password');
my $authResult = Authen::Smb::authen($username,
                                     $password,
                                     'pdc',
			             'bdc',
                                     'domain');
return(1) if !$authResult;
return(0);