حقيقة حاولت الحصول على الموقع إللي خذت منه الكود ولكن لم أجد. بشكل عام البرنامج بسيط وفقط يقوم بتغيير البانرات.
هنالك ملفين فقط.
الأول بإسم banner.cgi ومحتواه هو
كود:
#!/usr/bin/perl
$LIST = 'banner.list';
use CGI;
$HEAD = new CGI;
open(BANNERS, "$LIST") || die "Can't read $BANNERS. $!";
srand($$ & time ^ $$);
@banners = <BANNERS>;
$ban = splice(@banners, int rand @banners, 1);
chomp($ban);
($img,$url,$desc,$border) = split(/\|/,$ban);
print $HEAD->header('text/plain');
print "<a href=$url>\n";
print "<img src=$img alt='$desc' border=$border><br>\n";
print "<font size=-1><b>$desc</a>\n";
والملف الثاني بإسم banner.list وهو عبارة عن قائمة بعنواين الدعاية, وتجد في داخله
http://www.swalif.net/softs/topic/banner.list
من الجهة اليسرى لليمنى, عنوان صورة البانر, ثم وصلة البانر إلى أين, ثم عدد صفر, ثم إسم البانر أو أي إسم ترغب فيه
يجب التقيد بهذا الترتيب ويمكن زيادة عدد البانرات من خلال زيادة عدد الأسطر
الآن خطوات التركيب:
- قم بعمل chmod 755 لـ banner.cgi
- ضع ملف banner.list في نفس مجلد banner.cgi
- لطلب البانر من خلال البرنامج, ما عليك إلا إضافة هذا الكود في الصفحة الرئيسية للموقع
<!--#exec cgi="banner.cgi" -->
تأكد أن إمتداد الصفحة الرئيسية هو shtml
في البداية ضع صفحة تجريبية في داخل نفس المجلد وقم بوضع الكود السابق للتأكد من عمل البرنامج ولا تنسى وضع الإمتداد shtml
موفق إن شاء الله