#!/usr/bin/perl
#
# mk_motd
#
# This is a life example how you can make CLX announce a regular
# meeting. Our meeting is on the third Monday of each month.
# Other regular things can be announced here.
#
# Last Change: Thu Mar 19 06:48:27 GMT 1998

$home = (getpwnam('clx_us'))[7];
$motd = "$home/box/info/etc/motd";

if (defined($ARGV[0])) {
	$debug = ($ARGV[0] eq "-d");
} else {
	$debug = 0;
}

open(CLX,"> $motd");
chk_dx_meeting(time);
close(CLX);
if (-z $motd) { unlink $motd; }




sub chk_dx_meeting {

$msg[0] = <<NNNN;;

*** Am kommenden Montag ist wieder DX-Treffen

NNNN

$msg[1] = <<"NNNN";

*** Heute DX-Treffen in Fischerhaeuser und Nuernberg
*** Beginn: ca. 19:30 ME(S)Z

NNNN

	my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
		localtime($_[0]);
	$mon += 1;

	if ($debug) { 
		print "$0: Testmode is on\n";
		print CLX "$0: Testmode is on\n";
		printf CLX "Day/Month/Year: %d/%d/%d (%s)\n",
			$mday,$mon,$year,(Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday];
	}

	if (( $wday==3 && $mday >  9 && $mday < 17 ) ||
	    ( $wday==4 && $mday > 10 && $mday < 18 ) ||
	    ( $wday==5 && $mday > 11 && $mday < 19 ) ||
	    ( $wday==6 && $mday > 12 && $mday < 20 ) ||
	    ( $wday==0 && $mday > 13 && $mday < 21 ) ||
            ( $debug                               )) {
	
		print CLX $msg[0];
	}

	if (( $wday==1 && $mday > 14 && $mday < 22 ) || ($debug))  {
	
		print CLX $msg[1];
	}
}
