sub TextDate {
	
	my ($time) = $_[0];
	my @days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	my @months = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

	$time = time() if ! $time;

	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min < 10)  { $min = "0$min"; }
	if ($sec < 10)  { $sec = "0$sec"; }

	$year += 1900;
	return("$days[$wday] $mday/$months[$mon]/$year \@ $hour\:$min");

}