From: minima <minima>
Date: Thu, 16 Aug 2001 21:48:52 +0000 (+0000)
Subject: send a forward/opernam for every user that logs in if it hasn't been
X-Git-Tag: R_1_48~102
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=53899d74634af9db8d0b842d68b099972dd849b6;p=spider.git

send a forward/opernam for every user that logs in if it hasn't been
done in the last month
---

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);
+	}
 }
 
 #