my @mods = &OpenFileAsArray("$vars_config{CGIPath}/vars_mods.cgi");
my $count = 1;
foreach (@mods) {
@unums = $_ =~ /d{8}/g;
foreach $num (@unums) {
$mod_f_count{$num} = $mod_f_count{$num} + 1;
$mod_which_f{$num} = "$count||$mod_which_f{$num}";
$mod{$num} = [ $mod_f_count{$num}, $mod_which_f{$num} ];
}
$count++;
}
foreach $key (keys %mod) {
my @user_profile = &OpenProfile($key);
foreach $key (keys %mod) {
&OpenProfile($key);
}
foreach $key ( keys %mod ) {
$Number_of_forums_modded = $mod{$key}[0];
$Which_forums_modded = $mod{$key}[1];
$Usernumber = $key;
}
chop ($user_profile[15]);
chop ($user_profile[0]);
chop ($user_profile[7]);
chop ($user_profile[10]);
$DateReg .= "$user_profile[10]
";
if ($user_profile[7] eq '') {
$Posts .= "0
";
} else {
$Posts .= "$user_profile[7]
";
}
if ($user_profile[15]) {
$Name .= "<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=get_profile;u=$key">$user_profile[15]</a>
";
} else {
$Name .= "<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=get_profile;u=$key">$user_profile[0]</a>
";
}