UBB.Developers Forums UBB.threads 7 Development How Do I? Writing Featured Member To File

sub FeaturedMember {
	$CurrentTime = time();
	$vars_statistics{'FeaturedMemberDuration'} = $vars_statistics{'FeaturedMemberDuration'} * 3600;
	if ( (($CurrentTime - $vars_statistics{'FeaturedMemberTime'}) > $vars_statistics{'FeaturedMemberDuration'}) && ($vars_statistics{'FeaturedMemberDuration'} != 0) ) {
		srand;
		$vars_statistics{'FeaturedMemberTime'} = $CurrentTime;
		@the_members = &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi");
		my $x;
		my @user_profile;
		$user_profile[7] = 5;
		
		LOOP: while($user_profile[7] <= 10) {
			$x = $the_members[int (rand($StatsData{'TotalMembers'}-1) + 1)];	
			if(&FileExists(qq~$vars_config{MembersPath}/$x.cgi~)) {
				@user_profile = &OpenProfile($x);
			} else {
				next LOOP;
			}
		}
		
		if ($user_profile[15] eq '') {
			$StatsData{'FeaturedMember1'} = "$user_profile[0]";
		} else {
			$StatsData{'FeaturedMember1'} = "$user_profile[15]";
		}

	} else {
		$StatsData{'FeaturedMember2'} = "$vars_statistics{'FeaturedMember'}";
	}


	$vars_statistics{'ShColSpan2'} = $ShColSpan2 if ($ShColSpan2);
	
	$vars_statistics{'FeaturedMember'} = $StatsData{'FeaturedMember2'};
	$vars_statistics{'FeaturedMemberDuration'} = int($vars_statistics{'FeaturedMemberDuration'} / 3600);
	
	# write config to file!
	&WriteHashToFile("$vars_config{VariablesPath}/vars_statistics.cgi", "vars_statistics", %vars_statistics);
	&AppendFileAsString("$vars_config{NonCGIPath}/featured_member.txt",qq~Date: $GotTime{HyphenDate} Time: $GotTime{Time}nFeatured Member For Today Is: $StatsData{'FeaturedMember1'}, $StatsData{'FeaturedMember2'} nn~);
}