'initializes on power up,

	pause 100	'100mS

	low 0		'sets remote signal LED (pin 7) to "not present"

	low 1		'sets activity (pin 6) to "no activity"

	b0 = 50 	'sets accumulator count to 50

	b1 = 0	'sets accumulator output to 0

	b2 = 0	'sets cycle delay memory to 0
	

power_check:	

	if pin3 = 1 then  'IF input 3 (pin 4) high, (this comes from PIC#2)

	low 1    ' resets output latch,  (pin 6) low

	endif
	
	if pin2 = 1 then  'if input 2 (pin 5) high (high here indicates power OK)
	
	goto execute
	
	else
	
	pause 100
	
	goto power_check
	
	endif


execute:	

	pause 100 'milliseconds, establishes sample rate at about 10 per second

	ReadADC10 4, W5	'reads voltage on input 4 (pin 3) from the RFD21733 receiver

	if W5 < 340 then	'less than about 1.65 volts, (half of 3.3 volts)

	b0 = b0 - 1		'discharges accumulator (b0), approx 20 second discharge (4 seconds on powerup)   

	else b0 = b0 + 10	'charges accumulator; charge rate 10 times faster than discharge rate

	endif

	if b0 > 240 then	'limits max value b0 to 240

	b0 = 240

	endif

	if b0 < 10 then	'limits min value b0 to 10

	b0 = 10

	endif

	if b0 > 60 then	'accumulator output toggles high

	b1 = 1

	high 0	'remote signal present, (pin 7) 

	elseif b0 < 40 then	'accumulator output toggles low

	b1 = 0

	low 0		'remote signal not present (pin 7)

	endif

	if b2 > b1  then  'this comparison looks for a 1 to 0 transition  ("activity")

	high 1	'sets output latch ("activity detected") (pin 6)
 
	endif
	
	b2 = b1	'shifts contents of b1 to b2, retains the state of b1 for comparison in the next cycle

	goto power_check   'restarts check/sample/accumulate cycle

main:

	serin 3, N2400, ("c="), b0 'waits here for input from computer, gets character after qualifier ("c=") 

	if b0 = "d" then 'looks for "d" 

	high 4	'(pin 3) lights "polling" LED
	
	if pin1 = 1 then  'gets input from latch, on pin 6
	
	serout 0, N2400, ("1", 13)  'sends ASCII chr "1" to computer; 13 is CR,
	
	high 2  'sets output 2 high, resets latch in PIC #1

	pause 200  '200ms

	low 2  'sets output 2 low

	else serout 0, N2400, ("0", 13)  'sends ASCII "0" to computer; 13 is CR

	endif

	pause 300

	low 4		'extinguishes 'poll' LED
	
	endif

	goto main

use strict;

use warnings;
 

my $time = time;  #gets current time (computer time in seconds)

my $stoptime = $time + 2;	#adds 2 seconds

my @recipients;  #list of email recipients

my $subject;	#subject line of the email

my $senddata;	#this will be the email message body

my $status;		#status (1/0) of PICAXE interface latch

	

use Win32::SerialPort;


my $Sport = Win32::SerialPort->new('COM4');  #this creates an object, named $Sport,
						#that provides a connection to COM4
						#make this any available COM port you like

$Sport->baudrate(2400);		#configures serial port
$Sport->parity('none');
$Sport->databits(8);
$Sport->stopbits(1);
$Sport->handshake('none');
$Sport->write_settings;



sub get_status($)  {		#subroutine gets status of monitor interface latch (PICAXE #1)

	$Sport->write("c=d");	#sends command to interface, "c=" is qualifier, "d" is command

	$_ = '';			#clears (sets to 'nothing')

	do {		#this will stop the program if it does not hear back from the interface within 2 seconds

	$time = time;	#gets computer time

	if ($time >= $stoptime)  {		#if current time greater than or equal to stoptime,
	
	die "no response from interface";

	}

	$_ .= $Sport->read(1);	#reads serial port chr, ".=" means concatinate
	
	}

	while (!/\r/);    	#until carriage return (\r) received

	return $_;		#ends do-while loop, returns value

	}
	
	
$_ = get_status ("");		#calls the get_status subroutine above

$_ =~ (s/\r//);			#gets rid of the CR - substitutes '\r' with ''(nothing)

$status = $_;

undef $Sport;		#destroys serial port object

if ($status != 1)   {   #if not "1", ie, if latch not set

no_activity();   #calls no_activity sub

}

else   {

normal_activity();   #calls normal_activity sub

}

	

sub no_activity    {	#sends "no activity" email

	
	@recipients = ("intendedrecipient\@whatever.com","somebodyelse\@wherever.com");  #address of
				#'intended recipient'and 'somebody else', 'somebody else' optional,
				#any number can be added, separate addresses with commas, must be valad addresses
				#note added backslash "\" before "@" must be present (very important)

	$subject = "Dad: NO ACTIVITY :(";		#or whatever you want here

	$senddata = "NO ACTIVITY RECORDED LAST 12 HOURS! Check on dad!  :(";	#email message body
										#your message here

	send_email();	#calls send_email sub
	
	
	}
	
	

sub rpt_interval_start   {		#get reporting interval start time  (from time_ref.txt file)
	
	open (my $fh, "<", "path/time_ref.txt");  #$fh is "file handle", opens for read
	
	while (<$fh>)  {		#reads interval start time, "<>" means readline until \r
	
	return $_;
	
	}
	
	close $fh;
	
	}



	
sub normal_activity    {

	$_ = rpt_interval_start();		#gets interval start time from rpt_interval_start sub above

	if  ($time > ($_ + 600000))  {   #if one week has passed (1 week = 604800 seconds) sends "normal activity" email

	
	@recipients = ("intendedrecipient\@whatever.com","somebodyelse\@wherever.com");	
			#address of 'intended recipient' and 'somebody else' (as many as you like)
			#(may be differerent from @recipients in no_activity sub above)
			#somebody elses optional, separate addresses with commas,
			#must be valid addresses
			#note backslashes "\" before "@" (very important)


	$subject = "Dad: Normal activity";	#or whatever

	$senddata = "Normal activity noted, last 7 days.  :)";	#email message body

	send_email();		#calls email sub, "()" needed to keep 'strict' above happy

	}

	}



sub send_email  {

	use Net::SMTP;
 
	my $smtp = Net::SMTP->new('smtp.gmail.com', SSL => 1, Debug => 1);  #Googlemail requires SSL
 
	$smtp->auth('[email protected]', 'app password');	#Gmail requires authorization
	
							#you must have a gmail account, 
							#The account holder must create a 16-digit 'app password'
							#see: https://support.google.com/accounts/answer/185833?hl=en

	$smtp->mail('[email protected]');

	$smtp->recipient(@recipients);

	$smtp->data();
	$smtp->datasend('From: You '."\n");
	$smtp->datasend('To: Recipient Name'."\n");
	$smtp->datasend('Cc: Somebody Else'."\n");
	$smtp->datasend("Subject: $subject\n");
	$smtp->datasend("\n");  #end of header
	$smtp->datasend("$senddata\n");
	$smtp->datasend("");
	$smtp->dataend();
	$smtp->quit;

	write_current_time();		#calls write_current_time sub

	}


sub write_current_time  	{	#writes current time (interval start time) to time_ref.txt file,
					#starts new reporting interval
	
	open (my $fh, '>', 'path/time_ref.txt');  #opens file for write (overwrite)
	
	print $fh "$time\r";	#writes current time to file
	
	close $fh;
	
	}