#!/usr/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                        #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# Basic Random Image may be used and modified free of charge by anyone so    #
# long as this copyright notice and the comments above remain intact.  By    #
# using this this code you agree to indemnify Matthew M. Wright from any     #
# liability that might arise from it's use.                                  #  
#                                                                            #
# Selling the code for this program without prior written consent is         #
# expressly forbidden.  In other words, please ask first before you try and  #
# make money off of my program.                                              #
#                                                                            #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium.  In all cases copyright and header must remain intact.#
##############################################################################
# Necessary Variables
  $basedir = "/agro/Pics/";
  @files = ("acc_logo1.JPG",
"acc_logo2.JPG",
"agro15now.JPG",
"agro_b1_1.JPG",
"agro_b1_2.JPG",
"agro_bogey.JPG",
"agro_full.JPG",
"antburger.JPG",
"antics1.JPG",
"antics2.JPG",
"any_money1.JPG",
"any_money2.JPG",
"april_fool01.JPG",
"april_fool02.JPG",
"april_fool03.JPG",
"april_fool04.JPG",
"april_fool05.JPG",
"april_fool06.JPG",
"april_fool07.JPG",
"april_fool08.JPG",
"april_fool09.JPG",
"april_fool10.JPG",
"barbeque1.JPG",
"barbeque2.JPG",
"barbeque3.JPG",
"barbeque4.JPG",
"barbeque5.JPG",
"barbeque6.JPG",
"barbeque7.JPG",
"barbeque8.JPG",
"bbc_jetson.JPG",
"biiigkiss1.JPG",
"biiigkiss2.JPG",
"bkstreet.JPG",
"blades_1.JPG",
"blades_2.JPG",
"blades_3.JPG",
"blades_4.JPG",
"blades_5.JPG",
"blades_6.JPG",
"boyfriend01.JPG",
"boyfriend02.JPG",
"boyfriend03.JPG",
"boyfriend04.JPG",
"boyfriend05.JPG",
"boyfriend06.JPG",
"boyfriend07.JPG",
"boyfriend08.JPG",
"brady_hair.JPG",
"bulldog.JPG",
"calcutta.JPG",
"club_buggery1.JPG",
"club_buggery2.JPG",
"club_buggery3.JPG",
"collection1.JPG",
"collection2.JPG",
"coughing.JPG",
"counter_n_logies.JPG",
"crap_acting1.JPG",
"crap_acting2.JPG",
"crap_acting3.JPG",
"crap_acting4.JPG",
"cream_off.JPG",
"crikey_close.JPG",
"crikey_wheel.JPG",
"cute_agro.JPG",
"dolly_parton1.JPG",
"dolly_parton2.JPG",
"dorothy.JPG",
"dumped00.JPG",
"dumped01.JPG",
"dumped02.JPG",
"dumped03.JPG",
"dumped04.JPG",
"eemail01.JPG",
"eemail02.JPG",
"eemail03.JPG",
"eemail04.JPG",
"eemail05.JPG",
"eemail06.JPG",
"eemail07.JPG",
"eemail08.JPG",
"eemail09.JPG",
"eemail10.JPG",
"eemail11.JPG",
"eemail12.JPG",
"electric_hair.JPG",
"epilady1.JPG",
"epilady2.JPG",
"epilady3.JPG",
"fa_cup.JPG",
"firestarter.JPG",
"fishface.JPG",
"flexible_agro.JPG",
"flowery.JPG",
"flyaway.JPG",
"fulwood.JPG",
"funny_hair1.JPG",
"funny_hair2.JPG",
"funny_hair3.JPG",
"funny_hair4.JPG",
"funny_hair5.JPG",
"gibbo_at_home.JPG",
"glubglub.JPG",
"goodmorning1.JPG",
"goodmorning2.JPG",
"goodmorning3.JPG",
"goodmorning4.JPG",
"goodmorning5.JPG",
"goodmorning6.JPG",
"grease1.JPG",
"grease2.JPG",
"group_newyear1.JPG",
"group_newyear2.JPG",
"group_newyear3.JPG",
"group_newyear4.JPG",
"group_newyear5.JPG",
"group_newyear6.JPG",
"hair_tonic1.JPG",
"hair_tonic2.JPG",
"hair_tonic3.JPG",
"haircut1.JPG",
"haircut2.JPG",
"haircut3.JPG",
"haircut4.JPG",
"hanky1.JPG",
"hanky2.JPG",
"hanky3.JPG",
"hanky4.JPG",
"hanky5.JPG",
"hanky6.JPG",
"heffner.JPG",
"hemp1.JPG",
"hemp2.JPG",
"hemp3.JPG",
"hemp4.JPG",
"holblame.JPG",
"holinvade.JPG",
"holl_voice_01.JPG",
"holl_voice_02.JPG",
"holl_voice_03.JPG",
"holl_voice_04.JPG",
"holl_voice_05.JPG",
"holl_voice_06.JPG",
"holl_voice_07.JPG",
"holl_voice_08.JPG",
"holl_voice_09.JPG",
"holl_voice_10.JPG",
"holl_voice_11.JPG",
"holl_voice_12.JPG",
"hollegs1.JPG",
"hollegs2.JPG",
"hollegs3.JPG",
"hollegs4.JPG",
"holly_desk1.JPG",
"holly_desk2.JPG",
"holly_desk3.JPG",
"holly_desk4.JPG",
"holly_desk5.JPG",
"holly_insane1.JPG",
"holly_insane2.JPG",
"holly_snail.JPG",
"holsmarm.JPG",
"hubba_hubba1.JPG",
"hubba_hubba2.JPG",
"hubba_hubba3.JPG",
"imelda1.JPG",
"imelda2.JPG",
"imelda3.JPG",
"imelda4.JPG",
"jamie_kiss_1.JPG",
"jamie_kiss_2.JPG",
"jamie_kiss_3.JPG",
"jamie_kiss_4.JPG",
"jamie_kiss_5.JPG",
"jamie_kiss_6.JPG",
"jamie_n_agro1.JPG",
"jetsons_logo.JPG",
"jump1.JPG",
"jump2.JPG",
"jump3.JPG",
"jump4.JPG",
"jump5.JPG",
"jump6.JPG",
"just_pinched.JPG",
"kiss_ugly.JPG",
"kissoflife0.JPG",
"kissoflife1.JPG",
"kissoflife2.JPG",
"laffan_address.JPG",
"laffan_hide.JPG",
"leather.JPG",
"liam.JPG",
"liar.JPG",
"lkiss1.JPG",
"lkiss2.JPG",
"lkiss3.JPG",
"logie_gnc1.JPG",
"logie_gnc2.JPG",
"logie_holl.JPG",
"logie_rasa.JPG",
"logie_shot1.JPG",
"logie_shot2.JPG",
"logie_souter.JPG",
"logie_stacey.JPG",
"looks_n_style.JPG",
"lose_logie.JPG",
"mad_scot_1.JPG",
"mad_scot_2.JPG",
"mad_scot_3.JPG",
"magnesia1.JPG",
"magnesia2.JPG",
"magnesia3.JPG",
"magnesia4.JPG",
"megaphone1.JPG",
"megaphone2.JPG",
"megaphone3.JPG",
"melb_zoo.JPG",
"mem96_agro01.JPG",
"mem96_agro02.JPG",
"mem96_agro03.JPG",
"mem96_agro04.JPG",
"mem96_agro05.JPG",
"mem96_agro06.JPG",
"mem96_agro07.JPG",
"mem96_agro08.JPG",
"mem96_agro09.JPG",
"mem96_agro10.JPG",
"mem96_agro11.JPG",
"mem96_agro12.JPG",
"mem96_agro13.JPG",
"mem96_agro14.JPG",
"mem96_agro15.JPG",
"mem96_agro16.JPG",
"mem96_agro17.JPG",
"mem96_rasa01.JPG",
"mem96_rasa02.JPG",
"mem96_rasa03.JPG",
"mem96_rasa04.JPG",
"mem96_rasa05.JPG",
"mem96_rasa06.JPG",
"mem96_rasa07.JPG",
"mem96_rasa08.JPG",
"mem96_rasa09.JPG",
"mem96_rasa10.JPG",
"mem96_rasa11.JPG",
"mem96_rasa12.JPG",
"mem96_rasa13.JPG",
"mem96_rasa14.JPG",
"mem96_rasa15.JPG",
"mem96_rasa16.JPG",
"mem96_rasa17.JPG",
"mem96_rasa18.JPG",
"mem96_rasa19.JPG",
"mem96_rasa20.JPG",
"mem96_rasa21.JPG",
"mem96_rasa22.JPG",
"mem96_rasa23.JPG",
"mem96_rasa24.JPG",
"memories.JPG",
"monika_n_rasa.JPG",
"monikiss.JPG",
"moody.JPG",
"mouth2mouth.JPG",
"neg_reaction.JPG",
"newton.JPG",
"no_bogies.JPG",
"noses01.JPG",
"noses02.JPG",
"noses03.JPG",
"noses04.JPG",
"noses05.JPG",
"noses06.JPG",
"noses07.JPG",
"noses08.JPG",
"noses09.JPG",
"noses10.JPG",
"oblique.JPG",
"optus_cup.JPG",
"oracle01.JPG",
"oracle02.JPG",
"oracle03.JPG",
"oracle04.JPG",
"oracle05.JPG",
"oracle06.JPG",
"oracle07.JPG",
"oracle08.JPG",
"oracle09.JPG",
"oracle10.JPG",
"oracle11.JPG",
"oracle12.JPG",
"oracle13.JPG",
"oracle14.JPG",
"oracle15.JPG",
"outdoor1.JPG",
"outdoor2.JPG",
"outdoor3.JPG",
"pavaroti_1.JPG",
"pavaroti_2.JPG",
"pavaroti_3.JPG",
"pavaroti_4.JPG",
"pavaroti_5.JPG",
"pavaroti_6.JPG",
"pavaroti_7.JPG",
"paykel.JPG",
"pen_pall_large.JPG",
"pen_pall_regular.JPG",
"perisher.JPG",
"personality.JPG",
"pizes_2.JPG",
"plate_o_bugs.JPG",
"prettyone.JPG",
"prizes_tig.JPG",
"pup_food1.JPG",
"pup_food2.JPG",
"pup_food3.JPG",
"pup_food4.JPG",
"pup_food5.JPG",
"ranger_frog.JPG",
"rasa1.JPG",
"rasa2.JPG",
"rasa_agr_kiss.JPG",
"rasa_gift1.JPG",
"rasa_gift2.JPG",
"rasa_green1.JPG",
"rasa_green2.JPG",
"rasa_green3.JPG",
"rasa_green4.JPG",
"rasa_green5.JPG",
"rasa_green6.JPG",
"rasa_green7.JPG",
"rasa_green_hq.JPG",
"rasa_mask.JPG",
"rasa_snack.JPG",
"rasa_tiger2.JPG",
"ratclip1.JPG",
"ratclip2.JPG",
"resolution1.JPG",
"resolution2.JPG",
"resolution3.JPG",
"resolution4.JPG",
"resolution5.JPG",
"resolution6.JPG",
"resolution7.JPG",
"resolution8.JPG",
"resolution9.JPG",
"rose_coloured.JPG",
"sandwich01.JPG",
"sandwich02.JPG",
"sandwich03.JPG",
"sandwich04.JPG",
"sandwich05.JPG",
"sandwich06.JPG",
"sandwich07.JPG",
"sandwich08.JPG",
"sandwich09.JPG",
"sandwich10.JPG",
"sandwich11.JPG",
"sandwich12.JPG",
"sandwich13.JPG",
"sandwich14.JPG",
"sandwich15.JPG",
"sandwich16.JPG",
"sandwich17.JPG",
"sandwich18.JPG",
"sandwich19.JPG",
"sandwich20.JPG",
"sandwich21.JPG",
"scaryface.JPG",
"seven_logo.JPG",
"seven_logo_v2.JPG",
"sillyboys1.JPG",
"sillyboys2.JPG",
"sillyboys3.JPG",
"sillyboys4.JPG",
"sillyboys5.JPG",
"sillyboys6.JPG",
"sillyboys7.JPG",
"sillyboys8.JPG",
"silva_logie.JPG",
"sir_joh.JPG",
"smile_baby1.JPG",
"smile_baby2.JPG",
"smile_baby3.JPG",
"sore_arse1.JPG",
"sore_arse2.JPG",
"spaghetti01.JPG",
"spaghetti02.JPG",
"spaghetti03.JPG",
"spaghetti04.JPG",
"spaghetti05.JPG",
"spaghetti06.JPG",
"spaghetti07.JPG",
"spaghetti08.JPG",
"spaghetti09.JPG",
"spaghetti10.JPG",
"spaghetti11.JPG",
"spaghetti12.JPG",
"spaghetti13.JPG",
"suffocate.JPG",
"summer_dress.JPG",
"surfin_net1.JPG",
"surfin_net2.JPG",
"surprise.JPG",
"talent.JPG",
"team_shot.JPG",
"ten_logo.JPG",
"terrible1.JPG",
"terrible2.JPG",
"terrible3.JPG",
"the_bells.JPG",
"tiedup1.JPG",
"tiedup2.JPG",
"tiedup3.JPG",
"tiger_girl.JPG",
"titles_1.JPG",
"titles_2.JPG",
"titles_3.JPG",
"titles_4.JPG",
"titles_5.JPG",
"titles_6.JPG",
"titles_7.JPG",
"titles_8.JPG",
"titles_9.JPG",
"tony_holly1.JPG",
"tony_holly2.JPG",
"tony_n_holl.JPG",
"tony_n_rasa1.JPG",
"tony_n_rasa2.JPG",
"tony_n_rasa3.JPG",
"twisted.JPG",
"twonines1.JPG",
"twonines2.JPG",
"ugly_pair.JPG",
"valentine.JPG",
"vulcan1.JPG",
"vulcan2.JPG",
"vulcan3.JPG",
"wedding0.JPG",
"wedding1.JPG",
"wedding2.JPG",
"wedding3.JPG",
"wedding4.JPG",
"wedding5.JPG",
"wedding6.JPG",
"wheel_of_fortune.JPG",
"who_dares_grins1.JPG",
"who_dares_grins2.JPG",
"who_dares_grins3.JPG",
"who_dares_grins4.JPG",
"who_dares_grins5.JPG",
"who_dares_grins6.JPG",
"wig_tony1.JPG",
"wig_tony2.JPG",
"wimmin_uniform.JPG",
"wobbles01.JPG",
"wobbles02.JPG",
"wobbles03.JPG",
"wobbles04.JPG",
"wobbles05.JPG",
"wobbles06.JPG",
"wobbles07.JPG",
"wobbles08.JPG",
"wobbles09.JPG",
"wobbles10.JPG",
"wobbles11.JPG",
"wobbles12.JPG",
"zeo.JPG",
"Internet/All_the_Crikeys.jpg",
"Internet/Crew.jpg",
"Internet/Gibbo_Cartoon.jpg",
"Internet/Gibbo_Crikey_NY.jpg",
"Internet/Gibbo_Office.jpg",
"Internet/Logie_Full.jpg",
"Internet/Terasa.jpg",
"Internet/Twonks.jpg",
"Internet/agro.gif",
"Internet/agro2103.jpg",
"Internet/b105.gif",
"Internet/bananas.gif",
"Internet/crew1.gif",
"Internet/crew2.gif",
"Internet/crew3.gif",
"Internet/nudey3.gif",
"Internet/nudey4.gif",
"alogie01.JPG",
"alogie02.JPG",
"alogie03.JPG",
"alogie04.JPG",
"alogie05.JPG",
"alogie06.JPG",
"alogie07.JPG",
"alogie08.JPG",
"alogie09.JPG",
"alogie10.JPG",
"alogie11.JPG",
"alogie12.JPG",
"alogie13.JPG",
"alogie14.JPG",
"alogie15.JPG",
"alogie16.JPG",
"alogie17.JPG",
"alogie18.JPG",
"alogie19.JPG",
"alogie20.JPG",
"alogie21.JPG",
"alogie22.JPG",
"alogie23.JPG",
"alogie24.JPG",
"alogie25.JPG",
"alogie26.JPG",
"alogie27.JPG",
"alogie28.JPG",
"alogie29.JPG",
"alogie30.JPG",
"alogie31.JPG",
"alogie32.JPG",
"alogie33.JPG",
"alogie34.JPG",
"alogie35.JPG",
"alogie36.JPG",
"alogie37.JPG",
"alogie38.JPG",
"alogie39.JPG",
"alogie40.JPG",
"alogie41.JPG",
"alogie42.JPG",
"barbie_doll01.JPG",
"barbie_doll02.JPG",
"barbie_doll03.JPG",
"barbie_doll04.JPG",
"birthday_card01.JPG",
"birthday_card02.JPG",
"birthday_card03.JPG",
"birthday_card04.JPG",
"birthday_card05.JPG",
"birthday_card06.JPG",
"birthday_card07.JPG",
"birthday_card08.JPG",
"birthday_card09.JPG",
"brad_n_holly01.JPG",
"brad_titles.JPG",
"bubbled01.JPG",
"cant_believe01.JPG",
"cant_believe02.JPG",
"cant_believe03.JPG",
"cant_believe04.JPG",
"cant_believe05.JPG",
"cant_believe06.JPG",
"cant_believe07.JPG",
"cant_believe08.JPG",
"cant_believe09.JPG",
"cant_believe10.JPG",
"cant_believe11.JPG",
"cant_believe12.JPG",
"cant_believe13.JPG",
"cant_believe13a.JPG",
"cant_believe14.JPG",
"close_up01.JPG",
"close_up02.JPG",
"close_up03.JPG",
"cross_legged001.JPG",
"cross_legged002.JPG",
"cross_legged003.JPG",
"cross_legged004.JPG",
"cross_legged005.JPG",
"cross_legged006.JPG",
"cross_legged007.JPG",
"cross_legged008.JPG",
"cross_legged01.JPG",
"cross_legged02.JPG",
"cross_legged02a.JPG",
"cross_legged02b.JPG",
"cross_legged03.JPG",
"cross_legged04.JPG",
"dead_agro00.JPG",
"dead_agro01.JPG",
"dead_agro02.JPG",
"dead_agro03.JPG",
"dead_agro04.JPG",
"dead_agro05.JPG",
"foot_up01.JPG",
"foot_up02.JPG",
"foot_up03.JPG",
"foot_up04.JPG",
"foot_up05.JPG",
"foot_up06.JPG",
"foot_up07.JPG",
"foot_up08.JPG",
"foot_up09.JPG",
"holly_celebrate.JPG",
"holly_celebrate2.JPG",
"logies01.JPG",
"low_cut01.JPG",
"punch01.JPG",
"punch02.JPG",
"punch03.JPG",
"punch04.JPG",
"punch05.JPG",
"punch06.JPG",
"punch07.JPG",
"punch08.JPG",
"punch09.JPG",
"punch10.JPG",
"punch11.JPG",
"punch12.JPG",
"punch13.JPG",
"punch14.JPG",
"punch15.JPG",
"rasa_bald01.JPG",
"smurfing01.JPG",
"totty01.JPG",
"totty02.JPG",
"totty03.JPG",
"tv_week_cover01.JPG");

# Options
  $uselog = 0; # 1 = YES; 0 = NO
        $logfile = "/tmp/agro_piclog";

# 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);
}
