TubeNet - The Site for Tube and Pipe Industries

USA: tubenet.org Europe: tubenet.org.uk Asia: tubenet.us
Fri, 19-Dec-2025 - 02:44:53 ---- The fact: 230,780,121 visitors done.

#!/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 " $\"$alt[$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); }

Editor's Page
Previous Editor's page

Get 3 with single registration

Until now, TubeNet registrations are based on single registration with fixed fee. Well, today after 15 years of running TubeNet, I do admit that it has been pretty concervative way of thinking. Now this will change. With the same yearly fee you will get 3 registrations!

We know that many of our Members have multiple products that would need separate registration. Now, with this new policy, we think that it gives a lot of more value for the money. We also think that this move will increase traffic at TubeNet, which will be good for both of us.

The traffic at TubeNet seems to follow the same way as economy within our industry. There was a drop due to the global economy problem. Now it can be seen, that the traffic is returning again. Daily hits are braking 4000-4500 unique visits (fom Monday to Friday).

Cheers my friends

Juha