#!/usr/local/bin/perl

#

# UD 2.1: Amir

# Random Gallery Page Script

#

# COPYRIGHT 1995 AGENCY.COM

# ALL RIGHTS RESERVED

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

# Revision History

# yyyy/mm/dd

# 1996/04/10 created (jmasur) #

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



# Includes

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



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



# Global Varibles	SETUP GALLERY HERE!!

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



srand(time) ;



@html	=	(

	'gallery01.html',

	'gallery02.html',

	'gallery03.html',

	'gallery04.html',

	'gallery05.html',

	'gallery06.html',

	'gallery07.html',

	'gallery08.html',

	'gallery09.html',

	'gallery10.html',

	'gallery11.html',

	'gallery12.html',

	'gallery13.html',

	'gallery14.html',

);



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

                                   # between 1 and 14



# Main Program

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





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



exit;



# Functions

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