لكل من يريد سكربت اخبار صديق

[Superman]

كنت استخدم هذا السكريبت فى موقعى جالاكسى
قمت بكتابته بنفسى
و قمت الان بتعديله لكى يكون سهل التركيب
و ما يغلاش عليكم :)

[code]
#!/usr/bin/perl

#####################################################################
# Written By Mohammed Sameer
# To Contact Me:
# E-Mail : mohammedeg@crosswinds.net
# Website: mmmmm May be www.egypt4us.cjb.net :-)
# mIRC : Nick : Uniball (DALNet)
# Channel: #EgypT4uS (DALNet)
# Feel free to modify this as you want but DON't Remove
# This part
# Also i'm not responsible for any thing due to the use of this
# includes and not limited to: physical damage, data lose, .......
# Copyright, All rights reserver
# under the GNU general public license.
#######################################
# سكريبت من برمجة محمد سمير
# للاتصال بى
# بريد الكترونى
# mohammedeg@crosswinds.net
# موقعى: لا يوجد :)
# ام اى ار سى
# القناة
# #EgypT4uS , #المبرمج
# الاسم
# Uniball
#
# يمكنك تعديل هذا البرنامج كما تريد بشرط عدم ازالة هذا الجزء
# انا غير مسؤل عن اى ضرر يحدث نتيجة استخدام هذا البرنامج
# جميع الحقوق محفوظة تحت نظام الرخصة العامة
#####################################################################
# To Setup:
#-----------
# 1) Edit the variables below as shown
# 2) Upload the file in *ASCII*
# 3) CHMOD the file to 755
# 4) Go to : http://www.yoursite.com/blah/recommend.pl?action=code
# And pot the HTML in your page
# 5) Engoy :-)
################
# خطوات التثبيت
#--------------
# قم بتعديل المتغيرات كما هو موضح فى الاسفل
# قم بتحميل الملف الى الخادم بطريقة الاسكى
# اعطى الملف التراخيص 755
# قم بالتوجه الى السكريبت باستخدام المتصفح و احصل على كود ال هتمل
#####################################################################
##################### Variables #################
# Background Colour you want "In Hexadecimal"
# لون خلفية الصفحات
$bgcolor = '#F8F8F0';

# Path to sendmail
# مكان برنامج سيند ميل
$sendmail = "/usr/sbin/sendmail";

# Your E-Mail
# بريدك الالكترونى
$webmasteremail = 'webmaster@galaxy2k.cjb.net';

# Your Website URL
# عنوان موقعك
$websiteurl = "http://www.galaxy.f2s.com";

# Your Bannar URL
# عنوان شعار موقعك
$bannar = "http://www.galaxy.f2s.com/images/bannar.gif";

# Title of the pages generated by the script
# اسم موقعك
$title = "Galaxy";

# URL of the script
# عنوان السكربت
$url = "http://www.galaxy.f2s.com/cgi-bin/recommend.pl";

