displaying info in text file after user login ?

#$database_file = "C:\\Program Files\\AbriaSoft\\Abria SQL\\Apache\\cgi-bin\\homepage\\database.db";
################################################################################
#
# Subroutine Used To Edit A Record In The Datafile
#

sub EditRecord
{
	# Check To See If We Have A Database File To Work With
	&CheckDataFile($database_file);

	# Get The Record Key And Field Values
	my ($key, @values) = @_;
	
	# Create A Temporary Filename
	my $tempfile_path = $database_file.".TMP";
	
	# Initialize The Record Found Variable
	my $found = 0;

	# Setup The Record String With The Key As The Primary Value
	my $record_string = $key;
	
	# Add Each Of The Values To The Record String
	foreach $value (@values) { $record_string .= "|$value"; }
	
	# And Finish It Off With An End Of Line Character
	$record_string .= "\n";

	# Open The Current Database File And The Temporary One
	open(OLD_DATA, "<$database_file") or die "Error";
	open(NEW_DATA, ">$tempfile_path") or die "Error";

	# Process Each Line Of The Current Database
	while(<OLD_DATA>)
	{
		# Get The Key Of The Current Record
		my ($temp_key, @temp_values) = split(/\|/, $_);
		
		# If It Is The One We Want To Edit Then Write Out The
		# New Record Otherwise Write Out The Current One
		if($key == $temp_key) { print NEW_DATA $record_string; $found = 1; }
		else { print NEW_DATA $_; }
	}
	
	# If We Didn't Find The Record Then Add It In
	if(!$found) { print NEW_DATA $record_string; }
	
	# Close The Files
	close(OLD_DATA);
	close(NEW_DATA);

	# And Copy The Temporary One Over The Top Of The Old One
	rename($tempfile_path, $database_file);
}

#
################################################################################
#
# Subroutine Used To Delete A Record In The Datafile
#
sub DeleteRecord
{
	# Check To See If We Have A Database File To Work With
	&CheckDataFile($database_file);

	# Get The Record Key And Field Values
	my ($key, @values) = @_;

	# Create A Temporary Filename
	my $tempfile_path = $database_file.".TMP";

	# Open The Current Database File And The Temporary One
	open(OLD_DATA, "<$database_file") or die "Error";
	open(NEW_DATA, ">$tempfile_path") or die "Error";
	

	# Process Each Line Of The Current Database
	while(<OLD_DATA>)
	{
		# Get The Key Of The Current Record
		my ($temp_key, @temp_values) = split(/\|/, $_);

		# If It Is Not The One We Want To Delete Then Write It Out
		if($key != $temp_key) 
		{ 
			print NEW_DATA $_; 
		}
	}

	# Close The Files
	close(OLD_DATA);
	close(NEW_DATA);

	# And Copy The Temporary One Over The Top Of The Old One
	rename($tempfile_path, $database_file);
}
#
################################################################################
#
# Subroutine Used To Read A Record In The Datafile
#
sub ReadRecord
{
	# Check To See If We Have A Database File To Work With
	&CheckDataFile($database_file);

	# Get The Record Key To Read
	my ($key) = @_;
	
	# Initialize The Record String Variable
	my $record_string = "";
	
	# Open The Current Database File
	open(DATA, "<$database_file") or die "Error";


	# Process Each Line Of The Current Database
	while(<DATA>)
	{
		# Get Rid of Any Newline Characters

		chomp($_);


		# Get The Key Of The Current Record
		my ($temp_key, @temp_values) = split(/\|/, $_);
				
		# If It Is The One We Want Then Store The Record String And Leave
		if($key == $temp_key)
		{
			$record_string = join("\|", $temp_key,@temp_values);
			last;
		}
	}

	# Close The File
	close(DATA);
	
	# Return The Record String
	return $record_string;
}



################################################################################


################################################################################
#
# Subroutine Used To Check If A Datafile Exists And Create It If Necessary
#
sub CheckDataFile
{
	# Get The Data File Name

	chdir($scriptroot) or HandleError("Can not change to #scriptroot.",$!,"Make sure $scriptroot exits !!");
	my ($data_file) = @_;

	# Check To See If The File Exists
	if(! -e $data_file)
	{
		# And If Not Then Create It
		open(TEMP, ">$data_file") or HandleError("Can not open $data_file for writing.",$!,"Make sure enough permissions are there to create one.");;
		close(TEMP);
	}
}
#
#################################################################################
#################################################################################

# Stop The 'require' Complaining
1;