يا شباب عندي موقع في 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;
}
_____________
ومشكورين
