CGIについての質問です。以下は登録者に誕生日の前月28日にメールを配信するCGIの一部です。これを誕生日の当月25日に配信するにはどこを修正すればよいでしょうか？お力をお借りできれば幸いです。

500文字の制限があるため全てを記載できませんでした。誕生日の当月25日に送る仕様で間違いありません。以下が全CGIです。

CGI

----

require './jcode.pl';

require './conf/conf.pl';

$datefile = "./monthdate.txt";

$mailcontents = './conf/monthmail.txt';

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + ($timediff * 60 * 60));

$mon++;

#if ($mon < 10) { $mon = "0$mon"; }

#if ($mday < 10) { $mday = "0$mday"; }

$tday = "$mon/$mday";

$tday2 = "$mon月$mday日";

open (DATA,"$datefile");

$setday = <DATA>;

($mondata,$daydata,) = split(/\,/,$setday);

$day= "$mondata/$daydata";

close (DATA);

if ($day eq "$tday") {

open (DATA,">$datefile");

flock(DATA,2);

$mondata++;

if($mondata eq "13"){$mondata = 1;}

$regday="$mondata\,$daydata\,";

print DATA $regday;

close (DATA);

flock(DATA,8);

&sub1;

}

print "Content-type: image/gif\n\nGIF89a\1\0\1\0\200\0\0\0\0\0\0\0\0!\371\4\1\0\0\0\0,\0\0\0\0\1\0\1\0\0\2\2D\1\0\n";

exit;

sub sub1{

open(DF,"$mailcontents");

@DATAM = <DF>;

close(DF);

foreach $linem (@DATAM) {

$mailtext ="$mailtext$linem";

}

open (DB,"$database");

@DATA = <DB>;

close(DB);

foreach $line (@DATA) {

($name,$email,$birth1,$birth2,) = split(/\,/,$line);

if ($mondata eq "$birth1") {

&mailcheck;

if ($errorh eq "0") {&sub2;}

}

}

&sub3;

}

sub sub2{

open(MAIL,"|$sendmail $email");

&jis("Subject: $mailtitle"); print MAIL "$msg\n";

print MAIL "To: $email\n";

print MAIL "From: $myaddress\n";

print MAIL "\n";

$message = <<END_OF_MESSAGE;</p>

$name様

$mailtext

END_OF_MESSAGE

&jcode'convert(*message,'sjis');

print MAIL "$message";

close(MAIL);

$tosendall="$tosendall$name,$email,誕生日:$birth1/$birth2\n";

}

sub sub3{

open(MAIL,"|$sendmail $myaddress");

&jis("Subject: $mon月の誕生日処理完了"); print MAIL "$msg\n";

print MAIL "To: $myaddress\n";

print MAIL "From: $myaddress\n";

print MAIL "\n";

$message = <<END_OF_MESSAGE;</p>

$mon月（$birth1月に誕生日を迎える方）の誕生日処理正常に終わりました

【送信日】

$tday2

【メール送信先】

$tosendall

【メール文】

$mailtext

END_OF_MESSAGE

&jcode'convert(*message,'sjis');

print MAIL "$message";

close(MAIL);

}

sub mailcheck{

$errorh = "0";

$xx =$email;

&transmail;

$email = $xx;

@email2 = split(/\@/,$email);

@email3 = split(/\./,@email2[1]);

unless($email =~ /.+\@.+\..+/){$errorh = "1";}

if($email =~ /[^a-zA-Z0-9_\@\.\-]/){$errorh = "1";}

if($email =~ /[^a-zA-Z]$/){$errorh = "1";}

if(@email3[0] eq "") {$errorh = "1";}

if(@email3[1] eq "") {$errorh = "1";}

if(@email3[4] ne "") {$errorh = "1";}

if(@email3[2] ne "") {

if(@email3[2] =~ /[^a-zA-Z]/){$errorh = "1";}

}

if(@email3[3] ne "") {

if(@email3[3] =~ /[^a-zA-Z]/){$errorh = "1";}

}

if ($email eq "") {$errorh = "1";}

}

sub transmail{

$from='[＠０１-９Ａ-Ｚａ-ｚ．＿－]';

$to='[@01-9A-Za-z._-]';

&jcode'convert(*xx, 'euc');

&jcode'convert(*from, 'euc');

&jcode'convert(*to, 'euc');

&jcode'tr(*xx, $from, $to);

&jcode'convert(*xx, 'sjis');

}

sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); }

conf.pl

----------------

$mailtitle = "誕生日おめでとうございます";

$myaddress = "abc\@abc.net";

$timediff = '0';

$database = './conf/member.txt';

$sendmail = '/usr/sbin/sendmail';

member.txt

----------------

織田　信長,aaa@bbb.com,6,11,

豊臣　秀吉,ccc@ddd.com,12,20,

monthdate.txt

----------------

9,28,

monthdate.txtは前月28日に配信した時点で翌月の28日の配信日に自動的に変更されます。

これがこのCGIの機能です。

この機能を活用して誕生日当月25日に自動配信するようにしたいのです。

monthdate.txtの内容を書き換えるのではなく、あくまでCGIを変更して毎月誕生日当月の25日に送るようにしたいと考えております。

従って現在9月であればmonthdate.txtの内容は8月25日に配信後9,25,に書き換わるようにしたいのです。

ご回答ありがとうございました。希望通りの動作を確認できました。大変感謝しております。