#!/usr/bin/perl
# Name:  panmeet
# Author: Robin A Marshall - Modified from Andrew Newmans Script.
# Purpose: Display a HTML Page
# History: First written 26th September 1995
#

$user=$ENV{"WWW_username"};
$real_user=$ENV{"REMOTE_USER"};
$home_dir="/usr/local/www/cq-pan";

if ( $user =~ $real_user ) {
  $web_page = "$0.html";
} else {
  $web_page = "$home_dir/administration/wrong_username.html";
}
print "Content-type: text/html\n";
print "\n";
  if (open(HTML_FILE, $web_page)) {
		$line = <HTML_FILE>;
		while (! eof(HTML_FILE)) {
			print ($line);
			$line = <HTML_FILE>;
	}
}