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);
$Number_of_forums_modded = qq~$mod{$key}[0]
~;
$Which_forums_modded .= qq~$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 .= 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>
~;
}
}
print qq~<table><tr><td>$Name</td><td>$Posts</td><td>$Which_forums_modded</td><td>$Number_of_forums_modded</td></tr>< /table>~;