[A]  #!/usr/bin/perl
     # Random Image Displayer mit Verknpfungs-Flexibilitt
     # Erstellt fr die Benutzung mit serverseitigen Includes
     # Erstellt von: Matt Wright
     # Version 1.0
     # Erstellt am: 1.7.95            Letzte nderung: 19.12.96
[B]  ###############################################
     # Variablen definieren

     $basedir = "http://ihr.host.xxx/pfad/nach/bilder/";

     @images = ("bild1.gif","bild2.jpg","bild3.gif");

     @urls = ("http://url_linked/nach/bild1",
              "http://url_linked/nach/bild2",
              "http://url_linked/nach/bild3");

     @alt = ("1. WWW-Seite","2. WWW-Seite","3. WWW-Seite");

     # Erledigt
     ###############################################
[C]  ###############################################
     # Optionen
     $uselog = "1";            # 1 = JA; 0 = NEIN
        $logfile = "/pfad/nach/log/datei";
        $date = `/usr/bin/date`; chop($date);

     $link_image = "1";        # 1 = JA; 0 = NEIN

     $align = "";

     $border = "2";

     # Erledigt
     ###############################################
[D]  srand(time ^ $$);
     $num = rand(@images); # Eine Zufallszahl holen
[E]  # Einen Header mit Zufalls-Dateinamen und
     # Basis-Verzeichnis ausgeben
     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 ne "") {
        print "alt=\"$alt[$num]\"";
     }
     print ">";

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

     print "\n";
[F]  # Wenn Sie ein Protokoll mchten, fgen wir es hier hinzu.
     if ($uselog eq '1') {
        open(LOG, ">>$logfile");
        print LOG "$images[$num] - $date - $ENV{'REMOTE_HOST'}\n";
        close(LOG);
     }

