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