#!/usr/bin/perl
##############################################################################
# SSI Random Image Displayer    Version 1.2                                  # 
# Copyright 1996 Matt Wright    mattw@worldwidemart.com                      #
# Created 7/1/95                Last Modified 11/4/95                        #
# Scripts Archive at:           http://www.worldwidemart.com/scripts/        #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 1996 Matthew M. Wright  All Rights Reserved.                     #
#                                                                            #
# SSI 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.#
##############################################################################
# Define Variables

$basedir = "http://www.desaparecidos.org/arg/victimas/";

@images = ("abriata/small.jpg","adamoli/small.jpg","agosti/small.jpg",
"a/todos/abrahamas.jpg","a/todos/acunams.jpg","a/todos/agorions.jpg","a/todos/aguerots.jpg",
"a/todos/ahumadacs.jpg","a/todos/alarcongs.jpg","a/todos/albornozrs.jpg","a/todos/alderetess.jpg",
"a/todos/almadaes.jpg","a/todos/alonsors.jpg","a/todos/altamiranojs.jpg","a/todos/altamiranols.jpg",
"a/todos/alvarezhs.jpg","a/todos/alvarezds.jpg","a/todos/amarillafs.jpg","a/todos/amatons.jpg",
"a/todos/amaturins.jpg","a/todos/amicoss.jpg","a/todos/angerosads.jpg","a/todos/annonehs.jpg",
"a/todos/antelohs.jpg","a/todos/apazaas.jpg","a/todos/aranedans.jpg","a/todos/araujohs.jpg",
"a/todos/arfars.jpg","a/todos/arfuchjs.jpg","a/todos/ariasss.jpg","a/todos/aroldis.jpg",
"a/todos/arrams.jpg","a/todos/arrechejs.jpg","a/todos/atanasiuls.jpg","a/todos/aspeleiteras.jpg",
"a/todos/aspeleiterns.jpg","a/todos/atimms.jpg",
"t/tatter/small.jpg","b/berti/small.jpg","m/mastinu/small.jpg","b/bena/small.jpg",
"m/medina/small.jpg","mujer.jpg","mujer.jpg","m/micucci/smalld.jpg","m/micucci/smallv.jpg",
"r/rizzom/small.jpg","m/minervini/small.jpg",
"mujer.jpg","a/aredezl/small.jpg",
"c/coboi/small.jpg","l/lianoj/small.jpg","l/lafuente/smalll.jpg",
"l/lafuente/smallm.jpg","l/logares/smallm.jpg","l/logares/smallc.jpg",
"g/galzerano/small.jpg","g/gleyzer/small.jpg","g/gibello/small.jpg",
"m/martinezpereza/small.jpg","m/martinezpereza/smallb.jpg","t/thilman/small.jpg","h/herrerar/small.jpg",
"e/epelbaum/smallc.jpg","e/epelbaum/smalll.jpg","e/epelbaum/smalllu.jpg",
"a/antokoletz/small.jpg","c/cirigliano/small.jpg",
"c/chidichimo/small.jpg","b/bellim/small.jpg",
"a/aimeta/small.jpg","akselman/small.jpg","almeida/small.jpg",
"a/andreani/small.jpg","arancibia/small.jpg","arcuschin/sergio.jpg",
"azurmendi/smalle.jpg","bai/small.jpg","ballestrino/small.jpg",
"boitanoa/small.jpg","boitanom/small.jpg","azurmendi/smalla.jpg",
"bracesco/small.jpg","braverman/small.jpg",
"brito/smallh.jpg","brodsky/small.jpg","brushteina/small.jpg",
"bonapartei/small.jpg","brushteinv/small.jpg","c/cagnonir/small.jpg",
"cardenas/small.jpg","carlotto/small.jpg","cavallo/small.jpg",
"otras/corsi.jpg","cullenl/small.jpg","c/chiappolini/small.jpg",
"chiernajowky/small.jpg","otras/cicco.jpg","d/denis/small.jpg",
"devincenti/small.jpg","dios/small.jpg","cookea/small.jpg",
"e/esain/small.jpg","amuedo/small.jpg","giribaldim/small.jpg",
"giribaldio/small.jpg","grande/small.jpg","gropper/small.jpg",
"imas/small.jpg","israel/small.jpg","i/istueta/small.jpg",
"arcuschin/noemi.jpg","landi/small.jpg","lanzillotto/amsmall.jpg",
"lanzillotto/mcsmall.jpg","libedinsky/small.jpg","lugones/smalll.jpg",
"otras/bena.jpg","mujer.jpg","menna/small.jpg",
"morelf/small.jpg","otras/moretti.jpg","navajas/small.jpg",
"nivoli/small.jpg","oneil/small.jpg","osoriop/small.jpg",
"pasik/small.jpg","pastarini/small.jpg","penas/smalli.jpg",
"penas/smallj.jpg","pernas/small.jpg","mujer.jpg",
"p/poncea/small.jpg","quietos/smallc.jpg","quietos/smallr.jpg",
"requena/small.jpg","ricettia/small.jpg","1.gif","brito/smallp.jpg" ,
"rubino/small.jpg","sabinom/small.jpg","saida/small.jpg",
"saide/smalle.jpg","sancheze/small.jpg","santillan/smallc.jpg",
"sarti/small.jpg","soto/small.jpg","tamayo/small.jpg",
"valdezo/small.jpg","valdueza/smallg.jpg","lugones/smallm.jpg",
"vensentini/small.jpg","valdueza/smallf.jpg","vilte/small.jpg",
"walsh/small.jpg","1.gif","saide/smallc.jpg","zurita/smalla.jpg",
"zurita/smallc.jpg","zurita/smalls.jpg");

