Aim in memberlist 2 Version 2 --------------- There is an admin box to chose what the default message is. YIM is added to a category on its own, and clicking the button gives you a window to talk to the person. MSN was added to a category of its own, and clicking the button gives you a window to talk to the person. Admin options allow you to select which ones get displayed. Thanks to omario for some debugging ** You need to turn on from admin options (near bottom) ** ** Must uninstal aim in memberlist version 1 ** Version 1 --------------- This mod adds an aim picture and a link to open a window saying: "Hi, are you there" Demon Slayer http://www.the-chronicles.com/cgi-bin/YaBB/YaBB.cgi Sources/Memberlist.pl &header; print qq(
$txt{'308'} $numbegin $txt{'311'} $numend ($txt{'309'} $memcount $txt{'310'})
); &header; print qq(
$txt{'308'} $numbegin $txt{'311'} $numend ($txt{'309'} $memcount $txt{'310'})
); if($LetterLinks ne "") { $TableHeader .= qq( $LetterLinks ); } if($LetterLinks ne "") { if($aimlist == '1' && $yimlist =='0' && $msnlist =='0' || $yimlist == '1' && $aimlist =='0' && $msnlist =='0' || $msnlist == '1' && $aimlist =='0' && $yimlist =='0') { $TableHeader .= qq( $LetterLinks ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0' || $aimlist == '1' && $msnlist == '1' && $yimlist =='0' || $yimlist == '1' && $msnlist == '1' && $aimlist =='0') { $TableHeader .= qq( $LetterLinks ); } if($aimlist == '1' && $yimlist == '1' && $msnlist == '1') { $TableHeader .= qq( $LetterLinks ); } if($aimlist == '0' && $yimlist == '0' && $msnlist == '0') { $TableHeader .= qq( $LetterLinks ); } } $TableHeader .= qq( ); if($aimlist == '1' && $yimlist =='0' && $msnlist =='0') { $TableHeader .= qq(
$Sort
); } if($yimlist == '1' && $aimlist =='0' && $msnlist =='0') { $TableHeader .= qq(
$Sort
); } if($msnlist == '1' && $aimlist =='0' && $yimlist =='0') { $TableHeader .= qq(
$Sort
); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { $TableHeader .= qq(
$Sort
); } if($aimlist == '1' && $msnlist == '1' && $yimlist =='0') { $TableHeader .= qq(
$Sort
); } if($yimlist == '1' && $msnlist == '1' && $aimlist =='0') { $TableHeader .= qq(
$Sort
); } if($aimlist == '1' && $yimlist == '1' && $msnlist == '1') { $TableHeader .= qq(
$Sort
); } if($yimlist == '0' && $msnlist == '0' && $aimlist == '0') { $TableHeader .= qq(
$Sort
); } $TableHeader .= qq( ); if($aimlist == '1' && $yimlist =='0' && $msnlist =='0') { $TableHeader .= qq( ); } if($yimlist == '1' && $yimlist =='0' && $msnlist =='0') { $TableHeader .= qq( ); } if($msnlist == '1' && $aimlist =='0' && $yimlist =='0') { $TableHeader .= qq( ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { $TableHeader .= qq( ); } if($aimlist == '1' && $msnlist == '1' && $yimlist =='0') { $TableHeader .= qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist =='0') { $TableHeader .= qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist == '1') { $TableHeader .= qq( ); } if($yimlist == '0' && $msnlist == '0' && $aimlist == '0') { $TableHeader .= qq( ); } @member = (); $Bar = ""; $ICQ = ""; fopen(MEMBERFILEREAD,"$memberdir/$name.dat"); @member = ; fclose(MEMBERFILEREAD); chomp @member; &FormatUserName($name); @member = (); @msnsettings = (); $Bar = ""; $ICQ = ""; $AIM = ""; $YIM = ""; $MSN = ""; fopen(MEMBERFILEREAD,"$memberdir/$name.dat"); @member = ; fclose(MEMBERFILEREAD); chomp @member; &FormatUserName($name); fopen(OM,"$memberdir/$name.om"); @msnsettings = ; fclose(OM); chomp @msnsettings; $member[8] =~ s/[\n\r]//g; if($member[8] ne "") { $ICQ = qq~$member[8]~; } $member[9] =~ s/[\n\r]//g; if($member[9] ne "") { $AIM = qq~$member[9]~; } $member[10] =~ s/[\n\r]//g; if($member[10] ne "") { $YIM = qq~$member[10]~; } $msnsettings[0] =~ s/[\n\r]//g; if($msnsettings[0] ne "") { $MSN = qq~Chat to $msnsettings[0] ~; } if($tempname) { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } } if($tempname) { if($aimlist == '1' && $yimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $yimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($msnlist == '1' && $aimlist =='0' && $yimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist == '1') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '0' && $msnlist == '0' && $aimlist == '0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } } } foreach $membername(@ToShow) { @member = (); $Bar = ""; $ICQ = ""; fopen(MEMBERFILEREAD,"$memberdir/$membername.dat"); @member = ; fclose(MEMBERFILEREAD); chomp @member; &FormatUserName($membername); foreach $membername(@ToShow) { @msnsettings = (); @member = (); $Bar = ""; $ICQ = ""; $AIM = ""; $YIM = ""; $MSN = ""; fopen(MEMBERFILEREAD,"$memberdir/$membername.dat"); @member = ; fclose(MEMBERFILEREAD); chomp @member; &FormatUserName($membername); fopen(OM,"$memberdir/$membername.om"); @msnsettings = ; fclose(OM); chomp @msnsettings; $member[8] =~ s/[\n\r]//g; if ($Bar eq "") { $Bar=" "; } if($member[8] ne "") { $ICQ = qq~$member[8]~; } if($member[9] ne "") { $AIM = qq~$member[9]~; } if($member[10] ne "") { $YIM = qq~$member[10]~; } if($msnsettings[0] ne "") { $MSN = qq~Chat to $msnsettings[0] ~; } print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $yimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $aimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($msnlist == '1' && $aimlist =='0' && $yimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $msnlist == '1' && $yimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist == '1') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '0' && $msnlist == '0' && $aimlist == '0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } } for ($i=0;$i<=$TopListNum;$i++) { @member = (); $Bar = ""; $ICQ = ""; $membername = @toplist[$i]; fopen(MEMBERFILEREAD,"$memberdir/$membername.dat"); @member = ; fclose(MEMBERFILEREAD); &FormatUserName($membername); chomp @member; for ($i=0;$i<=$TopListNum;$i++) { @member = (); @msnsettings = (); $Bar = ""; $ICQ = ""; $AIM = ""; $YIM = ""; $MSN = ""; $membername = @toplist[$i]; fopen(MEMBERFILEREAD,"$memberdir/$membername.dat"); @member = ; fclose(MEMBERFILEREAD); &FormatUserName($membername); chomp @member; fopen(OM,"$memberdir/$membername.om"); @msnsettings = ; fclose(OM); chomp @msnsettings; $Bar = qq~~; } $member[8] =~ s/[\n\r]//g; if($member[8] ne "") { $ICQ = qq~$member[8]~; } if ($Bar eq "") { $Bar=" "; } $Bar = qq~~; } $member[8] =~ s/[\n\r]//g; if($member[8] ne "") { $ICQ = qq~$member[8]~; } $member[9] =~ s/[\n\r]//g; if($member[9] ne "") { $AIM = qq~$member[9]~; } $member[10] =~ s/[\n\r]//g; if($member[10] ne "") { $YIM = qq~$member[10]~; } $msnsettings[0] =~ s/[\n\r]//g; if($msnsettings[0] ne "") { $MSN = qq~Chat to $msnsettings[0] ~; } if ($Bar eq "") { $Bar=" "; } print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } } print qq~$TableFooter~; &footer; exit; } 1; if($aimlist == '1' && $yimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $aimlist =='0' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($msnlist == '1' && $aimlist =='0' && $yimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $yimlist == '1' && $msnlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($aimlist == '1' && $msnlist == '1' && $yimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist =='0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '1' && $msnlist == '1' && $aimlist == '1') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } if($yimlist == '0' && $msnlist == '0' && $aimlist == '0') { print qq( ); if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq( ); } else { print qq( ); } print qq( ); } } } print qq~$TableFooter~; &footer; exit; } 1; Sources/Admin.pl if ($enable_ubbc) { $ubbcchecked = ' checked'; } if ($aimlist) { $aimlistchecked = ' checked'; } if ($yimlist) { $yimlistchecked = ' checked'; } if ($msnlist) { $msnlistchecked = ' checked'; } # Set as 0 or 1 if box was checked or not push(@onoff, "aimlist"); push(@onoff, "yimlist"); push(@onoff, "msnlist"); # If empty fields are submitted, set them to default-values to save yabb from crashing $aimlist = $FORM{'aimlist'} || 0; $yimlist = $FORM{'yimlist'} || 0; $msnlist = $FORM{'msnlist'} || 0; # If empty fields are submitted, set them to default-values to save yabb from crashing $aimtxt = $FORM{'aimtxt'} || 'Hi,+are+you+there\?'; $aimtxt =~ s/\"/\'/g; \$enable_ubbc = $enable_ubbc; # Set to 1 if you want to enable UBBC (Uniform Bulletin Board Code) \$aimtxt = qq~$aimtxt~; # Text to display when you click AIM in member list. \$aimlist = $aimlist; # Set to 1 to display AIM in memberlist. \$yimlist = $yimlist; # Set to 1 to display YIM in memberlist. \$msnlist = $msnlist; # Set to 1 to display MSN in memberlist. english.lng keys(%img) = 30; $aimtxt{'01'} = "Do you want to show AIM on the memberlist page."; $aimtxt{'02'} = "Insert the text you want to be displayed when you click a persons AIM in the member list. Use '+' to represent spaces (minus the ')."; $yimtxt{'01'} = "Do you want to show YIM on the memberlist page."; $msntxt{'01'} = "Do you want to show MSN on the memberlist page.";
$Sort
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} AIM $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} YIM $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} MSN $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} AIM YIM $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} AIM MSN $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} YIM MSN $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} AIM YIM MSN $txt{'21'}
$txt{'35'} $txt{'307'} $txt{'96'} $txt{'86'} $txt{'87'} $txt{'513'} $txt{'21'}
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $AIM  $YIM  $MSN $Bar
$member[1]$txt{'722'}$member[2]$member[3]  $member[6]  $member[7]  $ICQ  $Bar
$txt{'392'}
$aimtxt{'02'}
$aimtxt{'01'}
$yimtxt{'01'}
$msntxt{'01'}