#!/usr/bin/perl

# Add the following code to any CGI script that you wish
# to protect with UserBase.  Adjust the first line below
# if you've installed UserBase at somewhere other than
# /cgi-bin/userbase.cgi.

my $userbase_output = `export QUERY_STRING="action=chklogin" && export SCRIPT_NAME="/cgi-bin/userbase.cgi" && "$ENV{DOCUMENT_ROOT}/cgi-bin/userbase.cgi"`;
my ($is_userbase_admin,$is_userbase_member,$userbase_username,$userbase_userid) = ($userbase_output =~ /admin=(\d):::::member=(\d):::::username=(.*?):::::userid=(\d*?):::::/s);

# Now just use those variables to determine a user's
# login status, for example:

print "Content-type: text/plain\n\n";
#print "userbase_output: $userbase_output\n";
print "is_userbase_admin: $is_userbase_admin\n";
print "is_userbase_member: $is_userbase_member\n";
print "userbase_username: $userbase_username\n";
print "userbase_userid: $userbase_userid\n";