projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
26a632f
)
send a forward/opernam for every user that logs in if it hasn't been
author
minima
<minima>
Thu, 16 Aug 2001 21:48:52 +0000
(21:48 +0000)
committer
minima
<minima>
Thu, 16 Aug 2001 21:48:52 +0000
(21:48 +0000)
done in the last month
Changes
patch
|
blob
|
history
perl/DXCommandmode.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index fbe3c8f658211bbd01978c63841e5f80bd82a482..cba15c03fa8f58b65eef86df220114a19fdfbaaa 100644
(file)
--- 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=======================================================================
15Aug01=======================================================================
1. fix problem with talks not coming out anymore
13Aug01=======================================================================
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 2f3d85f23b95492424846bb05acbe4381106deca..8dcb9b6cf9b0b07451199d825fddee6ce451205c 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-125,6
+125,13
@@
sub start
$self->tell_login('loginu');
$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);
+ }
}
#
}
#