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);
$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 = qq~<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=get_profile;u=$key">$user_profile[15]</a>~;
} else {
$Name = qq~<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=get_profile;u=$key">$user_profile[0]</a>~;
}
$mod_info_row .= qq~<tr><td>$Name</td><td>$Posts</td><td>$mod{$key}[1]</td><td>$mod{$key}[0]</td></tr>~;
}