#!/home/sol2/bin/perl

##############################################################################
# Basic Random Image Displayer  Version 1.2                                  # 
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 7/1/95                Last Modified 7/20/95                        #
##############################################################################
# Necessary Variables
#  $basedir = "http://www.fiu.edu/~infantc/img/";
$basedir = "http://infantcenter.fiu.edu/Rotating_images/";

  @files = ("cheour_bahrick_lickliter_ID.jpg",
"Cristina_testing_11-11-03.jpg", "DM_building_11-11-03.jpg",
"DPB_lab_staff_11-11-03.jpg", "Dr._Mundy_presenting_11-11-03.jpg",
"Drs._Bahrick_&_Mundy.11-11-.jpg", "Drs._Bahrick_&_Mundy_discus.jpg",
"infant__hammer_web.jpg", "Melinda_&_Katrina_11-11-03.jpg",
"outside_DM_11-11-03.jpg", "baby_quail.jpg",
"center_class_photo2.jpg", "baby_looking_.jpg", "baby_socks_setup.jpg", 
"infant_set_up_IMG.jpg");


# Options
  $uselog = 0; # 1 = YES; 0 = NO
        $logfile = "img_roll_log.log";

# Done
##############################################################################

srand(time ^ $$);
$num = rand(@files); # Pick a Random Number

# Print Out Header With Random Filename and Base Directory
print "Location: $basedir$files[$num]\n\n";

# Log Image
if ($uselog eq '1') {
    open (LOG, ">>$logfile");
    print LOG "$files[$num]\n";
    close (LOG);
}