#!/usr/bin/perl require "cgi-lib.pl"; ## paths, binaries ## $url = "/cgi-bin/mmis/finger.pl"; $finger = "/usr/bin/finger"; &ReadParse(*input); print &PrintHeader(); if(&MethGet()){ &InitialForm(); }else{ &Finger; } exit(0); ## Initial form ## sub InitialForm{ print < Finger

Finger

This page allows you to use a finger client and discover information about an em ail address.

Email address:

Email address:

EOM } ## Gets user's name from finger information ## sub Finger{ $email = $input{'email'}; if($email =~ /[^a-zA-Z0-9_\-\.@]/){ $_ = "The email address should on the form user\@server!"; }else{ $_ = qx($finger $email); } print < Finger

Finger: $email

$_
EOM }