Perl: Displaying Server Information

demo · #1 03-02-2005, 05:50 PM

This tutorial will teach you how to display server information with Perl.

Code

Code:

#!/usr/bin/perl
use strict;

print "Content-type: text/html\n\n
<html>
<head>
	<title>Display Server Information</title>
</head>
<body>
	<h1>Server Information</h1>
	<hr>
	<pre>
 *Server Name: *$ENV{SERVER_NAME} #Server Name
 *Server Port: *$ENV{SERVER_PORT} #Server Port
 *Server Software:	$ENV{SERVER_SOFTWARE} #Server Software
 *Server Protocol:	$ENV{SERVER_PROTOCOL} #Server Protocol
	</pre>
	<hr>
	</font>
</body>
</html>";

Notes
- Remember to Chmod File to 0755 or higher
- File must be placed in the CGI-BIN

Example Here

***tacoX*** · #2 03-02-2005, 06:13 PM

I love the tutorial man - a great tutorial for newbies =).