X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=bfc861de27271aaf7ee0c9cac912d3f41d11f24e;hb=ccd8bcf26e31695caa0c6015e0756eebb2428cb1;hp=47ebcdb044709c46c6bec7689911da5d427847e9;hpb=ba0bc47c95759a369af81fb19556c48261530a79;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 47ebcdb0..bfc861de 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -28,7 +28,7 @@ use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime);
 %u = ();
 $dbm = undef;
 $filename = undef;
-$lastoperinterval = 30*24*60*60;
+$lastoperinterval = 60*24*60*60;
 $lasttime = 0;
 
 # hash of valid elements and a simple prompt
@@ -75,6 +75,7 @@ $lasttime = 0;
 		  lastoper => '9,Last for/oper,cldatetime',
 		  nothere => '0,Not Here Text',
 		  registered => '9,Registered?,yesno',
+		  prompt => '0,Required Prompt',
 		 );
 
 no strict;