#!/usr/local/bin/perl

#

# UD 1.7: Myst

# Random Red Page Script

#

# COPYRIGHT 1995 AGENCY.COM

# ALL RIGHTS RESERVED

# SINGLE USER LICENSE GRANTED TO THIS WEB SITE ONLY. #

# Revision History

# yyyy/mm/dd

# 1995/11/29 created (jmasur) #

#-------------------------------------------------------------- 



# Includes

#-------------------------------------------------------------- 



require "../../../../../cgi-bin/cgi-lib.pl";



# Global Varibles	SETUP redpage HERE!!

#-------------------------------------------------------------- 



srand(time) ;



@html	=	(

	'process.html',

	'touch.html',

	'willitend.html',

	'history.html',

	'other.html',

);



$choose = int(rand(5));        # $choose is an integer

                                   # between 1 and 5



# Main Program

#-------------------------------------------------------------- 





print &PrintHeader, &PrintFile($html[$choose]);



exit;



# Functions

#--------------------------------------------------------------