From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 28-APR-1989 03:57
To:	MRGATE::"ARISIA::EVERHART"
Subj:	Bug in VMS 5.x FINGER

Message-Id:  <8904280244.AA24413@crdgw1.ge.com>
Received: From KL.SRI.COM by CRVAX.SRI.COM with TCP; Thu, 27 APR 89 18:43:13 PDT
Received: from AAMRL.AF.MIL by KL.SRI.COM with TCP; Thu, 27 Apr 89 18:20:10 PDT
Received: from FALCON by AAMRL.AF.MIL; Thu, 27 Apr 89 21:17 EDT
Date: Thu, 27 Apr 89 21:18 EST
From: Ted Nieland - SRL <@AAMRL.AF.MIL:TNIELAND@FALCON>
Subject: Bug in VMS 5.x FINGER
To: info-VAX@kl.sri.COM
X-Vms-To: IN%"info-VAX@kl.sri.com"

Abug in FINGER for VMS 5.0 was found.  The bug is causes problems with reguard 
to users that don't have a mail subdirectory specified in the
VMSMAIL_PROFILE.DATA via the  SET MAIL command in MAIL.  The bug is that when 
you FINGER such a users to check to see if they have any unread messages from 
your, FINGER does not report any even if such messages exist.

The cause of the problem is that the check for specification for the mail 
directory from SET MAIL uses the FORTRAN instrinsic function LEN, but the
variable MAILDIR is not a dynamic variable, but a static one (declared to be 
of length 256) so the test to see if a MAIL directory has been specified is 
always true, even if it is not true.  The resultant string for MAILDIR ends up 
missing the ending bracket ("]") for the directory specification.  

The patch  is just to test the first character of MAILDIR to see if it is not 
a blank (space - ASCII 32).


************
File DECUS$:[SOURCE.FINGER]FINGER.FOR;131
 2021               If (maildir(1:1).NE.' ') Then
 2022   	      i_brak = Index(maildir,'[')
******
File DECUS$:[SOURCE.FINGER]FINGER.FOR;121
 2021               If (len(maildir).gt.0) Then
 2022   	      i_brak = Index(maildir,'[')
************

Number of difference sections found: 1
Number of difference records found: 1

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=USER$DISK2:[TNIELAND]FINGER.DIFF;1-
    DECUS$:[SOURCE.FINGER]FINGER.FOR;131-
    DECUS$:[SOURCE.FINGER]FINGER.FOR;121


Ted Nieland
TNIELAND@AAMRL.AF.MIL

