#!/interwoven/iw-home/iw-perl/bin/perl

use CGI;
use JSON;

my $query = new CGI;
$sessionstring = $query->cookie('IWAUTH');
$loginid = $query->cookie('iw_user');

my %returnHash;
if ($sessionstring) {
	$returnHash{'loggedin'} = 1;
	$returnHash{'user'} = $loginid;
} else {
	$returnHash{'loggedin'} = 0;
}

print "Status: 200\n";
print "Content-type: text/javascript\n\n";
my $json = to_json(\%returnHash);
print "callback_checklogin(\'$json\')";