X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=6b1db816665c46f276cb5b3662b8918cc29db299;hb=65bf111b2d360cf15aa470020872d593f21e3740;hp=2bd140348cf1994163ace77be621310475c0c0fd;hpb=6c38bca91e6b75002e15cce29c45a894f675e22e;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 2bd14034..6b1db816 100644
--- 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 = (