من يساعدني في أول برنامج cgi لي

[محبوب ياسين]

مرحبا شباب

أفكر اعمل برنامج في البيرل بحيث يعمل ريفرش أو يفتح الصفحة 3 مرات
بس احترت وما عرفت اعمل هيك أمر ، أرجوا منكم وضع الكود جاهز
ولكم منى فائق الحب والتقدير والاحترام

------------------
* سبحان الله وبحمده سبحان الله العظيم *

[Superman]

اخى
ما فهمت قصدك
ممكن توضح اكثر؟


------------------
I love every bode
mohammedeg@crosswinds.net
http://www.galaxy.f2s.com

[محبوب ياسين]

فيك تعمل هالبرنامج في VB مثال :

<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
For i=1 to 3
WebBrowser1.navigate http://www.swalif.net
WebBrowser1.refresh
next
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>

هيك أوضح ماعندي

------------------
* سبحان الله وبحمده سبحان الله العظيم *

[محبوب ياسين]

شكرا لكم

------------------
* سبحان الله وبحمده سبحان الله العظيم *

[Superman]

بسم الله الرحمن الرحيم
معذرة اخى لتاخرى عليك
هذا هو البرنامج الذى طلبته
اتمنى ان ينفعك
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
#!/usr/bin/perl
#مكان مترجم البيرل

$no = "5";
#قم بتغيير هذا الى عدد مرات تحديث الصفحة

$time = "3";
#قم بتغيير هذا الى المدة بين كل تحديث و اخر بالثوانى

$page = "test.htm";
#المسار الكامل للمكان الذى توجد فيه الصفحة

$script = "test.cgi";
#اسم هذا الملف
#######################################################################################
#هذا الجزء لن يظهر فى البرنامج
#سكريبت برمجة موقع
#Galaxy
#http://galaxy2k.cjb.net http://www.galaxy.f2s.com webmaster@galaxy2k.cjb.net
##############################لا تقم بتعديل اى شىء بعد ذلك##############################
print "Content-type: text/html\n\n";
&readform;
open (FILE, "$page") &#0124; &#0124; print "لا يمكن فتح الصفحة";
seek (FILE, 0, 0);
@read = &lt;FILE&gt;;
close (FILE);
$id = "$form{'id'}";
if ($form{'id'} &lt; $no) {
$id++;
print &lt;&lt;__END__;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;META HTTP-EQUIV="Refresh" Content=$time;URL="$script?id=$id"&gt;
__END__
print "@read";
}
else {print "@read";}
sub readform {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/\s/g;
if ($name && $value) { $form{$name} = $value; }
}
}
1;
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
لتثبيت البرنامج
قم بعمل ملف فارغ و تسميته اى اسم ولكن يجب ان يكون له الامتداد cgi او pl
مثلا refresh.cgi
قم بتغيير الاسم فى السكريبت
قم بتغيير موقع مترجم البيرل فى اول سطر
قم بتغيير باقى المتغيرات كما هو موضح فى الكود
قم بتحميل البرنامج الى الموقع بطريقة الاسكى
تراخيص الملف 755
اذا كان هناك شىء غير واضح فقط اخبرنى و انا حاضر


------------------
I love every bode
mohammedeg@crosswinds.net
http://www.galaxy.f2s.com

[محبوب ياسين]

الله يعطيك ألف عافيه
وتقبل تحياتي و اشواقي الحارة .
وانتظر رسالتي في البريد.
------------------
* سبحان الله وبحمده سبحان الله العظيم *


[b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; محبوب ياسين &nbsp; يوم &nbsp; 17-10-2000]

[Superman]

ما وصلنى شىء


------------------
I love every bode
mohammedeg@crosswinds.net
http://www.galaxy.f2s.com

[محبوب ياسين]

لقد ارسلتها مره اخرى قبل قليل على
mohammedeg@crosswinds.net

------------------
* سبحان الله وبحمده سبحان الله العظيم *

[Superman]

يا اخى ما وصلنى شىء
لا ادرى اين المشكلة
حسنا يمكنك مراسلتى ايضا على
mohammedeg@yahoo.com

------------------
I love every bode
mohammedeg@crosswinds.net
http://www.galaxy.f2s.com