#!/usr/bin/perl

# Program:	DummyIdentd
# Description:	A dummy identd written in perl
# Author:       Paul Gregg <pgregg@tibus.net>
# Date:         May 2001
# Summary:      Responds with the same username for every identd request.
# Version:      1.0
# Copyright:    2001, Paul Gregg <pgregg@pgregg.com>
# Copy Policy:  Shareware: Free to copy and distribute provided all code and
		headers are left intact and no charge is made for this program.
		I'm happy to accept small donations (beer money) if you feel
		this software is worth it.
# URL:          http://www.pgregg.com/projects/dummyidentd/

# Installation instructions are at the above URL.


# Change the default ANSWER below to be the userid you want dummyidentd to
# respond with.

$ANSWER = "firewall";

# Read in the string from the connecting client
$in = <STDIN>;
chomp($in);

# Get rid of illegal characters in the string
$in =~ s/ //g;
$in =~ tr/0-9,//cd;
$in =~ s/,/ , /;

# Send the identd response.
printf("%s : USERID : UNIX : %s\n", $in, $ANSWER);

exit 0;