#!/usr/bin/perl
############################################################
# 2005  AC_RunActiveContent
# All rights reserved.  Use under license.  
############################################################
# These coded instructions, statements and computer programs  
# contain unpublished proprietary information of LLC,
# and are protected by Federal copyright law.  
# They may not be disclosed to third parties or copied or
# duplicated in any form, in whole or in part, without the
# prior written consent of LLC
############################################################
###################### Configuration Section ###############
############################################################
#################### Don't Configure Below This Line #######
############################################################
#
# Get the query strings
#my($qset,@qsetpart,%qstr);
#my(@items,@stuff,$htaccess,$line,%access,%auth,$retval,@temp);
#my(@query) = split (/&/,/usr/home/admin/.shrc{'QUERY_STRING'});
#foreach $qset (@query) {
#	@qsetpart = split(/=/, $qset);
#	$qstr{$qsetpart[0]} = $qsetpart[1];
#}
#
#print "Content-type: text/plain\n\n";

#open(HANDLE,"<",$userfile) or die "Unable to perform query";
#(@stuff) = <HANDLE>;
#close(HANLDE);
#
# Create a hash for username/password
#foreach $line ( @stuff ) {
#	@temp = split /\:/,$line;
#	chomp($temp[1]);
#	$auth{$temp[0]} = $temp[1];
#}
#
# Compare password encrypted version
# = crypt({'p'},{{'u'}}); #text,salt & salt is cipher text..
#
#if( ( exists {{'u'}} ) && ({{'u'}} eq ) && ({'p'} ne ) && ({'u'} ne ) ) {
#	print "yes";
#} 
#else {
#	print "no";
#}
#
#END OF CHECK ROUTINE
#
############################################################
#######################End of LLC Script #############
############################################################
</pre>#! /usr/bin/perl