From 53899d74634af9db8d0b842d68b099972dd849b6 Mon Sep 17 00:00:00 2001 From: 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.43.0