12. added an 'auto rcmd <node> for/oper <call>' for people I can see on the

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 2bd140348cf1994163ace77be621310475c0c0fd..6b1db816665c46f276cb5b3662b8918cc29db299 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -19,11 +19,12 @@ use IO::File;
 use DXDebug;
 
 use strict;
-use vars qw(%u $dbm $filename %valid);
+use vars qw(%u $dbm $filename %valid $lastoperinterval);
 
 %u = ();
 $dbm = undef;
 $filename = undef;
+$lastoperinterval = 30*24*60*60;
 
 # hash of valid elements and a simple prompt
 %valid = (