##################################################
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
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; }
}
if ($form{'action'} eq "code") {&code;}
if ($form{'semail'} eq "") {$error ="لم تقم بكتابة بريدك الالكترونى";
&error; exit;}
elsif ($form{'remail'} eq "") {$error ="لم تقم بكتابة بريد صديقك الالكترونى";
&error; exit;}
elsif ( ( $form{'semail'} =~/[,|\/\\]/) # if any illegal characters
|| ($form{'semail'} =~ /(@.*@)|(\.\.)/ ) # two @'s or consecutive.'s
|| (substr($form{'semail'},-1,1) eq "\.") # ends in a .
|| (index($form{'semail'},'@') eq -1) ) # no @
{$error = "بريدك الالكترونى غير صحيح"; &error; exit;}
elsif ( ( $form{'remail'} =~/[,|\/\\]/) # if any illegal characters
|| ($form{'remail'} =~ /(@.*@)|(\.\.)/ ) # two @'s or consecutive.'s
|| (substr($form{'remail'},-1,1) eq "\.") # ends in a .
|| (index($form{'remail'},'@') eq -1) ) # no @
{$error = "بريد صديقك الالكتلرونى غير صحيح"; &error; exit;}
else {
# send to friend
open (MAIL, "|$sendmail -t");
print MAIL "To: $form{'remail'}\n";
print MAIL "From: $form{'semail'}\n";
print MAIL "Subject: رسالة من صديقك\n\n";
print MAIL "اخى الكريم\n";
print MAIL "لقد زار صديقك\n";
print MAIL "$form{'semail'}\n";
print MAIL "موقعنا و هو يدعوك لتزوره\n";
print MAIL "شكرا لك\n";
print MAIL "$websiteurl\n";
print MAIL "*****************************\n";
print MAIL "لن تتلقى منا اى رسائل اخرى\n";
print MAIL "الا اذا اشتركت فى قائمة المراسلة\n";
close (MAIL);
#send to sender
open (MAIL, "|$sendmail -t");
print MAIL "To: $form{'semail'}\n";
print MAIL "From: $webmasteremail\n";
print MAIL "Subject: شكرا لك\n\n";
print MAIL "اخى الكريم\n";
print MAIL "شكرا لك على ترشيح موقعنا لصديقك\n";
print MAIL "$form{'semail'}\n";
print MAIL "و نتمنى ان تعود لزيارتنا مرة اخرى\n";
print MAIL "$websiteurl\n";
print MAIL "*****************************\n";
print MAIL "لن تتلقى منا اى رسائل اخرى\n";
print MAIL "الا اذا اشتركت فى قائمة المراسلة\n";
close (MAIL);
#send to webmaster
open (MAIL, "|$sendmail -t");
print MAIL "To: $webmasteremail\n";
print MAIL "From: $webmasteremail\n";
print MAIL "Subject: Recommend script used \n\n";
print MAIL "$form{'semail'} sent an email to $form{'remail'}\n";
close (MAIL);
&thank;
exit;
}
###########
sub page {
print "Content-type: text/html\n\n";
print <<__END__;
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
$tag
<title>$title$sec</title>
$head
</head>

<body bgcolor="$bgcolor">
<p align="center"><img border="0" src="$bannar" width="600" height="50"></p>
<CENTER>
$extra
</CENTER>
</BODY>
</HTML>
__END__
}
###########
sub error {
$extra = qq(<p align="center">$error</p>
<form method="POST" action="$url">
<div align="center">
<center>
<table border="0" width="55%" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">
<p align="center"><input type="text" name="semail" size="20" value="$form{'semail'}"></td>
<td width="50%">
<p align="center"><b>بريدك الالكترونى</b></td>
</tr>
<tr>
<td width="50%">
<p align="center"><input type="text" name="remail" size="20" value="$form{'remail'}"></td>
<td width="50%">
<p align="center"><b>بريد صديقك الالكترونى</b></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><input type="reset" value="مسح"><input type="submit" value="ارسل"></td>
</tr>
</table>
</center>
</div>
</form>);
$sec = " - خطا";
&page;
exit;
}
###########
sub thank{
$tag = "<meta http-equiv=\"Refresh\" content=\"4; URL=http://www.galaxy.f2s.com\">";
$extra = qq(<div align="center">
<center>
<table border="2" width="444" height="191" cellspacing="0" cellpadding="0">
<tr>
<td width="444" height="191" valign="middle">
<h3 align="center"><font color="#000000"><b>شكرا لك على
ترشيحك لموقعنا</b></font></h3>
<p align="center"><b><a href="$websiteurl">اضغط هنا
اذا لم يتم تحويلك اليا بعد قليل</a></b></td>
</tr>
</table>
</center>
</div>);
&page;
exit;
}

sub code {
print "Content-type: text/plain\n\n";
print qq!
<textarea rows="20" cols="70"><form method="POST" action="$url">
<div align="center">
<center>
<table border="0" width="55%" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">
<p align="center"><input type="text" name="semail" size="20" value=""></td>
<td width="50%">
<p align="center"><b>بريدك الالكترونى</b></td>
</tr>
<tr>
<td width="50%">
<p align="center"><input type="text" name="remail" size="20" value=""></td>
<td width="50%">
<p align="center"><b>بريد صديقك الالكترونى</b></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><input type="reset" value="مسح"><input type="submit" value="ارسل"></td>
</tr>
</table>
</center>
</div>
</form>