"Fred" == Frederick Noronha fred@bytesforall.org writes:
Fred> Could someone help me with this task? I need some scripts Fred> that would help me to search for the type of servers a Fred> particular host is running. (One could use netcraft.com to Fred> find that out, but it would be rather time-consuming.) On Fred> the other hand, scripts which could automate this task would Fred> help me to collect the info and dump those in a file. How Fred> difficult would this task be? Do let me know... FN PS: If Fred> someone could give me cost estimate for writing the script, Fred> I'd be grateful...
You owe me a soda when I'm next in Goa :)
-- Raju
<snip> #!/usr/bin/perl -w # # Script to get HOST header from HTTP servers # # Raj Mathur, Tue Aug 27 07:10:14 IST 2002 # use strict ; use LWP::UserAgent ;
# Check command-line if ( $#ARGV == -1 ) { print STDERR "Nothing to do! Exiting.\n" ; exit ( 1 ) ; }
# Create a UserAgent. This needs to be done only once in the program. my $agent = new LWP::UserAgent ; $agent -> agent ( "OldMonks host header checket v1.0" ) ;
# Process each argument on the command line. foreach my $url ( @ARGV ) { # Create the request. my $request = new HTTP::Request ( HEAD => $url ) ;
# Get the user agent to handle the request and grab the response. my $response = $agent -> request ( $request ) ;
# Was the request successful? if ( !$response -> is_success () ) { print "*** $url: Error " , $response -> code () , "\n" ; next ; }
# Print out identification followed by headers. my $server = $response -> headers () -> {server} ; print "$url: $server\n" ; }
# Done exit 0 ; </snip>