#!/usr/local/bin/perl # Program Name: wserver.cgi # Author: Rajiv Pant (Betul) betul@rajiv.com http://rajiv.org # what web server software is that site running ? # get head information $| = 1 ; print < What web server software is that site running ? EOM &parse_form_data (*INPUT) ; ($server, $port) = ($INPUT{'server'}, $INPUT{'port'}) ; $port = 80 unless $port ; # important. the following variables are passed to a unix command line. # therefore removing any unwanted characters. $server =~ s/[^A-Za-z0-9\.\-]//g ; $port =~ s/\D//g ; &find_out if $server ; &input ; print < Source code for this program. EOM #print < # #EOM open (FOOTER, "/include/footer.inc") ; while (