From 53899d74634af9db8d0b842d68b099972dd849b6 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 16 Aug 2001 21:48:52 +0000
Subject: [PATCH] send a forward/opernam for every user that logs in if it
 hasn't been done in the last month

---
 Changes               | 3 +++
 perl/DXCommandmode.pm | 7 +++++++
 2 files changed, 10 insertions(+)

diff --git a/Changes b/Changes
index fbe3c8f6..cba15c03 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+16Aug01=======================================================================
+1. send a forward/opernam for a logged in user once a month (when they next
+login).
 15Aug01=======================================================================
 1. fix problem with talks not coming out anymore
 13Aug01=======================================================================
diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 2f3d85f2..8dcb9b6c 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -125,6 +125,13 @@ sub start
 	
 	$self->tell_login('loginu');
 	
+	# do we need to send a forward/opernam?
+	my $lastoper = $user->lastoper || 0;
+	my $homenode = $user->homenode || ""; 
+	if ($homenode eq $main::mycall && $lastoper < $main::systime + $DXUser::lastoperinterval) {
+		run_cmd($DXProt::me, "forward/opernam $call");
+		$user->lastoper($main::systime);
+	}
 }
 
 #
-- 
2.34.1