يا شباب عندي موقع في f2s عنوانه http://www.wsw.f2s.com
أريد أن أنقل له برنامج القائمة البريدية ،،،
ماالذي يجب علي أن أغيره؟؟؟

___________

#!/usr/local/bin/perl

############ ADJUST THESE VARIABLES ################

# PATH of the header file

$headfile = '/home/alarb/alarb-www/cgi-bin/mix/listhead.txt';

# PATH of the header file

$footfile = '/home/alarb/alarb-www/cgi-bin/mix/listfoot.txt';

# PATH of the e-mail address database - include the filename

$emailpath = '/home/alarb/list0001.log';

# URL of your homepage

$homepage = 'http://www.alarb.com';

# URL of this script - include the filename

$scripturl = 'http://www.alarb.com/cgi-bin/mix/list0001.cgi';

# Name your mailing list - do not use quotes (" or ')

$listname = 'القائمة البريدية';

# Describe how often will you send e-mail to your mailing list? - No CAPS

$listcycle = 'شهرياً';

# Name of your website

$mysite = 'موقع العرب';

# Password to access admin screen - CHANGE THIS IMMEDIATELY

$adminpass = 'password';

# Do you want to be notified if anyone tries to guess your password?

$hacknotify = 'yes';

# Change this to your e-mail address

$myemail = 'noreply@alarb.com';

# If you want to use file-locking for a more secure database
# keep this line as is...if you don't want to use file-locking
# or can't use 'flock' change the 1 to 0
# If you have a high-traffic site, I strongly suggest you use
# file-locking.

$uselock = '1';

# Does your host require a sleep between blocks of e-mails sent?

$usesleep = 'yes';

# How many e-mails are sent in one block?

$blocksize = '100';

# How long to sleep between blocks (in seconds)?

$sleeptime = '1';

# If the script can't find sendmail when you run it, enter the
# sendmail path here...otherwise, leave this as is.

$mailprogram = 'script';

# Get the form variables

if ($ENV{'REQUEST_METHOD'} eq 'GET') {
$buffer = $ENV{'QUERY_STRING'};
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}

# Break em up into a format the script can read

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

# Open the header/footer files

open (FILE, "$headfile");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@header = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

open (FILE, "$footfile");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@footer = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

if ($mailprogram eq 'script') {

@mailtest = ("/bin/sendmail","/sbin/sendmail","/usr/lib/sendmail","/usr/bin/sendmail","/usr/sbin/sendmail");

foreach $mailtest (@mailtest) {
if (-e $mailtest && -X $mailtest) {
$mailprogram = $mailtest;
}
}
if ($mailprogram eq 'script') {
print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=FF0000><TR><TD ALIGN=CENTER><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>لا يوجد برنامج إرسال بريد مدمج بالموقع</H2>\n";
print "الرجاء سؤال المشرف على الموقع عن الفهرس الصحيح لبرنامج إرسال البريد.\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=777777><TR><TD BGCOLOR=999999 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;
}
}

# Assign variables from FORM data

$tempemail = $FORM{'submitemail'};
$tempemail =~ s/\s//g;
$thisemail = lc ($tempemail);

# Decide which part of the script we need

if ($FORM{'action'} eq 'subscribe') { &subscribe; }
if ($FORM{'action'} eq 'unsubscribe') { &unsubscribe; }
if ($FORM{'action'} eq 'admin') { &admin; }

print "Content-type: text/html\n\n";
print "@header\n";
print "<P><CENTER><FONT FACE=arial,helvetica SIZE=3><B>إدارة القائمة البريدية</B></FONT><P><FORM ACTION=$scripturl METHOD=POST><TABLE BORDER=1 BGCOLOR=990000><TR>\n";
print "<TD><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>كلمة سر الإدارة :</B></FONT></TD>\n";
print "<TD><FONT FACE=arial,helvetica SIZE=2><INPUT TYPE=password NAME=password SIZE=25><INPUT TYPE=hidden NAME=action VALUE=admin></FONT></TD>\n";
print "</TR></TABLE><INPUT TYPE=submit VALUE=دخول></FORM><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;

