Too tired to write real code.
Pseudo-code:
use timelocal;
@curTime = localtime;
$curTime[3] = 1; # Set to first of the month
$time = timelocal @curTime; # The 'time' as of the forst of the month
$thisMonth = $curTime[4];
$dayLength = 24*60*60;
do {
@dataToUse = localtime $time;
# do the pushing and formatting here
$time += $dayLength; # Next day
$curMonth = (localtime $time)[4];
} while ($thisMonth eq $curMonth);
Basically, grab the current month. Iterate from the first until the
last by adding 24*60*60 to the $time until (localtime $time)[4] - the
month based on $time - changes.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
