Invisibility! 1.0 This mod enable users to be hidden, or invisible, to other users on the board. Features: - Admin sees all hidden users in users online panel. Other user sjust see the number of hidden users. - Removes "This user is currently:online/offline" part as defies mod. - Users select whether they want to be seen in their profile :) Enjoy! Omario Omario http://www.muslimteens.net Sources/Profile.pl fopen(FILE, "$memberdir/$INFO{'username'}.dat"); @memsettings=; fclose(FILE); fopen(FILE, "$memberdir/$INFO{'username'}.hm"); @hideme=; fclose(FILE); if ($memsettings[17] == 6) { $tsl6 = ' selected'; } if ($hideme[0] == 1) { $hideme[0] = 'checked'; } $txt{'228'}: $hidetxt{'1'} if($newpassemail) { # Write log fopen( FILE, ">$memberdir/$member{'username'}.hm"); print FILE "$member{'hideonuser'}\n"; fclose(FILE); unlink("$memberdir/$member{'username'}.dat"); unlink("$memberdir/$member{'username'}.hm"); unlink("$memberdir/$username.dat"); unlink("$memberdir/$username.hm"); Sources/Subs.pl print LOG "$field\|$date\n"; if ($hideme[0] == 1){ print LOG "$field\|$date\|1\n"; } else{ print LOG "$field\|$date\n"; } sub WriteLog { fopen(FILE, "$memberdir/$username.hm"); @hideme = ; fclose(FILE); Sources/BoardIndex.pl $txt{'141'}: $guests
$txt{'142'}: $users
$txt{'141'}: $guests
$txt{'142'}: $users
$hidetxt{'2'} $hidden
$users =~ s~, \n\Z~~; $hidden =~ s~, \n\Z~~; ($name, $value) = split(/\|/, $curentry); ($name, $value, $hider) = split(/\|/, $curentry); if ($hider eq 1){ if ($settings[7] eq 'Administrator'){ &LoadUser($name); $hidden .= qq~ $userprofile{$name}->[1], \n~; } else { $hidden = 0; $hidden++; } } else{ $users =~ s~, \n\Z~~; } english.lng $txt{'749'} = "The 'number of posts' box can only contain digits."; $hidetxt{'1'} = "Be Invisible?"; $hidetxt{'2'} = "Invisible Users:"; Sources/Profile.pl $online