sub subscribe {

if ($thisemail !~ /(^([\w\.\-]+)[@]([a-zA-z0-9\.\-]+)[\.]([a-zA-Z]{2,3})$)/ || $thisemail =~ /(\.\.)|(^\.)|(\.@)|(@\.)|(\.$)|(\\)/ || length($thisemail) > 128) {

print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=FF0000><TR><TD ALIGN=CENTER><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>هذا البريد الإلكتروني غير صالح</H2>\n";
print "<H3>$thisemail</H3>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;

}

open (FILE, "$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@emaillist = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

foreach $emailaddress (@emaillist) {
chomp ($emailaddress);
if ($emailaddress eq $thisemail) {
$already = 1;
}
}

if (!$already) {
open (FILE, ">>$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 2;
}

print FILE "$thisemail\n";

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

open (MAIL,"|$mailprogram -t -oi");
print MAIL "To: $thisemail\n";
print MAIL "From: $myemail\n";
print MAIL "Subject: تم التسجيل في $listname\n";
print MAIL "شكراً لإنضمامك إلى $listname!\n\n";
print MAIL "سوف تتلقى الأخبار والمعلومات من $mysite\n";
print MAIL "$listcycle.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "إذا كنت قد إنضممت إلى $listname بالخطأ\n";
print MAIL "أو قام شخص ما بتسجيل بريدك بدون أخذ الإذن منكم مسبقاً\n";
print MAIL "أو إذا رغبت لأي سبباً كان الإنسحاب من $listname\n";
print MAIL "قم بزيارة الوصلة التالية $scripturl?action=unsubscribe&submitemail=$thisemail\n";
print MAIL "وسيتم إزالة بريدك من القائمة تلقائياً.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "مع خالص التحية والتقدير،\n\n";
print MAIL "أعضاء $mysite\n\n";
print MAIL "البرمجة\n";
print MAIL "www.ALARB.com\n";
print MAIL "http://www.ALARB.com\n";
print MAIL "الحقوق محفوظة 2000\n";
print MAIL "بواسطة : عبدالعزيز بن قبوس\n";
print MAIL "جميع الحقوق محفوظة.\n";
close (MAIL);

print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=C4E1FF><TR><TD><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>$listname</H2>\n";
print "<H2>تم تسجيل هذا البريد في القائمة</H2>\n";
print "<H3>$thisemail</H3>\n";
print "شكراً لإنضمامك إلى $listname!<P>\n";
print "سوف تتلقى الأخبار والمعلومات من $mysite \n";
print "$listcycle.<P>\n";
print "إذا كنت قد إنضممت إلى $listname عن طريق الخطأ\n";
print "أو قام شخص ما بتسجيل بريدك بدون أخذ الإذن منكم, أو\n";
print "إذا كنت ترغب لأي سبب في الإنسحاب من $listname<BR>\n";
print "قم بزيارة الوصلة التالية <A HREF=\"$scripturl?action=unsubscribe&submitemail=$thisemail\">$scripturl?action=unsubscribe&submitem ail=$thisemail</A><BR>\n";
print "وسيتم إزالة بريدك من القائمة تلقائياً.<P>\n";
print "مع خالص التحية والتقدير،<P>\n";
print "أعضاء $mysite<P>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
}

if ($already) {
print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=C4E1FF><TR><TD><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>$thisemail هذا البريد مسجل مسبقاً</H2>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
}
exit;

}

sub unsubscribe {

if ($thisemail !~ /(^([\w\.\-]+)[@]([a-zA-z0-9\.\-]+)[\.]([a-zA-Z]{2,3})$)/ || $thisemail =~ /(\.\.)|(^\.)|(\.@)|(@\.)|(\.$)|(\\)/ || length($thisemail) > 128) {
print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=FF0000><TR><TD ALIGN=CENTER><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>هذا البريد الإلكتروني غير صالح</H2>\n";
print "$thisemail\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;
}

open (FILE, "$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@emaillist = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

open (FILE, ">$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

foreach $emailaddress (@emaillist) {
chomp ($emailaddress);
if ($emailaddress ne $thisemail) {
print FILE "$emailaddress\n";
} else {
$myfound = 1;
}
}
if ($uselock eq '1') {
flock FILE, 8;
}
close (FILE);
if ($myfound) {
open (MAIL,"|$mailprogram -t -oi");
print MAIL "To: $thisemail\n";
print MAIL "From: $myemail\n";
print MAIL "Subject: تم الإنسحاب من $listname\n";
print MAIL "نأسف لإنسحابك من $listname!\n\n";
print MAIL "لن تتلقى الأخبار والمعلومات من $mysite\n";
print MAIL "$listcycle بعد الآن.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "إذا رغبت في الإنضمام إلى $listname مجدداً\n";
print MAIL "قم بزيارة الوصلة التالية $scripturl?action=subscribe&submitemail=$thisemail\n";
print MAIL "وسيتم تسجيل بريدك في القائمة تلقائياً.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "مع خالص التحية والتقدير،\n\n";
print MAIL "أعضاء $mysite\n\n";
print MAIL "البرمجة\n";
print MAIL "www.ALARB.com\n";
print MAIL "http://www.ALARB.com\n";
print MAIL "الحقوق محفوظة 2000\n";
print MAIL "بواسطة : عبدالعزيز بن قبوس\n";
print MAIL "جميع الحقوق محفوظة.\n";
close (MAIL);
print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=C4E1FF><TR><TD><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>$thisemail البريد المنسحب من القائمة</H2>\n";
print "نأسف لإنسحابك من $listname!<P>\n";
print "لن تتلقى الأخبار والمعلومات من $mysite\n";
print "$listcycle بعد الآن.<P>\n";
print "إذا رغبت في الإنضمام إلى $listname مجدداً<BR>\n";
print "قم بزيارة الوصلة التالية <A HREF=\"$scripturl?action=subscribe&submitemail=$thisemail\">$scripturl?action=subscribe&submitemail= $thisemail</A><BR>\n";
print "وسيتم تسجيل بريدك في القائمة تلقائياً.<P>\n";
print "<P>\n";
print "مع خالص التحية والتقدير،<P>\n";
print "أعضاء $mysite<P>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;
} else {
print "Content-type: text/html\n\n";
print "@header\n";
print "<CENTER><TABLE BORDER=1 WIDTH=400 BGCOLOR=C4E1FF><TR><TD><FONT FACE=arial,helvetica SIZE=2>\n";
print "<H2>$thisemail هذا البريد غير مسجل</H2>\n";
print "يبدو أن هناك خطأ ما...\n";
print "هذا البريد الإلكتروني ليس مسجلاً حالياً كعضو في $listname!<P>\n";
print "يبدو أنك تفتقد للأخبار والمعلومات من $mysite\n";
print "$listcycle!<P>\n";
print "إذا رغبت في الإنضمام إلى $listname<BR>\n";
print "قم بزيارة الوصلة التالية <A HREF=\"$scripturl?action=subscribe&submitemail=$thisemail\">$scripturl?action=subscribe&submitemail= $thisemail</A><BR>\n";
print "وسيتم تسجيل بريدك في القائمة تلقائياً.<P>\n";
print "<P>\n";
print "مع خالص التحية والتقدير،<P>\n";
print "أعضاء $mysite<P>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit;
}
}

sub admin {

if ($FORM{'password'}) {
if ($FORM{'password'} eq $adminpass) {

if ($FORM{'sendmessage'}) {

open (FILE, "$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@emaillist = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

$subscribers = @emaillist;

unless (defined($child_pid = fork())) {die "Process Error : $!\n"};

if ($child_pid) {

print "Content-type: text/html\n\n";
print "@header\n";
print "<P><CENTER><TABLE BGCOLOR=990000><TR><TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إدارة القائمة البريدية</B></FONT></TD></TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>تم الإرسال بنجاح</B></FONT><P>\n";
print "<FORM ACTION=$scripturl METHOD=POST><TABLE BORDER=0 BGCOLOR=990000 WIDTH=400><TR><TD BGCOLOR=770000>\n";
print "<FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إرسال بريد إلى القائمة</B></FONT><BR></TD></TR><TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>أضغط 'إرسال' مرة واحدة فقط...قد يستغرق ذلك بضعة دقائق حسب حجم القائمة وسرعة الجهاز الخادم.</B><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>الموضوع :</B></FONT><BR><INPUT TYPE=text NAME=subject VALUE='$listname' SIZE=50><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>الرسالة :</B></FONT><BR><TEXTAREA NAME=listmessage COLS=70 ROWS=10 WRAP=PHYSICAL></TEXTAREA><P></TD></TR>\n";
print "<TR><TD ALIGN=RIGHT><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=sendmessage VALUE=yes><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=submit VALUE=إرسال!></FONT></TD></TR></TABLE></FORM>\n";
print "<TABLE BORDER=0 BGCOLOR=990000 WIDTH=400>\n";
print "<TR><TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>أعضاء القائمة البريدية - <I>$subscribers</I> مشتركين</B></FONT></TD></TR>\n";
print "<TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>يمكنك الإضافة والإزالة من القائمة التالية.<BR>ضع عنوان بريد إلكتروني واحد فقط في كل سطر.<BR>أضغط 'تغيير' مرة واحدة فقط...قد يستغرق ذلك بضعة دقائق حسب حجم القائمة وسرعة الجهاز الخادم.</B><P>\n";
print "<FORM ACTION=$scripturl METHOD=POST><TEXTAREA NAME=oldlist COLS=70 ROWS=10 WRAP=PHYSICAL>\n";

foreach $emailaddress (@emaillist) {
chomp ($emailaddress);
print "$emailaddress\n";
}

print "</TEXTAREA><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=hidden NAME=maintain VALUE=yes></FONT><P></TD></TR>\n";
print "<TR><TD ALIGN=RIGHT><INPUT TYPE=submit Value='تغيير'></FORM><P>\n";
print "</TD></TR></TABLE><P>\n";
print "<TABLE BORDER=0 BGCOLOR=990000 WIDTH=400><TR>\n";
print "<TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إزالة المتكررات</B></FONT></TD></TR>\n";
print "<TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>للتخلص من عناوين البريد المتكررة في القائمة، أضغط المفتاح التالي.</B></FONT><P></TD></TR>\n";
print "<TR><TD ALIGN=CENTER><FORM ACTION=$scripturl METHOD=POST><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=dupecheck VALUE=yes><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=submit VALUE=إزالة!></FORM></TD>\n";
print "</TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";
exit(0);

} else {

close (STDOUT);

$subject = $FORM{'subject'};
$subject =~ s/^\s+//;
$subject =~ s/\s+$//;
foreach $emailaddress (@emaillist) {
chomp ($emailaddress);
$sendcnt++;
unless ($emailaddress eq '' || $emailaddress !~ /(^([\w\.\-]+)[@]([a-zA-z0-9\.\-]+)[\.]([a-zA-Z]{2,3})$)/ || $emailaddress =~ /(\.\.)|(^\.)|(\.@)|(@\.)|(\.$)|(\\)/ || length($emailaddress) > 128) {
open (MAIL,"|$mailprogram -t -oi");
print MAIL "To: $emailaddress\n";
print MAIL "From: $myemail\n";
print MAIL "Subject: $subject\n";
print MAIL "$FORM{'listmessage'}\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "If you have joined $listname by accident or someone else has\n";
print MAIL "joined you without your permission, or\n";
print MAIL "if you ever want to remove yourself from $listname\n";
print MAIL "simply visit $scripturl?action=unsubscribe&submitemail=$emailaddress\n";
print MAIL "and you will be automatically removed.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "إذا كنت قد إنضممت إلى $listname بالخطأ\n";
print MAIL "أو قام شخص ما بتسجيل بريدك بدون أخذ الإذن منكم مسبقاً\n";
print MAIL "أو إذا رغبت لأي سبباً كان الإنسحاب من $listname\n";
print MAIL "قم بزيارة الوصلة التالية $scripturl?action=unsubscribe&submitemail=$thisemail\n";
print MAIL "وسيتم إزالة بريدك من القائمة تلقائياً.\n\n";
print MAIL "--------------------------------------------\n";
print MAIL "البرمجة\n";
print MAIL "www.ALARB.com\n";
print MAIL "http://www.ALARB.com\n";
print MAIL "الحقوق محفوظة 2000\n";
print MAIL "بواسطة : عبدالعزيز بن قبوس\n";
print MAIL "جميع الحقوق محفوظة.\n";
close (MAIL);
}
if ($usesleep !~ 'n' && $sendcnt eq $blocksize) {
sleep $sleeptime;
$sendcnt = 0;
}
}
}
}

if (!$FORM{'sendmessage'}) {

open (FILE, "$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

@emaillist = <FILE>;

if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

if ($FORM{'dupecheck'}) {

foreach $templist (@emaillist) {
chomp($templist);
$testlist = lc($templist);
if ($dupecheck !~ $testlist) {
push (@nodupes, $testlist);
$dupecheck .= $testlist;
}
}
@newlist = @nodupes;

open (FILE, ">$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

foreach $addnew (@newlist) {
print FILE "$addnew\n";
}
if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

@emaillist = @newlist;
}

if ($FORM{'maintain'}) {
@oldlist = split (/\n/, $FORM{'oldlist'});
foreach $oldtemp (@oldlist) {
$oldtemp =~ s/^\s+//;
$oldtemp =~ s/\s+$//;
$oldlist = lc ($oldtemp);
push (@newlist, $oldlist);
}
open (FILE, ">$emailpath");

if ($uselock eq '1') {
flock FILE, 2;
seek FILE, 0, 0;
}

foreach $addnew (@newlist) {
print FILE "$addnew\n";
}
if ($uselock eq '1') {
flock FILE, 8;
}

close (FILE);

@emaillist = @newlist;
}

$subscribers = @emaillist;
print "Content-type: text/html\n\n";
print "@header\n";
print "<P><CENTER><TABLE BGCOLOR=990000><TR><TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إدارة القائمة البريدية</B></FONT></TD></TR></TABLE><P>\n";
print "<FORM ACTION=$scripturl METHOD=POST><TABLE BORDER=0 BGCOLOR=990000 WIDTH=400><TR><TD BGCOLOR=770000>\n";
print "<FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إرسال بريد إلى القائمة</B></FONT><BR></TD></TR><TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>أضغط 'إرسال' مرة واحدة فقط...قد يستغرق ذلك بضعة دقائق حسب حجم القائمة وسرعة الجهاز الخادم.</B><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>الموضوع :</B></FONT><BR><INPUT TYPE=text NAME=subject VALUE='$listname' SIZE=50><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>الرسالة :</B></FONT><BR><TEXTAREA NAME=listmessage COLS=70 ROWS=10 WRAP=PHYSICAL></TEXTAREA><P></TD></TR>\n";
print "<TR><TD ALIGN=RIGHT><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=sendmessage VALUE=yes><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=submit VALUE=إرسال!></FONT></TD></TR></TABLE></FORM>\n";
print "<TABLE BORDER=0 BGCOLOR=990000 WIDTH=400>\n";
print "<TR><TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>أعضاء القائمة البريدية - <I>$subscribers</I> مشتركين</B></FONT></TD></TR>\n";
print "<TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>يمكنك الإضافة والإزالة من القائمة التالية.<BR>ضع عنوان بريد إلكتروني واحد فقط في كل سطر.<BR>أضغط 'تغيير' مرة واحدة فقط...قد يستغرق ذلك بضعة دقائق حسب حجم القائمة وسرعة الجهاز الخادم.</B><P>\n";
print "<FORM ACTION=$scripturl METHOD=POST><TEXTAREA NAME=oldlist COLS=70 ROWS=10 WRAP=PHYSICAL>\n";

foreach $emailaddress (@emaillist) {
chomp ($emailaddress);
print "$emailaddress\n";
}

print "</TEXTAREA><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=hidden NAME=maintain VALUE=yes></FONT><P></TD></TR>\n";
print "<TR><TD ALIGN=RIGHT><INPUT TYPE=submit Value='تغيير'></FORM><P>\n";
print "</TD></TR></TABLE><P>\n";
print "<TABLE BORDER=0 BGCOLOR=990000 WIDTH=400><TR>\n";
print "<TD BGCOLOR=770000><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>إزالة المتكررات</B></FONT></TD></TR>\n";
print "<TR><TD><FONT FACE=arial,helvetica SIZE=2 COLOR=FFFFFF><B>للتخلص من عناوين البريد المتكررة في القائمة، أضغط المفتاح التالي.</B></FONT><P></TD></TR>\n";
print "<TR><TD ALIGN=CENTER><FORM ACTION=$scripturl METHOD=POST><INPUT TYPE=hidden NAME=action VALUE=admin><INPUT TYPE=hidden NAME=dupecheck VALUE=yes><INPUT TYPE=hidden NAME=password VALUE=$FORM{'password'}><INPUT TYPE=submit VALUE=إزالة!></FORM></TD>\n";
print "</TR></TABLE><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";

}



}

if ($FORM{'password'} ne $adminpass) {

print "Content-type: text/html\n\n";
print "@header\n";
print "<P><CENTER><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>PASSWORD BREACH - WEBMASTER HAS BEEN NOTIFIED</B><P>\n";
print "You have been identified as : $ENV{'REMOTE_ADDR'}</FONT>\n";
print "@footer\n";

if ($hacknotify eq 'yes') {

open (MAIL,"|$mailprogram -t -oi");
print MAIL "To: $myemail\n";
print MAIL "From: $myemail\n";
print MAIL "Subject: Attempted Hack!\n";
print MAIL "شخص ما حاول الدخول إلى\n";
print MAIL "إدارة القائمة البريدية\n\n";
print MAIL "الوقت : ".gmtime()." GMT\n";
print MAIL "آي بي : $ENV{'REMOTE_ADDR'}\n";
print MAIL "إدخال : $FORM{'password'}\n\n";
print MAIL "إذا كانت الكلمة المدخلة قريبة من كلمتك الحقيقية ننصح بتغييرها فوراً\n\n";
print MAIL "هذه الرسالة تعتبر خاصية أمان في برنامج القائمة البريدية\n\n";
print MAIL "البرمجة\n";
print MAIL "www.ALARB.com\n";
print MAIL "http://www.ALARB.com\n";
print MAIL "الحقوق محفوظة 2000\n";
print MAIL "بواسطة : عبدالعزيز بن قبوس\n";
print MAIL "جميع الحقوق محفوظة.\n";
close (MAIL);
}

}
}

if (!$FORM{'password'}) {

print "Content-type: text/html\n\n";
print "@header\n";
print "<P><CENTER><FONT FACE=arial,helvetica SIZE=3><B>إدارة القائمة البريدية</B></FONT><P><FORM ACTION=$scripturl METHOD=POST><TABLE BORDER=1 BGCOLOR=990000><TR>\n";
print "<TD><FONT FACE=arial,helvetica SIZE=3 COLOR=FAC700><B>كلمة سر الإدارة :</B></FONT></TD>\n";
print "<TD><FONT FACE=arial,helvetica SIZE=2><INPUT TYPE=password NAME=password SIZE=25><INPUT TYPE=hidden NAME=action VALUE=admin></FONT></TD>\n";
print "</TR></TABLE><INPUT TYPE=submit VALUE=دخول></FORM><P>\n";
print "<FONT FACE=arial,helvetica SIZE=2><B>\n";
print "أضغط هنا <A HREF=$homepage><B>للعودة إلى الصفحة الرئيسية</B></A>.\n";
print "<P></FONT>\n";
print "<TABLE BGCOLOR=999999><TR><TD BGCOLOR=777777 ALIGN=CENTER>\n";
print "<FONT FACE=arial,helvetica COLOR=FFFFFF SIZE=2>\n";
print "البرمجة<BR>\n";
print "<A HREF=http://www.ALARB.com><B>www.ALARB.com</B></A><BR>\n";
print "الحقوق محفوظة 2000<BR>\n";
print "بواسطة : عبدالعزيز بن قبوس<BR>\n";
print "جميع الحقوق محفوظة.<BR>\n";
print "</FONT></TD></TR></TABLE><P>\n";
print "<P></CENTER>\n";
print "@footer\n";

}

exit;
}

_____________

ومشكورين

تفضل
هذا درس عن تركيب القائمة البريدية

http://www.mukay.net/vb/showthread.php3?threadid=48

__________________
التوقيع تحت الانشاء

أبو أبوه

Mr.2000
مشكور على هالوصلة المفيدة ،،،
وذهبت للموقع المذكور ،،، لكن ،،،

لم أعرف ماذا يقصد بهذه:

_____________

ابحث عن التالي:

$headfile = '/home/alarb/alarb-www/cgi-bin/mix/listhead.txt';

$footfile = '/home/alarb/alarb-www/cgi-bin/mix/listfoot.txt';

وقم بتغيير المسار على حسب مسارات موقعك .

إبحث عن هذه :

$emailpath = '/home/alarb/list0001.log';

وضع المسار الصحيح للملف List0001.cgi.

____________

فما هي المسارات لموقعي في f2s ،،، هل أقوم بإنشاء مجلدات؟ أم ماذا؟
واذا كان موقعي هو http://www.wsw.f2s.com
فما هي المسارات؟

وشكراً لكم

مافيه أحد رد

رديت اخوي لانك حطيت الاستفسار في منتدى موقعي نت
شفته قبل مااشوفه هنا

وهذا العنوان

http://www.mukay.net/vb/showthread.php3?threadid=48

تلقى الرد موجود

__________________
التوقيع تحت الانشاء

أبو أبوه

بس كيف دريت؟


تحياتي لك ،،، ومشكور على أهتمامك ،،،
وريحونا الإخوان هناك