print LOGFILE "$SQL_login";
	
	# $cursor_login = $dbh_login->prepare($SQL_login) 
	# || die "Couldn't prepare statement: " . $dbh_login->errstr;
	print LOGFILE " made it $cursor_login";

	#$cursor_login->execute;

	#@fields_login = $cursor_login->fetchrow;

    	$validid_login = $fields_login[0];
	print LOGFILE " element is $validid_login";
	$firsttime_login = $fields_login[1];
	print LOGFILE " element is $firsttime_login";

	#$cursor_login->finish;
	#Close the database
	$dbh_login->disconnect;

##</code><code>##

#!c:/perl/bin -w
BEGIN { push (@INC, "c:/progra~1/unwire~1/UPSDKH32/examples/apputils");	}

open (LOGFILE, ">/logs/reclaim.log");

# Load required application utilities
require 'HDMLUtils.pl';

#use vars qw{$SPLASHSCREEN_login};

$SPLASHSCREEN_login =
'<HDML VERSION=3.0 MARKABLE=TRUE TTL="0">
	<ACTION TYPE=ACCEPT LABEL=OK TASK=GO DEST="?NEXT=LOGIN">
	<DISPLAY TITLE="Mobile Media Portal">
		<CENTER>%s %s %s
	</DISPLAY>
</HDML>';

#Call the main function to begin execution
&Main;

############################################################################
#
# Subroutine Name:  Main
#
# Purpose: Parse the CGI variables into the cgiVars hash and cotrols 
# component navigation based on $nextState
#
############################################################################
sub Main
{
$subid_login=$ENV{'HTTP_X_UP_SUBNO'};

 my ($dbh_login, $SQL_login, $cursor_login, @fields_login, $validid_login, $firsttime_login);

	# This Tells PERL to use the Database Interface
	use DBI;

    # Establish DataBase handle
	$dbh_login = DBI->connect("dbi:Oracle:tyson", "scott","tiger", 
	{PrintError => 0}) || die $DBI::errstr;
	
	# $dbh_login = DBI->connect("dbi:Oracle:kcmmp", "widl","widl", 
	# {PrintError => 0})|| die $DBI::errstr;
	
	# Setup STATIC query string
	$SQL_login = "select SUBSCRIBERID, FIRSTTIME
	from CTIA_SUBSCRIBERID
	where SUBSCRIBERID = '$subid_login'";

	print LOGFILE "$SQL_login";
	
	# $cursor_login = $dbh_login->prepare($SQL_login) 
	# || die "Couldn't prepare statement: " . $dbh_login->errstr;
	print LOGFILE " made it $cursor_login";

	#$cursor_login->execute;

	#@fields_login = $cursor_login->fetchrow;

    	$validid_login = $fields_login[0];
	print LOGFILE " element is $validid_login";
	$firsttime_login = $fields_login[1];
	print LOGFILE " element is $firsttime_login";

	#$cursor_login->finish;
	#Close the database
	$dbh_login->disconnect;

&AppUtils::OutputDeck(sprintf($SPLASHSCREEN_login,
				"Made it here", $validid_login));
		#$subid_login, $firsttime_login		
	


}