I'm setting up a list for free and pro members.
I want the pro members to be able to mail daily. I have this part working.
I want the free members to only be able to mail every 4 Days to the list.
Using the localtime(time) =
(second,minute,hour,day-of-month,month,year,day-of-week,day-of-year)
Can someone tell me how to code it to only allow it to mail
every 3 days?
Here's the code I already have working. I'm just adding a free members to
mail every 4 Days. I have it checking the LSend file to see when mail was last sent
like this.
if($lastsend eq "$date"){
If work geat for everyday mailings.
But how do I have it check the LSEND to work for every 3 or 4 days?
> my ($sec,$min,$hour,$dom,$mon,$year,$dow,$doy) = localtime;
> if ( not $doy % 3 ) {
> sendmail();
Any light you could shed on this would be great.
Thanks and God Bless
Dan
################# SEND MAIL TO LIST MEMBERS #########################
sub send{
print $q->header;
&checklogin;
&header;
if ($banner eq "yes") {&banner1;}
print qq|
<CENTER>
<FORM ACTION="$htmldir/members.cgi" METHOD="POST">
<font face="$base_font" size="3" color=$txtcolor><b>Send Your Message To The
Entire Safelist Using The Form Below</b>
<p>
<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<TD ALIGN="LEFT"><font face="$base_font"
color="$txtcolor">From:</font></TD>
<TD ALIGN="LEFT"><font face="$base_font" color="$txtcolor">$sub
($first)</font></TD>
</TR>
<TR>
<TD ALIGN="LEFT"><font face="$base_font"
color="$txtcolor">Subject:</font></TD>
<TD ALIGN="LEFT"><INPUT TYPE="TEXT" NAME="subject" SIZE="50"></TD>
</TR>
<TR>
<TD ALIGN="CENTER" COLSPAN="2">
<font face="$base_font" color="$txtcolor">Enter Your Message
Below:</font><br>
<TEXTAREA NAME="message" ROWS="12" COLS="60"></TEXTAREA><br><br>
<INPUT TYPE="HIDDEN" NAME="username" VALUE="$username">
<INPUT TYPE="HIDDEN" NAME="password" VALUE="$password">
</TD>
</TR>
<TR>
<TD COLSPAN="2" ALIGN="RIGHT"><INPUT TYPE="SUBMIT" NAME="action" VALUE="Send
This Message"> </TD>
</TR>
</TABLE>
</FORM>
</font>
</CENTER>
<br>
|;
&footer;
unlink "$cgiroot/data/lsend/addys.txt";
open (NFILE, ">$cgiroot/data/lsend/addys.txt");
flock(NFILE, 2);
opendir (DIR, "$cgiroot/data/members");
@files = grep { /.txt/ } readdir(DIR);
close (DIR);
foreach $file (@files){
open (MEMDATA, "$cgiroot/data/members/$file");flock(MEMDATA, 2);(@memlines)
= (<MEMDATA>);flock(MEMDATA, 8);close (MEMDATA);
foreach $memline (@memlines){
($mempass,$memfirst,$memlast,$mememail,$memsub,$memjoined,$memlastsend,$memc
ode,$memconfirm,$status,$extra2,$extra3) = split (/\|/, $memline);
}
($memuser,@junk) = split (/\./, $file);
if(($status !~ /vacation/i) && ($memcode eq "")){
print NFILE "$memsub|$memfirst|$memuser|$mempass|\n";
}else{}
}
flock(NFILE, 8);
close (NFILE);
exit;
}
################# MAIL MESSAGE TO LIST MEMBERS ######################
sub dosend{
print $q->header;
&checklogin;
&getdate;
&header;
if ($banner eq "yes") {&banner1;}
if($subject eq ""){print qq|<center><b><font face="$base_font"
color="$txtcolor">You forgot to enter a subject! try
again...</font></b></center>|;exit;}
if($message eq ""){print qq|<center><b><font face="$base_font"
color="$txtcolor">You forgot to enter a message! try
again...</font></b></center>|;exit;}
$length=length($message);
if ($length > 2500){
print qq|
<center>
<font face="$base_font" size="3" color=$txtcolor><b>
Your message is too large! Maximum message length is 2500 bytes. Your
message is $length bytes long. Please shorten it, and try again.</b>
</font>
<br></center>|;
exit;}
if($lastsend eq "$date"){
print qq|
<center>
<font face="$base_font" size="3" color=$txtcolor><b>
You cannot send a message right now!</b>
</font>
<br>
<font face="$base_font" color="$txtcolor">You will have to wait at least 24
hours before you can send again.</font>
<br>
<br>
<a
href="$htmldir/members.cgi?action=main&username=$username&password=$password
" style="color:$lnkcolor;">click here to continue</a>
</center>
<br>
|;
exit;
}
if ($status =~ /vacation/i){
print qq|
<center>
<font face="$base_font" size=5 color=$txtcolor><b>
You cannot send a message right now!</b>
</font>
<br>
<font face="$base_font" color="$txtcolor">Your account is in Vacation
status.</font>
<br>
<br>
<a
href="$htmldir/members.cgi?action=main&username=$username&password=$password
" style="color:$lnkcolor;">click here to continue</a>|;
exit;
}
if($code ne ""){
print qq|
<center>
<font face="$base_font" size=5 color=$txtcolor><b>
You cannot send a message right now!</b>
</font>
<br>
<font face="$base_font" color="$txtcolor">You have not validated your
subscription email address yet.</font>
<br>
<br>
<a
href="$htmldir/members.cgi?action=main&username=$username&password=$password
" style="color:$lnkcolor;">click here to continue</a> \|
<a
href="$htmldir/members.cgi?action=resendcode&username=$username&password=$pa
ssword" style="color:$lnkcolor;">resend validation code</a>
</center>
<br>
|;
}else{
print qq|
<center>
<font face="$base_font" size=5 color=$txtcolor><b>
Emailing Results Will Be Displayed Below!</b>
</font><br>
<small><font face="$base_font" color="$txtcolor">Wait until you see "The
Emailing Is Now Complete!" at the bottom, Do not hit refresh!</font></small>
</center>
<br>
<br>
|;
open (LSEND, "$cgiroot/data/lsend/addys.txt");
flock(LSEND, 2);
(@lines) = (<LSEND>);
flock(LSEND, 8);
close (LSEND);
foreach $line (@lines){
($mlist,$mname,$muser,$mpass) = split (/\|/, $line);
open(MAIL,"|$sendmail -t");
print MAIL "Return-path: <$adress>\n";
print MAIL "From: $admin ($listname)\n";
print MAIL "To: $mlist\n";
print MAIL "Reply-To: $sub ($first)\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$top_note\n";
print MAIL
"------------------------------------------------------------------------\n\
n";
print MAIL "$message\n\n";
print MAIL
"------------------------------------------------------------------------\n"
;
print MAIL "$bot_note\n";
print MAIL "To remove yourself from the list,
$htmldir/members.cgi?action=bounced&username=$muser&password=$mpass\n";
close (MAIL);
}
unlink "$cgiroot/data/members/$username.txt";
open (MFILE, ">$cgiroot/data/members/$username.txt");
flock(MFILE, 2);
print MFILE
"$password|$first|$last|$email|$sub|$joined|$date|$code|$confirm|$status|$ex
tra2|$extra3|\n";
flock(MFILE, 8);
close (MFILE);
unlink "$cgiroot/data/lsend/$username.txt";
open (NFILE, ">$cgiroot/data/lsend/$username.txt");
flock(NFILE, 2);
print NFILE "$subject\n\n$message\n";
flock(NFILE, 8);
close (NFILE);
print qq|
<br>
<center><a
href="http:\//businessworldlist.com/members/index.cgi?megasubmitter">
<img src="http://businessworldlist.com/images/bwlbanner.gif"; alt= "Leads,
Leads, Leads!" border="0" width="468" height="60"></a>
<br>
<center>
<font face="$base_font" size=4 color=$txtcolor>The Emailing Is Now
Complete!</font>
<br>
<br>
<a
href="$htmldir/members.cgi?action=main&username=$username&password=$password
" style="color:$lnkcolor;">click here to continue</a>
</center>
<br>
|;
}
&footer;
exit;
}
#################### CHECK CURRENT DATE #############################
sub getdate{
if($_[0] eq ""){
$testtime = time;
}else{
$testtime = $_[0];
}
($sec,$min,$hour,$mday,$mon,$year) = (localtime($testtime))[0,1,2,3,4,5];
$mon = $mon + 1;
if($month eq "1"){$month = "01";}if($month eq "2"){$month = "02";}if($month
eq "3"){$month = "03";}if($month eq "4"){$month = "04";}if($month eq
"5"){$month = "05";}if($month eq "6"){$month = "06";}if($month eq
"7"){$month = "07";}if($month eq "8"){$month = "08";}if($month eq
"9"){$month = "09";}
$year += 1900;
$date = "$mon/$mday/$year";
$date;
}
![http://businessworldlist.com/images/bwlbanner.gif"](http://businessworldlist.com/images/bwlbanner.gif"){kind=link}