Aim in memberlist
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
if($LetterLinks ne "") {
$TableHeader .= qq(
| $LetterLinks |
);
if($LetterLinks ne "") {
$TableHeader .= qq(
| $LetterLinks |
);
| $Sort |
| $Sort |
$TableHeader .= qq(
| $txt{'35'} |
$txt{'307'} |
$txt{'96'} |
$txt{'86'} |
$txt{'87'} |
$txt{'513'} |
$txt{'21'} |
);
$TableHeader .= qq(
| $txt{'35'} |
$txt{'307'} |
$txt{'96'} |
$txt{'86'} |
$txt{'87'} |
$txt{'513'} |
AIM |
$txt{'21'} |
);
@member = ();
$Bar = "";
$ICQ = "";
$AIM = "";
$member[8] =~ s/[\n\r]//g;
if($member[8] ne "") {
$ICQ = qq~![$member[8]](http://wwp.icq.com/scripts/online.dll?icq=$member[8]&img=5)
~;
}
$member[9] =~ s/[\n\r]//g;
if($member[9] ne "") {
$AIM = qq~![$member[9]]($imagesdir/aim.gif)
~;
}
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$Bar |
);
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$AIM |
$Bar |
);
foreach $membername(@ToShow) {
@member = ();
$Bar = "";
$ICQ = "";
$AIM = "";
$member[8] =~ s/[\n\r]//g;
if ($Bar eq "") { $Bar=" "; }
if($member[8] ne "") { $ICQ = qq~~; }
$member[9] =~ s/[\n\r]//g;
if($member[9] ne "") { $AIM = qq~~; }
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$Bar |
);
}
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$AIM |
$Bar |
);
}
for ($i=0;$i<=$TopListNum;$i++) {
@member = ();
$Bar = "";
$ICQ = "";
$AIM = "";
$Bar = qq~
~;
}
$member[8] =~ s/[\n\r]//g;
if($member[8] ne "") { $ICQ = qq~~; }
if ($Bar eq "") { $Bar=" "; }
$Bar = qq~~;
}
$member[8] =~ s/[\n\r]//g;
if($member[8] ne "") { $ICQ = qq~~; }
$member[9] =~ s/[\n\r]//g;
if($member[9] ne "") { $AIM = qq~~; }
if ($Bar eq "") { $Bar=" "; }
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$Bar |
);
}
}
print qq~$TableFooter~;
print qq(
| $member[1] |
);
if ($member[19] eq "checked" && $settings[7] ne "Administrator" && $allow_hide_email eq 1) { print qq(
$txt{'722'} |
); } else { print qq(
$member[2] |
); }
print qq(
$member[3] |
$member[6] |
$member[7] |
$ICQ |
$AIM |
$Bar |
);
}
}
print qq~$TableFooter~;