#!/usr/bin/perl
############################################################################
# Copyright 2000 by AltBlue [IRL: Marius Feraru]                           #
# All rights reserved                                                      #
#                                                                          #
# Distribute freely, except:                                               #
# * don't remove my name from the source or documentation                  #
#    (don't take credit for my work)                                       #
# * mark your changes                                                      #
#    (don't get me blamed for your possible bugs)                          #
# * don't alter or remove this notice.                                     #
#                                                                          #
# No warrantee of any kind, express or implied, is included with this sw.  #
# Use at your own risk, responsibility for damages (if any) to anyone      #
# resulting from the use of this software rests entirely with the user.    #
#                                                                          #
# Send bug reports, bug fixes, enhancements, requests, flames etc., and    #
# I'll try to keep a version up to date.                                   #
#                                                                          #
# I can be reached as follows:                                             #
#   E-Mail: AltBlue <altblue@deathsdoor.com>                               #
# Homepage: http://www.deathsdoor.com/altblue                              #
#      ICQ: 34435556                                                       #
#      IRC: N0i-Net (eg: irc.opsynet.com) channel: #noi                    #
############################################################################
# LAST REVISION: 
#	2000.04.12
##########################  DESCRIPTION  ###################################
# a neat colorizing junk for the output of 'finger' command
#
# ... dedicated to Deneb :)
############################################################################

open(FINGER,"finger |");
while(<FINGER>) {
	$_=~s/^(.+?)\s+((\w+ )+)(.*?)\((.*?)\)/$1\t$2$4($5)/;
	print;
}
close(FINGER);