X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=9d0a59698170c153a5db6ec4ab77ac124012c878;hb=a253a7d3820e9fb58bca0c2633ba958778ad4c52;hp=00fccde4cddd5f17f0668e55fe935ab6569a1104;hpb=b1a18d5d30863277d5853ce1e483290bc34320c6;p=spider.git

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index 00fccde4..9d0a5969 100644
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -99,11 +99,11 @@ sub normal
 		dbg("Invalid, non-existant or zero time") if isdbg('chanerr');
 		return;
 	}
-	unless ($t < $main::systime - $max_old_age || $t > $main::systime + $max_future_age) {
+	unless ($t > $main::systime - $max_old_age && $t < $main::systime + $max_future_age) {
 		dbg("Too old or too far in the future") if isdbg('chanerr');
 		return;
 	}
-	unless (exists $xref->{id} && ($id = $xref->{id}) >= 0 && $id <= 9999) {
+	unless (exists $xref->{id} && ($id = $xref->{id}) >= 0 && $id <= 999) {
 		dbg("Invalid or non-existant id") if isdbg('chanerr');
 		return;
 	}
@@ -190,7 +190,7 @@ sub toxml
 
 	unless (exists $self->{'-xml'}) {
 		$self->{o} ||= $main::mycall;
-		$self->{t} ||= IsoTime::dayminsec();
+		$self->{t} ||= IsoTime::hourminsec();
 		$self->{id} ||= nextid();
 		
 		my ($name) = (ref $self) =~ /::(\w+)$/;