التجربة الناجحة في اضافة عداد القراءات للمواضيع - بإذن الله

**نصوور** · 10-08-2000

بسم الله الرحمن الرحيم

اولا .. قم بتنزيل الملف التالي
-----------------------------------------------------------
1- اضغط هنا للتنزيل : ملف التنزيل [/b]

ثانيا : فكك الملف ubbcount.cgi و انقلة الى فولدر ملفات CGI
-----------------------------------------------------------

ثالثا: اتبع الخطوات ادناه مع مراعاة التعريب المختلف ..
----------------------------------------------------------
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
######################
# تحرير ملف: forumdisplay.cgi
######################
------- ابحث عن الكود:
$BorderTop
<table border=0 cellpadding=4 border=0 cellspacing=1 width=$TableWidth2>
<tr $TableColorStrip>
<td> </td>
$IconFieldHeader
<td>
<FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>المواضيع</B></FONT>
</td>
<td>
<FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>الكاتب</B></FONT>
</td>
<td><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>الردود</B></FONT>
</td>
<td NOWRAP><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>آخر رد</B></FONT>
</td></tr>

------- و استبدلة ب :
$BorderTop
<table border=0 cellpadding=4 border=0 cellspacing=1 width=$TableWidth2>
<tr $TableColorStrip>
<td width="5%"> </td>
$IconFieldHeader
<td>
<FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>الموضوع</B></FONT>
</td>
<td width="20%">
<FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>الكاتب</B></FONT>
</td>
<td width="10%"><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>الردود</B></FONT>
</td>
<td NOWARP width="25%"><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>آخر الردود</B></FONT>
</td>
<td width="5%"><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>القراءات</B></FONT>
</td>
<td width="5%"><FONT SIZE="1" FACE="$FontFace" color="$TableStripTextColor"><B>نسبة الردود<B></FONT>
</td></tr>
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
===
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
------- أبحث عن :
sub TopicGutsHTML {
if ($PrivateMax eq "yes") {
$ThisURL = qq($CGIURL/forumdisplay.cgi?action=displayprivate&number=$number&topic=$threadinfo[1]);
} else {
$ThisURL = qq($NonCGIURL/$ExactPath/HTML/$threadinfo[1].html);
}

------- و اضف مباشرة اسفله الكود التالي:
if (-e "$NonCGIPath/$ExactPath/ubbcount.file") {

open(CHECK, "$NonCGIPath/$ExactPath/ubbcount.file") | | die ( &StandardHTML("Unable to open forum's counting file for reading<P>$!") );
@dta = <CHECK>;
close(CHECK);

$final_hits = 0;
foreach $dta_line(@dta) {
chomp($dta_line);
($xurl, $xcount) = split(/\|/, $dta_line);
if ($xurl eq "$ThisURL") {
$final_hits = $xcount;
$newn = $threadinfo[3];
$writtingp = sprintf("%4.2f", (($newn / $final_hits) * 100));

}
}

}
else {
$final_hits = 0;
$writtingp = "0.00";
}
if ($writtingp eq "") {
$writtingp = "0.00";
}

$newpath = $ExactPath;
@info = split(/\//, $newpath);
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
====
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
------- ثم ابحث عن :
<A HREF="$ThisURL">$threadinfo[2]</A>

------- و استبدله ب:
<A HREF="$CGIURL/ubbcount.cgi?expath1=$info[0]&expath2=$info[1]&topic=$threadinfo[1]&type=$PrivateMax&number=$number">$threadinfo[2]</A>
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
=====
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
------- ابحث عن الكود التالي:
<td NOWRAP $AltColumnColor2>
<FONT SIZE="$DateSize" FACE="$FontFace">$TheDate <FONT SIZE="$DateSize" FACE="$FontFace" COLOR="$TimeColor">$FormatTime</FONT></FONT>
</td></tr>

------- و استبدله بالكود التالي :
<td NOWRAP $AltColumnColor2>
<FONT SIZE="$DateSize" FACE="$FontFace">$TheDate <FONT SIZE="$DateSize" FACE="$FontFace" COLOR="$TimeColor">$FormatTime</FONT></FONT>
</td>
<td NOWARP $AltColumnColor1>
<FONT SIZE="$DateSize" FACE="$FontFace">$final_hits</FONT></td>
<td NOWARP $AltColumnColor2>
<FONT SIZE="$DateSize" Face="$FontFace">$writtingp %</font>
</td></tr>
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
------------ لقد انتهيت من هذا الملف احفظ التغيرات الآن

######################
# تحرير ملف : postings.cgi
######################
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
------- جد هذا:
#delete entire topic/HTML page
unlink ("$ForumsPath/$ExactPath/$topic");
unlink ("$ForumsPath/$ExactPath/HTML/$ThreadNumber.$FileExt");

------- و اضف اسفله الكود التالي:
# DELETE COUNTING DETAILS
open(CHECK, "$ForumsPath/$ExactPath/ubbcount.file");
@newlisting = <CHECK>;
close(CHECK);
open (NEWLIST, ">$ForumsPath/$ExactPath/ubbcount.file");
foreach $i(@newlisting) {
$srchstrng = qq($NonCGIURL/$ExactPath/HTML/$ThreadNumber.$FileExt);
$pstring = qq(&topic=$ThreadNumber);
unless (($i=~ m/$srchstrng\|\d+/) | | ($i=~ m/$pstring\|\d+/)) { print NEWLIST "$i"; }
}
close(NEWLIST); # FINISHED

#######################
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>

[b]
لقد انتهيت الآن .. قم بحفظ التغيرات للملفات الأثنان
و قم بارسال الملفات الثلاثة
1- ملف formdisplay.cgi
2- ملف posting.cgi
3- ملف ubbcount.cgi

ولا تنسى ان تقوم بعملية الأرسال الى السيرفر بطريقو الأسكي و ليس الأتومايك او الباينري

و بالتوفيق ان شاء الله

[b]<small><small>[ تم تعديل الموضوع بواسطة   نصوور   يوم   10-08-2000]

**زعيم2000** · 11-08-2000

إلى أخي نصوور أشكرك على شرحك المفيد لكن يأخي عندما نزلت البرنامج
***********************
من هذا الإرتباط
***********************
لامشكلة في الإرتباط ينزل البرنامج لكن المشكلة عند فك ضغط البرنامج تطلع رسالة Erorr أتمنى منك المراجعة وإكمال الجميل

وتقبل تحياتي
أخوك : زعيم2000

[b]<small><small>[ تم تعديل الموضوع بواسطة   زعيم2000   يوم   10-08-2000]

الموضوع: التجربة الناجحة في اضافة عداد القراءات للمواضيع - بإذن الله

أدوات الموضوع

بحث في الموضوع

المواضيع المتشابهه

الصلاة على المغفور له بإذن الله الملك فهد بن عبد العزيز آل سعود رحمة الله

عداد القراءات لا يعمل؟

ضوابط المشاركة