#!/usr/bin/perl #__________________________________________________________ # # File: MachineInfo # By: Matt Ho # Date: 7/23/95 # Purpose: Display host configuration #__________________________________________________________ $hostname = `/usr/bsd/hostname -s` ; open(DATA, "/sbin/hinv |") || &CantGetInfo ; print < $hostname

System

$hostname

ENDOFTEXT while( ) { ($name, $value) = split(':', $_, 2) ; print < ENDOFTEXT } close(DATA) ; print <

ENDOFTEXT if( defined $ENV{'HTTP_REFERER'} ) { $URL = $ENV{'HTTP_REFERER'} ; print <

ENDOFTEXT } print "\n\n\n" ;

$name	$value