send a forward/opernam for every user that logs in if it hasn't been

done in the last month
This commit is contained in:
minima 2001-08-16 21:48:52 +00:00
parent 26a632f2e8
commit 53899d7463
2 changed files with 10 additions and 0 deletions

View File

@ -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=======================================================================

View File

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