#!/usr/bin/perl #ass3finger.cgi - by Rich Gibson Rich@chilidog.com http://www.chilidog.com #4/13/98 use CGI qw(:standard); $query = new CGI; $query->import_names('R'); print header; print < Finger Results END_OF_TEXT print "

Finger Results

\n"; #data validation if (!$R::fingertype =~ /^[12]/){ #the user is messing with us... $R::fingertype = 1; } #get rid of anything weird in login and hostname $R::login =~ s/[^\w._-]//g; $R::hostname =~ s/[^\w\._-]//g; if ($R::hostname =~ /^.+$/) { $R::hostname = "\@$R::hostname"; } #now do it: if ($R::fingertype == 2){ $fparam = '-l'; } else { $fparam = ""; } print "Fingering $fparam $R::login$R::hostname
\n"; $fresult = `finger $fparam $R::login$R::hostname `; print "

$fresult

\n";