############### Add Birthdays to News Fader - Must have Newcalendar 3.7a or later $yymain .= qq~\n~; $usertime = time + (3600 * ($timeoffset + $settings[18]) ); my($bdaymonth,$bmonth,$byear,$bdayweek) = (localtime($usertime))[3,4,5,6]; $bmonth += 1; $byear += 1900; fopen(FILE, "$memberdir/memberbirth.txt"); @birth = ; fclose(FILE); chomp(@birth); $newcali = 0; foreach $bdayline(@birth) { ($usernames, $userdispname, $userbd) = split(/\|/, $birth[$newcali]); if ($userbd ne "") { ($matchm, $matchd, $useryear) = split(/\//, $userbd); if(($bmonth == $matchm) && ($bdaymonth == $matchd)) { ### Add Age $newcalagestring = ''; if( $newcalshowage2 == 1 ) { $newcalage = $byear - $useryear; $newcalagestring = qq~($newcalage)~; } ### End Age $yymain .= qq~fcontent[$i] = "Happy Birthday $userdispname $newcalagestring"\n~; $i++; $newcali++; } } } ############### End Add Birthdays to News Fader