Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
#!/usr/bin/perl
use POSIX;
$targetyear=2008-1900;
$targetday=5; # Friday
# Find first $targetday of the year
for ($mday=1; $mday<=7 && $wday !=$targetday; $mday++) {
$time_t = POSIX::mktime( 0, 0, 0, $mday, 0, $targetyear );
(undef,undef,undef,undef,undef,$year,$wday,$yday,undef) = localtime($time_t);
}
# Print date every 7 days until end of the year
do {
print strftime "%m/%d/%Y\n",localtime $time_t;
$time_t = POSIX::mktime( 0, 0, 0, $mday+7, $mon, $year );
(undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime($time_t);
} until ($year != $targetyear)