Date Format for Current Time/Date (English) 1.0 This changes the current date to an ordinary time format and an AM/PM greet for the get_date sub so that it looks better on your board (where Current Time: is .. the tag). Xenomorph, Ze0|ntrus Sources/Subs.pl elsif($curline =~ /\/) { print "$date"; } elsif($curline =~ /\/) { print "$thisday, $thismonth $mday$mday2 at $time$ampm"; } ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset)); $mon_num = $mon+1; $savehour = $hour; $hour = "0$hour" if ($hour < 10); $min = "0$min" if ($min < 10); $sec = "0$sec" if ($sec < 10); $saveyear = ($year % 100); $year = 1900 + $year; $mon_num = "0$mon_num" if ($mon_num < 10); $mday = "0$mday" if ($mday < 10); $saveyear = "0$saveyear" if ($saveyear < 10); $date = "$mon_num/$mday/$saveyear $txt{'107'} $hour\:$min\:$sec"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset)); $mon_num = $mon+1; $savehour = $hour; $hour = "0$hour" if ($hour < 10); $min = "0$min" if ($min < 10); $sec = "0$sec" if ($sec < 10); $saveyear = ($year % 100); $year = 1900 + $year; $mon_num = "0$mon_num" if ($mon_num < 10); $mday = "0$mday" if ($mday < 10); $saveyear = "0$saveyear" if ($saveyear < 10); $date = "$mon_num/$mday/$saveyear $txt{'107'} $hour\:$min\:$sec"; $day = "$mon_num/$mday/$saveyear"; if($hour > 11 && $hour < 24) {$ampm = "PM";} else {$ampm = "AM";} $thisday = $days[$wday]; $thismonth = $months[$mon]; if($mday eq "1" || $mday eq "21" || $mday eq "31") { $mday2 = "st"; } elsif($mday eq "2" || $mday eq "22") { $mday2 = "nd"; } elsif($mday eq "3" || $mday eq "23") { $mday2 = "rd"; } else { $mday2 = "th"; } if($hour > 12 && $hour < 24) { $hour = $hour - 12; } if($hour eq "24" || $hour eq "00") { $hour = "12"; } $time = "$hour:$min";