TubeNet - The Site for Tube and Pipe Industries

#!/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: 04/2005

Schweissen und Schneiden - Essen Show

I have been lazy to write at Editor's Page. The thing has been that there has been lot of other works going on. The TubeNet Register script has been totally re-written. Then, I took part at Schweissen und Schneiden Exhibition in Essen, Germany - The number 1. Welding related show in our planet. The show was pretty good - I think. At least I was able to find something interesting in Orbital Welding sector. It may be possible that TubeNet will introduce this new thing on-line soon. At this moment I don't have agreement for publishing it.

Fabtech

It is not that long time any more when Fabtech Chicago takes place. This time they have made a deal with welding people and the show will present also probably best welding related things in USA. It will be interesting to see what is the result of Fabtech 2005 this year. I expect it to be pretty positive.

TubeNet Statistics

When writing this, it is October 1:st. I just updated TubeNet statistics. Please take a look at: STATS. The trend is growing as it has been all the time. The traffic has been as I expected. The summer time will bring down the traffic and once fall comes, it will rice again.

Cheers my friends

Juha

Copyright © Juha Haapala. All rights reserved.
Unauthorized use is strictly forbidden

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