Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!spool.mu.edu!uwm.edu!ux1.cso.uiuc.edu!pequod.cso.uiuc.edu!dorner From: dorner@pequod.cso.uiuc.edu (Steve Dorner) Newsgroups: comp.sys.mac.comm Subject: Re: MacTCP applications: What's good, what's bad, what's where? Message-ID: <1991May31.130646.19833@ux1.cso.uiuc.edu> Date: 31 May 91 13:06:46 GMT Article-I.D.: ux1.1991May31.130646.19833 References: <1991May30.123805.8504@cc.curtin.edu.au> Sender: usenet@ux1.cso.uiuc.edu (News) Organization: University of Illinois at U-C Lines: 61 In article <1991May30.123805.8504@cc.curtin.edu.au> chooper@cc.curtin.edu.au (Todd Hooper) writes: >Eudora - a great POP client from Steve Dorner at U of Illinois. Some slight > quirks with Sys 7 but nothing major. >I've yet to see - > - a finger client This script will turn Eudora's ph window into a finger window. Finger formats vary a bit; this script is looking for a standard bsd finger. Making it more general would be simple; just delete the line with "/^Login" in it. #!/usr/local/bin/perl # # Written by Steve Dorner, UIUC, 1991. # # This program looks like qi to Eudora's ph window, but really just does # finger. If you don't want to install qi, this will get you at least # a little functionality out of the ph window. # # You'll need this in /etc/services: # ns 105/tcp # And this in /etc/inetd.conf: # ns stream tcp nowait nobody //fingerqi fingerqi # (you must of course make be the path to this script. # # no buffering, please $| = 1; # # grab name, strip lf, sanitize $_ = <>; chop; tr/|;<>//; # # execute finger if (!open(FINGER,"/usr/ucb/finger " . $_ . "|")) { print "500:Botched!\n"; die; } # # pass the response $curNum = 0; while () { chop; if (/^Login name:/) {$curNum++;} printf "-200:" . $curNum . ": ". $_ . "\n"; } print "200:Ok.\n"; # # read and respond to Eudora's quit <>; print "200:Bye.\n"; -- Steve Dorner, U of Illinois Computing Services Office Internet: s-dorner@uiuc.edu UUCP: uunet!uiucuxc!uiuc.edu!s-dorner