package Apache::ServerIndex; use strict; use Apache::Constants qw(:common); sub handler { my $r = shift; $r->send_http_header("text/html"); $r->print(< Server Index

Server Index

EOF for (my $s = $r->server; $s; $s = $s->next) { my $host = $s->server_hostname; my $port = $s->port || 80; my $admin = $s->server_admin; $r->print(<$host - $admin

EOF } $r->print(""); } 1; __END__ PerlModule Apache::ServerIndex PerlHandler Apache::ServerIndex Server Index _________________________________________________________________ romano.cshl.org - dougm crayfish.cshl.org - crayfish@fish.net bluefish.cshl.org - bluefish@fish.net