@urls = ("http://www.desaparecidos.org/arg/victimas/abriata","http://www.desaparecidos.org/arg/victimas/adamoli/",
"http://www.desaparecidos.org/arg/victimas/agosti/",
"http://www.desaparecidos.org/arg/victimas/a/todos/abrahama.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/acunam.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/agorion.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/aguerot.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/ahumadac.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/alarcong.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/albornozr.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/alderetes.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/almadae.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/alonsor.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/altamiranoj.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/altamiranol.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/alvarezh.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/alvarezd.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/amarillaf.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/amaton.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/amaturin.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/amicos.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/angerosad.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/annoneh.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/anteloh.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/apazaa.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/aranedan.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/araujoh.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/arfar.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/arfuchj.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/ariass.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/aroldi.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/arram.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/arrechej.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/atanasiul.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/aspeleitera.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/aspeleiternj.html",
"http://www.desaparecidos.org/arg/victimas/a/todos/atimm.html",
"http://www.desaparecidos.org/arg/victimas/t/tatter/",
"http://www.desaparecidos.org/arg/victimas/b/berti/",
"http://www.derechos.org/lidlip/grusol/casos/mastinu.htm",
"http://www.derechos.org/lidlip/grusol/casos/villafan.htm",
"http://www.desaparecidos.org/arg/victimas/m/medina/",
"http://www.desaparecidos.org/arg/victimas/m/maddalena/",
"http://www.desaparecidos.org/arg/victimas/m/martinezs/",
"http://www.desaparecidos.org/arg/victimas/m/micucci/",
"http://www.desaparecidos.org/arg/victimas/m/micucci/",
"http://www.desaparecidos.org/arg/victimas/r/rizzom/",
"http://www.desaparecidos.org/arg/victimas/m/minervini/",
"http://www.desaparecidos.org/arg/victimas/h/hietala/",
"http://www.desaparecidos.org/arg/victimas/a/aredezl/",
"http://www.desaparecidos.org/arg/victimas/c/coboi/",
"http://www.desaparecidos.org/arg/victimas/l/lianoj/",
"http://www.desaparecidos.org/arg/victimas/l/lafuente/",
"http://www.desaparecidos.org/arg/victimas/l/lafuente/",
"http://www.desaparecidos.org/arg/victimas/l/logares/",
"http://www.desaparecidos.org/arg/victimas/l/logares/",
"http://www.desaparecidos.org/arg/victimas/g/galzerano/",
"http://www.desaparecidos.org/arg/victimas/g/gleyzer/",
"http://www.desaparecidos.org/arg/victimas/g/gibello/",
"http://www.desaparecidos.org/arg/victimas/m/martinezpereza/",
"http://www.desaparecidos.org/arg/victimas/m/martinezpereza/",
"http://www.desaparecidos.org/arg/victimas/t/thilman/",
"http://www.desaparecidos.org/arg/victimas/h/herrerar/",
"http://www.desaparecidos.org/arg/victimas/e/epelbaum/",
"http://www.desaparecidos.org/arg/victimas/e/epelbaum/",
"http://www.desaparecidos.org/arg/victimas/e/epelbaum/",
"http://www.desaparecidos.org/arg/victimas/a/antokoletz/",
"http://www.desaparecidos.org/arg/victimas/c/cirigliano/",
"http://www.desaparecidos.org/arg/victimas/c/chidichimo/",
"http://www.desaparecidos.org/arg/victimas/b/bellim/",
"http://www.desaparecidos.org/arg/victimas/a/aimeta/",
"http://www.desaparecidos.org/arg/victimas/akselman/",
"http://www.desaparecidos.org/arg/victimas/almeida/",
"http://www.desaparecidos.org/arg/victimas/a/andreani/",
"http://www.desaparecidos.org/arg/victimas/arancibia/",
"http://www.desaparecidos.org/arg/victimas/arcuschin/",
"http://www.desaparecidos.org/arg/victimas/azurmendi/",
"http://www.desaparecidos.org/arg/victimas/bai/",
"http://www.desaparecidos.org/arg/victimas/ballestrino/",
"http://www.desaparecidos.org/arg/victimas/boitanoa/",
"http://www.desaparecidos.org/arg/victimas/boitanom/",
"http://www.desaparecidos.org/arg/victimas/azurmendi/",
"http://www.derechos.org/lidlip/grusol/casos/bracesco.htm",
"http://www.desaparecidos.org/arg/victimas/braverman/",
"http://www.desaparecidos.org/arg/victimas/brito/",
"http://www.desaparecidos.org/arg/victimas/brodsky/",
"http://www.desaparecidos.org/arg/victimas/brushteina/",
"http://www.desaparecidos.org/arg/victimas/bonapartei/",
"http://www.desaparecidos.org/arg/victimas/brushteinv/",
"http://www.desaparecidos.org/arg/victimas/c/cagnonir/",
"http://www.desaparecidos.org/arg/victimas/cardenas/",
"http://www.derechos.org/lidlip/grusol/casos/carlotto.htm",
"http://www.desaparecidos.org/arg/victimas/cavallo/",
"http://www.derechos.org/lidlip/grusol/casos/corsi/",
"http://www.desaparecidos.org/arg/victimas/cullenl",
"http://www.desaparecidos.org/arg/victimas/c/chiappolini/",
"http://www.desaparecidos.org/arg/victimas/chiernajowky/",
"http://www.derechos.org/lidlip/grusol/casos/decicco.htm",
"http://www.desaparecidos.org/arg/victimas/d/denis/",
"http://www.desaparecidos.org/arg/victimas/devincenti/",
"http://www.desaparecidos.org/arg/victimas/dios/",
"http://www.desaparecidos.org/arg/victimas/cookea/",
"http://www.desaparecidos.org/arg/victimas/e/esain/",
"http://www.desaparecidos.org/arg/victimas/amuedo/",
"http://www.desaparecidos.org/arg/victimas/giribaldim/",
"http://www.derechos.org/lidlip/grusol/casos/giribalo.htm",
"http://www.desaparecidos.org/arg/victimas/grande/",
"http://www.desaparecidos.org/arg/victimas/gropper/",
"http://www.desaparecidos.org/arg/victimas/imas/",
"http://www.desaparecidos.org/arg/victimas/israel/",
"http://www.desaparecidos.org/arg/victimas/i/istueta/",
"http://www.desaparecidos.org/arg/victimas/arcuschin/",
"http://www.desaparecidos.org/arg/victimas/landi/",
"http://www.desaparecidos.org/arg/victimas/lanzillotto/",
"http://www.desaparecidos.org/arg/victimas/lanzillotto/",
"http://www.desaparecidos.org/arg/victimas/libedinsky/",
"http://www.desaparecidos.org/arg/victimas/lugones/",
"http://www.derechos.org/lidlip/grusol/casos/marchi.htm",
"http://www.desaparecidos.org/arg/victimas/masri/",
"http://www.desaparecidos.org/arg/victimas/menna/",
"http://www.desaparecidos.org/arg/victimas/morelf/",
"http://www.derechos.org/lidlip/grusol/casos/moretti.htm",
"http://www.desaparecidos.org/arg/victimas/navajas/",
"http://www.derechos.org/lidlip/grusol/casos/nivoli.htm",
"http://www.desaparecidos.org/arg/victimas/oneil/",
"http://www.desaparecidos.org/arg/victimas/osoriop/",
"http://www.desaparecidos.org/arg/victimas/pasik/",
"http://www.derechos.org/lidlip/grusol/casos/pastarin.htm",
"http://www.desaparecidos.org/arg/victimas/penas/",
"http://www.desaparecidos.org/arg/victimas/penas/",
"http://www.desaparecidos.org/arg/victimas/pernas/",
"http://www.desaparecidos.org/arg/victimas/pertierra/",
"http://www.desaparecidos.org/arg/victimas/p/poncea/",
"http://www.desaparecidos.org/arg/victimas/quietos/carlos.html",
"http://www.desaparecidos.org/arg/victimas/quietos/",
"http://www.desaparecidos.org/arg/victimas/requena/",
"http://www.desaparecidos.org/arg/victimas/ricettia/",
"http://www.desaparecidos.org/arg/victimas/masri/",
"http://www.desaparecidos.org/arg/victimas/brito/",
"http://www.desaparecidos.org/arg/victimas/rubino/",
"http://www.desaparecidos.org/arg/victimas/sabinom/",
"http://www.desaparecidos.org/arg/victimas/saida/",
"http://www.desaparecidos.org/arg/victimas/saide/",
"http://www.desaparecidos.org/arg/victimas/sancheze/",
"http://www.desaparecidos.org/arg/victimas/santillan/",
"http://www.desaparecidos.org/arg/victimas/sarti/",
"http://www.desaparecidos.org/arg/victimas/soto/",
"http://www.desaparecidos.org/arg/victimas/tamayo/",
"http://www.desaparecidos.org/arg/victimas/valdezo/",
"http://www.desaparecidos.org/arg/victimas/valdueza/",
"http://www.desaparecidos.org/arg/victimas/lugones/",
"http://www.desaparecidos.org/arg/victimas/vensentini/",
"http://www.desaparecidos.org/arg/victimas/valdueza/",
"http://www.desaparecidos.org/arg/victimas/vilte/",
"http://www.desaparecidos.org/arg/victimas/walsh/",     
"http://www.desaparecidos.org/arg/victimas/weinstein/", 
"http://www.desaparecidos.org/arg/victimas/saide/",   
"http://www.desaparecidos.org/arg/victimas/zurita/",
"http://www.desaparecidos.org/arg/victimas/zurita/",
"http://www.desaparecidos.org/arg/victimas/zurita/");

