بسم الله الرحمن الرحيم
سوف أتبرع لكم بتعريب هذه الخطوات خطوة بخطوة
وبتنظيم
الرجاء إتباع الخطوات بدقة ، عليكم عمل نسخة من الملفات التي سوف نعدلها للإحتياط
------------------------------------
افتح الملف cpanel2.cgi وعدل مايلي
#ابحث عن الجملة
elsif ($DaysPruneDefault == 1000) {
$Days1000 = "SELECTED";
} else {
$Days365 = "SELECTED";
}
#أضف مباشرة بعدها
if ($allowimage EQ "NO") {
$imageoff = "CHECKED";
}
elsif ($allowimage EQ "YES") {
$imageon = "CHECKED"; }
else { $imageon = "CHECKED"; }
-----------
#ابحث عنفي نفس الملف )
&InputRadioRow("#f7f7f7", "Author Column Display", "For each post, you can determine what information to display in the left column associated with the author of the post. The default is to only show the person's username and member status.", "<INPUT TYPE=\"RADIO\" NAME=\"AuthorColumn\" VALUE=\"Minimum\" $MinimumAC> Show username and status only.<BR>
<INPUT TYPE=\"RADIO\" NAME=\"AuthorColumn\" VALUE=\"PostTotal\" $PostTotalAC> Show username, status, registration date, post total.<BR><INPUT TYPE=\"RADIO\" NAME=\"AuthorColumn\" VALUE=\"Location\" $LocationAC> All of above plus location.<BR>");
#أضف مباشرة تحتها
&InputRadioRow("#dedfdf", "Show custom user image with each post?", "These can be customized by each user from their profile.", "
<INPUT TYPE=\"RADIO\" NAME=\"allowimage\" VALUE=\"YES\" $imageon> Yes, show them.<BR>
<INPUT TYPE=\"RADIO\" NAME=\"allowimage\" VALUE=\"NO\" $imageoff> No, don't show them.");
#ابحث عن :
print MEMBERSHIP ("$theprofile[14]\n");
# حيث ان رقم [14] هو أعلى رقم موجود في هذه الأسطر
#أضف مباشرة تحتها
print MEMBERSHIP ("$theprofile[15]\n");
# مع مراعاة عدم وجود رقم [15] من قبل
#إذا كان موجودا اكتب الرقم اللذي يلي آخر رقم
-----------------
احفظ الملف و افتح ملف ubb_library2.pl
#ابحث عن :
if ($AllowIcons eq "TRUE") {
my $IconNumber = $thisline[9];
chomp($IconNumber);
if ($IconNumber eq "") {
$IconNumber = "1";
}
unless (-e "$NonCGIPath/icons/icon$IconNumber.gif") {
$IconNumber = "1";
}
$ThisIcon = qq(<IMG SRC="$NonCGIURL/icons/icon$IconNumber.gif" BORDER=0 ALIGN=ABSCENTER> );
} else {
$ThisIcon = qq(<IMG SRC="$NonCGIURL/posticon.gif" BORDER=0> );
}
#اضف تحتها مباشرة
if ($allowimage EQ "YES") {
if ($thisprofile[15]) {
$thisimage = qq(<br><img src="$thisprofile[15]" height=60 width=60 border=0"> );
} else {
$thisimage = qq();
}
} else {
$thisimage = qq();
}
if ($RegName eq "unreg") {
$thisimage = "";
}
#تأكد ان كل رقم في كلمة $thisprofile[15] هو نفس الرقم الذي كتبته في الأعلى أي أعلى رقم
#ابحث عن :
$ThisThread .= qq(<tr $AlternateColor>
<TD width=18% valign=top>
<FONT SIZE="$TextSize" face="$FontFace"><B>$thisline[2]</B></font><BR><FONT SIZE="1" face="$FontFace">$ThisStatus</FONT>
</td>
#أضف بعد كلمة $ThisStaus
$thisimage
-------------
احفظ الملف ، ثم افتح ملف : ubbmisc.cgi
#ابحث عن :
if ($in{'Password'} eq "$thisprofile[1]") {
$pwmatch = "true";
$Password = $thisprofile[1];
$Email = $thisprofile[2];
$URL = $thisprofile[3];
$Occupation = $thisprofile[5];
$Location = $thisprofile[6];
$Interests = $thisprofile[9];
$Status = $thisprofile[8];
$TotalPosts = $thisprofile[7];
$Permissions = $thisprofile[4];
$DateRegistered = $thisprofile[10];
#اضف بعدها
$userimage = $thisprofile[15];
# لاتنسى الرقم
#ابحث عن :
## Confirm UserName and Password to prevent hacking
$ProfileNumber = &GetUserNumber($UserName);
@profileinfo = &OpenProfile("$ProfileNumber.cgi");
$CurrentEmail = "$profileinfo[2]";
chomp($CurrentEmail);
$Permissions = "$profileinfo[4]";
chomp($Permissions);
$TotalPosts = "$profileinfo[7]";
$Status = "$profileinfo[8]";
$DateRegistered = "$profileinfo[10]";
# أضف تحتها :
$userimage = "$profileinfo[15]";
#ابحث عن :
print MEMBERSHIP ("$profileinfo[0]\n");
print MEMBERSHIP ("$Password\n");
print MEMBERSHIP ("$Email\n");
print MEMBERSHIP ("$URL\n");
print MEMBERSHIP ("$Permissions\n");
print MEMBERSHIP ("$Occupation\n");
print MEMBERSHIP ("$Location\n");
print MEMBERSHIP ("$TotalPosts\n");
print MEMBERSHIP ("$Status\n");
print MEMBERSHIP ("$Interests\n");
print MEMBERSHIP ("$DateRegistered\n");
print MEMBERSHIP ("$in{'EmailView'}\n");
print MEMBERSHIP ("$Signature\n");
print MEMBERSHIP ("$in{'ICQnum'}\n");
print MEMBERSHIP ("$in{'AllowMassMail'}\n");
#اضف تحتها
print MEMBERSHIP ("$in{'userimage'}\n");
#ابحث :
if ($thisprofile[8] eq "Administrator") {
$ThisStatus = "$AdminTitle";
}
elsif ($thisprofile[8] eq "Moderator") {
$ThisStatus = "$ModeratorTitle";
}
elsif ($thisprofile[8] eq "Member") {
$ThisStatus = "$MemberTitle";
} else {
$ThisStatus = "$JrMemberTitle";
}
#اضف
if ($allowimage eq "YES") {
$thisimage = qq%<img src="$thisprofile[15]"> (URL: $thisprofile[15])%;
}
else {$thisimage = ""; }
#ابحث :
<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">$ThisStatus</FONT>
#ابدل الكود السابق بهذا الكود
<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TextColor">$ThisStatus$thisimage</FONT>
#ابحث :
if ($AllowMassMail eq "no") {
$AllowMailNo = "CHECKED";
$AMM = qq(<INPUT TYPE="HIDDEN" NAME="OldAMM" VALUE="no"> );
}
elsif ($AllowMassMail eq "") {
$AllowMailYes = "CHECKED";
$AMM = qq(<INPUT TYPE="HIDDEN" NAME="OldAMM" VALUE="blank"> );
} else {
$AllowMailYes = "CHECKED";
$AMM = qq(<INPUT TYPE="HIDDEN" NAME="OldAMM" VALUE="yes"> );
}
#اضف :
$imagefield = "<tr $AltColumnColor2><td>
<B><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\">User Image</FONT></B>
<BR><FONT SIZE=\"1\" FACE=\"$FontFace\">This text will show an image under your status when you post a message.</font>
</td><td>
<B><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\">
<INPUT TYPE=\"text\" NAME=\"userimage\" VALUE=\"$userimage\" size=100 maxlength=200>
</FONT></B></td></tr>";
#ابحث :
<INPUT TYPE="TEXT" NAME="ICQnum" VALUE="$ICQnumber" SIZE=7 MAXLENGTH=20>
#اضف :
$imagefield
#ثم امسح بعدها
</td></tr>
# سوف تكون كالشكل التالي
<tr $AltColumnColor1>
<td>
<B><FONT SIZE="$TextSize" FACE="$FontFace">ICQ Nummer</FONT></B>
</td>
<td>
<INPUT TYPE="TEXT" NAME="ICQnum" VALUE="$ICQnumber" SIZE=7 MAXLENGTH=20>
$imagefield
<tr $AltColumnColor2>
<td valign=top>
<B><FONT SIZE="$TextSize" FACE="$FontFace">Signature</FONT></B><BR><FONT SIZE="1" FACE="$FontFace">
#ابحث :
print MEMBERSHIP ("$UserName\n");
print MEMBERSHIP ("$Password\n");
print MEMBERSHIP ("$RegEmail\n");
print MEMBERSHIP ("$URL\n");
print MEMBERSHIP ("Write\n");
print MEMBERSHIP ("$Occupation\n");
print MEMBERSHIP ("$Location\n");
print MEMBERSHIP ("0\n");
print MEMBERSHIP ("Junior Member\n");
print MEMBERSHIP ("$Interests\n");
print MEMBERSHIP ("$HyphenDate\n");
print MEMBERSHIP ("$in{'EmailView'}\n");
print MEMBERSHIP ("$SignatureHTML\n");
print MEMBERSHIP ("$in{'ICQnum'}\n");
print MEMBERSHIP ("$in{'AllowMassMail'}\n");
#أضف :
print MEMBERSHIP ("$in{'thisimage'}\n");
------------------
احفظ الملف وافتح الملف : Ultimate.cgi
#ابحث :
if ($AllowSignature eq "YES") {
$SigStatus = "enabled";
} else {
$SigStatus = "not enabled";
}
#اضف :
$imagefield = "<tr $AltColumnColor1><td>
<B><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\">User Image</FONT></B>
<B
