sub Logger()
{
        my $message = $_[0];
        if ( $message eq "" )
        {
        	return;
        }
        &Date();
        $pdmgrdFile = "pdmgrd\.$LOG_NAME";
        $pdmgrdLogPath = "$log$pdmgrdFile";
        open(PDMGRD, ">>$pdmgrdLogPath") || die "Can't open logfile: $pdmgrdLogPath - $!\n";
        print PDMGRD "$LOG_STAMP $message\n";
        close(PDMGRD);
}