@alt = ("Hernan Abriata","Oscar Adamoli","Hugo Agosti",
"Angel Luis Abraham",
"Marta Graciela Acuña",
"Nelson Roberto Agorio",
"Tomás Rodolfo Agüero Ríos",
"Claudio Reyes Ahumada",
"Genaro Alarcón",
"Roberto Omar Albornozr",
"Segundo Sixto Alderete",
"Elbio Alberto Almada",
"Raúl Alonso",
"Julio Antonio Altamirano",
"Lucio Bernardo Altamirano",
"Horacio José Alvarez",
"LUCINA ALVAREZ de BARROS",
"DOMINGA ALVAREZ de SCURTA",
"Fernando Adolfo Amarilla",
"Nelly Ana Amato de Risso",
"Norberto Félix Amarturi",
"Salvador Leonardo Amico",
"Daniel Martín Angerosa",
"Humberto Orlando Annone",
"Héctor Alberto Antelo",
"Arturo Apaza",
"Napoleón Argentino Araneda",
"Héctor Antonio Araujo",
"Roberto Arfa",
"Jorge Raúl Arfuch",
"Segundo Bonifa Arias",
"Raúl Aroldi",
"Miguel Angel Arra",
"Jorge Omar Arreche",
"Pablo G Athanasiu Laschan",
"Alfredo Aspeleiter",
"Nicodemus Aspeleiter",
"María Inés del Cármen Atim",
"Federico Tatter","Carlos Guillermo Berti Dominguez","Martino Mastinu","Juan Carlos Villafañe Bena",
"Oscar Alberto Medina","Patricia Rossana Maddalena de Romero","Susana M. Martinez Wasserman",
"Daniel Bernardo Micucci","Viviana Micucci",
"Carlos. A Rizzo Molina","Cecilia Laura Minervini",
"Hanna Edla Wayrynen de Hietala","Luis Ramon Aredez",
"Ines Adriana Cobo","Julio Roberto Liano","Luis Rodolfo Bledel",
"Monica Silvia Lafuente","Monica Grinspon de Logares","Claudio Logares",
"Cristina Galzerano","Raymundo Gleyzer","Gustavo Ogando Gibello",
"Adriana Martinez Perez","Bernardo Ignace","Enrique Thilman Hooguen","Rosa Dalia Herrera",
"Daniel Antokoletz","Luis German Cirigliano",
"Ricardo Chidichimo","Mariana Belli","Liliana Ester Aimeta",
"Claudio Epelbaum","Lila Epelbaum","Luis Epelbaum","Leticia Akselman",
"Alejandro Almeida","Jorge Luis Andreani","Isauro Arancibia","Miguel Sergio Arcuschin",
"Emilio Azurmendi","Adriana Bai","Esther Ballestrino de Careaga","Adriana Silvia Boitano",
"Miguel Angel Boitano","Ana Maria Bonatto","José Aguilar Bracesco","Claudio Braverman",
"Hortensia Brito","Fernando Ruben Brodsky","Aida Leonora Bruschtein Bonaparte","Irene Bruschtein Bonaparte",
"Victor Bruschtein Bonaparte","Ricardo Luis Cagnoni","Alvaro Cardenas","Laura Estela Carlotto",
"Hector Cavallo","Mariel Corsi","Lucia Cullen","Carlos Alberto Chiappolini","Miguel Ricardo Chiernajowky",
"Alicia Estela De Cicco","Carlos María Denis","Nestor Devincenti","Ricardo Dios",
"Alicia Eguren de Cooke","Marta Esain","Helios Gimenez Amuedo","Mario Giribaldi","Osvaldo Giribaldi",
"Sara Grande","Daniel José Gropper","Armando Imas","Teresa Israel","Claudia Istueta","Noemi Jansenson",
"Mabel Landi","Ana Maria Lanzillotto de Menna","Maria Cristina Lanzillotto de Santillan",
"Susana Libedinsky","Cesar Lugones","Angel Dante Marchi Bena","Monica Masri",
"Domingo Menna","Fidela Morel","Ester Moretti","Cristina Navajas de Santucho","Mario Alberto Nivoli",
"Eduardo O'Neill","Pablo Osorio","Gustavo Pasik","Aida Alicia Pastarini","Isidro Pe&ntilde;a",
"Jesus Pe&ntilde;a","Graciela Pernas","Susana Pertierra","Ana Maria Ponce","Carlos Quieto",
"Roberto Quieto","Eduardo Requena","Ariel Ricetti","Carlos Maria Roggerone","Pedro Antonio Romero",
"Raquel Rubino","Maria del Carmen Sabino","Alberto Said","Eduardo Said","Enrique Angel Sanchez",
"Carlos Santillan","Beatriz Sarti","Delfor Santos Soto","Antonio Tamayo","Osvaldo Valdez",
"Graciela Valdueza","Maria Marta Vasquez","Rosalba Vensentini","Fernando Villanueva","Marina Vilte",
"Rodolfo Walsh","Mauricio Weinstein","Claudia Yankilevich","Alejo Zurita",
"Claudio Zurita","Sergio Zurita");

##############################################################################
# Options
$uselog = "0";            # 1 = YES; 0 = NO
   $logfile = "/path/to/log/file";
   $date = `/usr/bin/date`; chop($date);

$link_image = "1";        # 1 = YES; 0 = NO
$border = "0";

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

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

# Print Out Header With Random Filename and Base Directory
#print "Content-type: text/html\n\n";
if ($link_image eq '1' && $urls[$num] ne "") {
   print "<a href=\"$urls[$num]\">";
}

print "<img src=\"$basedir$images[$num]\"";
if ($border ne "") {
   print " border=$border";
}
if ($align ne "") {
   print " align=$align";
}
if ($alt[$num] ne "") {
   print " alt=\"$alt[$num]\"";
}
print ">";

if ($link_image eq '1' && $urls[$num] ne "") {
   print "</a>";
}

print "\n";

# If You want a log, we add to it here.
if ($uselog eq '1') {
   open(LOG, ">>$logfile");
   print LOG "$images[$num] - $date - $ENV{'REMOTE_HOST'}\n";
   close(LOG);
}
