#!/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 = ("manc9.gif","freedomanim2.gif","hydro2.gif","outo.gif","tgpro4.gif","omni7.gif","hahn2.gif","ercolina6.gif","vanle.gif","t-d-banner899d.gif","ti.gif","kent3.gif"); @urls = ( "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.manchestertoolanddie.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.freedommachinery.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://heat-transfer.hydro.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.outokumpu.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.tgpro.co.th\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.omnibend.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.s-k-h.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.ercolina.it\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.vanleeuwen.nl\" 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.bundy.com\" target=\"_blank\"", "http://www.tubenet.org.uk/cgi/redirect.pl?http://www.continuouscoil.com\" target=\"_blank\"" ); @alt = ( "Manchester Tool and Die", "Freedom Machinery", "Heat Transfer", "Outokumpu", "Thai-German Products", "Omni X", "Stahlkontor Hahn", "Ercolina", "Van Leeuwen", "T-DRILL", "TI Automotive", "Kent Tesgo" ); ############################################################################## # 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 = "1"; # 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 ""; 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); }

TECHNICAL DATA

Index of Tables
Index of Figures