#!/usr/bin/perl
##############################################################################
# SSI Random Image Displayer Version 1.2 #
# Copyright 1996 Matt Wright mattw@scriptarchive.com #
# Created 7/1/95 Last Modified 11/4/95 #
# Scripts Archive at: http://www.scriptarchive.com/ #
##############################################################################
# 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.tubenet.org.uk/";
@images = ("cnc2.jpg","o+h.jpg","u_tube2.gif","arc4.jpg","fabtechmies.gif","emmedi_art14.gif","rauta.gif" );
@urls = (
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.nissin-precision.com/english\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.ott-heugel.de\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.utube.com\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.arcmachines.com\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.t-drill.fi\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.emmedi.it\" target=\"_blank\"",
"http://www.tubenet.org.uk/cgi/redirect.pl?http://www.rautaruukki.com\" target=\"_blank\""
);
@alt = (
"Nissin Precision",
"OTT-Heugel",
"Universal Tube and Rollform",
"ARC Machines",
"T-DRILL",
"Emmedi",
"Rautaruukki",
);
##############################################################################
# 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
$align = "middle";
$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 "";
}
print "![\"$alt[$num]\"";](\"$basedir$images[$num]\"";)
";
if ($link_image eq '1' && $urls[$num] ne "") {
print "";
}
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);
}
tässä tekstiä