Sources/Profile.pl
require "$sourcedir/Decoder.pl";
require "$templatesdir/$useprofile/Profile.template";
sub ViewProfile {
sub profileTemplate {
if ($view eq 'profile') {
if (!$yyUDLoaded{$username} && -e ("$memberdir/$username.vars")) {
&LoadUserDisplay($username);
}
if (${$uid.$username}{'regtime'}) {
$registrationdate = ${$uid.$username}{'regtime'};
} else {
$registrationdate = int(time);
}
my ($aimad, $yimad, $msnad, $gtalkad, $skypead, $icqad, $signature_hr);
# user is current / admin / gmod
$usernamelink = ${$uid.$username}{'realname'};
if($color) {$usernamelink= qq~${$uid.$username}{'realname'}~;}
$star = $memberstar{$username};
$memberinfo = "$memberinfo{$username}$addmembergroup{$username}";
$memberinfo =~ s~\n~~g;
&usersOnline;
$userOnline = &userOnLineStatus($username);
#################################
$template_userpic = ${$uid.$username}{'userpic'};
$template_usertext = ${$uid.$username}{'usertext'};
$template_gender = ${$uid.$username}{'gender'};
$template_postinfo = qq~$mycenter_txt{'posts'}: ${$uid.$username}{'postcount'}
~;
$userlocation = ${$uid.$username}{'location'};
&ToChars($userlocation);
if ($showuserpic && $allowpics) {
if (${$uid.$username}{'userownpic'}) {
$avstyle = "";
if ($ENV{'HTTP_USER_AGENT'} !=~ /MSIE/g || $ENV{'HTTP_USER_AGENT'} =~ /Opera/) {
if ($userpic_width > 0 || $userpic_height > 0) {
$avstyle = qq~ style="~;
if ($userpic_width > 0) { $avstyle .= qq~max-width: $userpic_width\px\; ~; }
if ($userpic_height > 0) { $avstyle .= qq~max-height: $userpic_height\px\;~; }
# Limit avatar widths/heights for safari - since Safari contains a bug
# regarding max-width, and height when only one is present.
# http://bugzilla.opendarwin.org/show_bug.cgi?id=5146
if (($userpic_height == 0 && $userpic_width > 0) && $ENV{'HTTP_USER_AGENT'} =~ /Safari/) { $avstyle .= qq~max-height: $userpic_width\px\;~; }
if (($userpic_width == 0 && $userpic_height > 0) && $ENV{'HTTP_USER_AGENT'} =~ /Safari/) { $avstyle .= qq~max-width: $userpic_height\px\;~; }
$avstyle .= qq~"~;
}
$avatar = qq~
~;
} else {
$avatar = qq~
~;
}
} else {
$avatar = qq~
~;
}
} else {
$avatar = $template_userpic;
}
$mctitle = $mycenter_txt{'welcometxt'} ;
#################################
$myprofileblock =~ s/({|<)yabb userlink(}|>)/$usernamelink/g;
$myprofileblock =~ s/({|<)yabb memberinfo(}|>)/$memberinfo/g;
$myprofileblock =~ s/({|<)yabb stars(}|>)/$star/g;
$myprofileblock =~ s/({|<)yabb useronline(}|>)/$userOnline/g;
$myprofileblock =~ s/({|<)yabb userpic(}|>)/$avatar/g;
$myprofileblock =~ s/({|<)yabb usertext(}|>)/$template_usertext/g;
$myprofileblock =~ s/({|<)yabb postinfo(}|>)/$template_postinfo/g;
$myprofileblock =~ s/({|<)yabb gender(}|>)/$template_gender/g;
$myprofileblock =~ s/({|<)yabb location(}|>)/$userlocation/g;
################################
$myprofileblock =~ s/({|<)yabb .+?(}|>)//g;
~;
}
Sources/Load.pl
($usestyle, $useimages, $usehead, $useboard, $usemessage, $usedisplay, $usemycenter, $UseMenuType) = split(/\|/, $templateset{$template});
($usestyle, $useimages, $usehead, $useboard, $usemessage, $usedisplay, $usemycenter, $useprofile, $UseMenuType) = split(/\|/, $templateset{$template});
if (!-e "$templatesdir/$usemycenter/MyCenter.template") { $usemycenter = 'default'; }
if (!-e "$templatesdir/$useprofile/Profile.template") { $usemycenter = 'default'; }
Sources/System.pl
if ($template_mycenter) { $templateset{"$testname"} .= "|$tempelement"; }
else { $templateset{"$testname"} .= "|default"; }
if ($template_profile) { $templateset{"$testname"} .= "|$tempelement"; }
else { $templateset{"$testname"} .= "|default"; }
$templateset{"$template_name"} .= "|$template_mycenter";
$templateset{"$template_name"} .= "|$template_profile";