From:	CRDGW2::CRDGW2::MRGATE::"SMTP::SPCVXA.SPC.EDU::POSTMAST" 25-MAR-1992 18:18:20.09
To:	ARISIA::EVERHART
CC:	
Subj:	Two suggestions for Finger

From:	postmast@spcvxa.spc.edu@SMTP@CRDGW2
To:	EVERHART@ARISIA@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.123)
	 id AA13119; Wed, 25 Mar 92 17:39:42 EST
Resent-From: postmast@spcvxa.spc.edu
Received: from spcvxa.spc.edu by spcvxa.spc.edu (PMDF #12700) id
 <01GI2IMH3V1W94E240@spcvxa.spc.edu>; Wed, 25 Mar 1992 17:33 EST
Received: from CRNLNS.BITNET (SMTPUSER@CRNLNS) by spcvxa.spc.edu (PMDF #12700)
 id <01GI2IK0IALC94E3VV@spcvxa.spc.edu>; Wed, 25 Mar 1992 17:31 EST
Received: from LNS62.TN.CORNELL.EDU by lns61.tn.cornell.edu (PMDF #12655) id
 <01GI2EN5OQG09OCZVE@lns61.tn.cornell.edu>; Wed, 25 Mar 1992 15:39 EST
Received: from LNS62.TN.CORNELL.EDU by LNS62.TN.CORNELL.EDU (PMDF #12655) id
 <01GI2EMJIC5S9S3UYE@LNS62.TN.CORNELL.EDU>; Wed, 25 Mar 1992 15:38 EST
Resent-Date: Wed, 25 Mar 1992 17:33 EST
Date: Wed, 25 Mar 1992 15:38 EST
From: "Selden E. Ball, Jr." <SEB@LNS62.TN.CORNELL.EDU>
Subject: Two suggestions for Finger
To: TERRY <TERRY@spcvxa.spc.edu>, i-finger <i-finger@spcvxa.spc.edu>
Errors-To: postmast@spcvxa.spc.edu
Resent-Message-Id: <01GI2IMH3V1W94E240@spcvxa.spc.edu>
Message-Id: <01GI2EMJIC5S9S3UYE@LNS62.TN.CORNELL.EDU>
X-Organization: St. Peter's College, US
X-Vms-To: IN%"TERRY@SPCVXA.BITNET",IN%"i-finger@SPCVXA.BITNET"
X-Vms-Cc: SEB

Terry,
 
Thanks a lot for the new version of Finger (v51.1.29) !
 
Here are two suggested modifications related to terminal information:
 
A. DECterms aren't recognized if you are running
   DECwindows Motif. It uses a new terminal device (FT).
 
B. Terminal port name information should be shown if that field
   would otherwise be empty.
 
Below are the Diffs to FINGER.FOR to support these.
 
Thanks, again,
 
Selden E. Ball, Jr.
 
Cornell University                 Voice: +1-607-255-0688
Laboratory of Nuclear Studies        FAX: +1-607-255-8062
Wilson Synchrotron Lab            BITNET: SEB@CRNLNS
Judd Falls & Dryden Road        Internet: SEB@LNS61.TN.CORNELL.EDU
Ithaca, NY, USA 14853-8001   HEPnet/SPAN: LNS61::SEB = 44283::SEB
----------
************
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;167
  192   c       v51.1.29a       Mods at CLNS - Treat terminal device FTA as DECt
   erm
  193   c                       By Selden Ball    25-Mar-1992
  194   c       v51.1.29b       Mods at CLNS - always request terminal port name
  195   c                       By Selden Ball    25-Mar-1992
  196
  197   C       This routine can be called locally or via a network object.
******
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;164
  192   C       This routine can be called locally or via a network object.
************
************
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;167
  206           1       /'VAX/VMS Finger: Version V51.1.29b of 25-Mar-1992'/
  207           Common  /Version_Common/ VersionMsg
******
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;164
  201           1       /'VAX/VMS Finger: Version V51.1.29 of 16-Jan-1992'/
  202           Common  /Version_Common/ VersionMsg
************
************
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;167
 2790           ElseIf ( Terminal(1:2) .eq. 'FT' ) then !*LNS* 29a
 2791               Get_Location = 'DECterm window'
 2792           ElseIf ( Terminal(1:2) .eq. 'QT' ) then
******
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;164
 2785           ElseIf ( Terminal(1:2) .eq. 'QT' ) then
************
************
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;167
 2853
 2854   c*lns*29b  one final try: more than lat lines return terminal port info
 2855           if (get_location .eq. ' ') then
 2856           terminal = '_' // terminal
 2857           status = Lib$GetDVI(DVI$_TT_AccPorNam,,Terminal,,
 2858        1               TT_AccPorNam,L_TT_AccPorNam)
 2859
 2860           terminal = terminal(2:len(terminal))
 2861           slash = index(TT_AccPorNam,'/')
 2862           If (Status) then
 2863            If (slash.gt.0) then
 2864             Server = TT_AccPorNam(1:slash-1)
 2865             Port = TT_AccPorNam(slash+1:slash+9)
 2866             Get_Location = Server(:Btrim(Server)) // ' ' //
 2867        1              Port(:Btrim(Port))
 2868            else   ! use terminal port name
 2869             Get_location = TT_AccPorNam(1:btrim(TT_AccPorNam))
 2870            endif
 2871           endif
 2872           endif
 2873
 2874           Return
 2875
 2876           End
******
File _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;164
 2846           Return
 2847           End
************
 
Number of difference sections found: 4
Number of difference records found: 31
 
DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=_$2$DUA0:[SYSSRC.FINGER.29]FINGER.DIF;1-
    _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;167-
    _$2$DUA0:[SYSSRC.FINGER.29]FINGER.FOR;164
