|
#!/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);
}
|
Editor's Page
Previous editor's page: 06/2005
Statistics updated
I am pleased to announce that the new traffic record was made on March 2006.
The number of monthly visitors is now 130305 making second time over one million hits
within single month. What is strange - but positive - is to see how much the traffic rised from February. Well, if you take
a look at previour March-months, they have been always high. This only shows that this year makes no difference. It is just
surpricingly high growth from February. I think April will be slower.
Detailled
figures can be seen from here
ServoTIG - Automatic Penetration Control changes the way of Orbital Welding & Amsterdam Marathon
This time I have something really interesting to tell for Tube and Pipe Industries.
I wrote in the previous editor's page that I met at Schweissen & Schneiden Welding show
some really interesting people. They are form Dynamicc Welding Company, Holland. The point is that they
have developed a revolutionary Orbital Welding system - ServoTIG. I was told then
that it can make orbital welding without typical parameter programming. Machine supposed just
to need some information about tube material, diameters and wall thickness. After
that, it can make full penetrated welding seam orbitally. First, I was a kind of
interested, but since all Orbital Welding makers are often claiming that they
have something new, I didn't got too excited with it.
Trip to Holland
Anyhow, after the Essen show, I began to think about this idea. If it really works as they say, I started to look for possibilities to
visit to their factory in Holland. I was a kind of lucky, since I
noticed soon that Amsterdam marathon will take place on October 16:th. So, it was a kind of match for me to
combine these two interesting things with the same trip!
So, we agreed about the meeting and demonstrations which took place on October 14:th.
I am not deeply familiar with orbital welding, but still what I saw was
astonishing. There were a number of tubes being fabricated with T-DRILL's well
known Collars. Now I really understand also why tube/pipe branching is easy
with T-DRILL system.
So, People at Dynamicc Welding had planned to show me how Orbital welding can be
made just perfectly with first trial and without any given parameters to the machine using
difficult cases where wallthickness is changing. This, as far as I know, is difficult for ordinary
orbital welding. This is also what I saw.
They just entered tube diameters, approximate of wall thicknesses and material. The machine
actually found the full penetration by itself and maintained it through the
full orbital cycle. A log list was available after the welding how all happened.
The welding seam was perfect as far as I can understand.
Suddenly
I realized that the matter that I saw really can be a revolution within
automatic orbital welding. This is why I am writing to you about it.
I saw two weldings and I am 100% sure that
they were not practiced before, since I heard from T-DRILL that they had
sent just one ST304L 4" pipe with 2 mm wallthickness tube for testing.
This one was welded during my visit. The wall thickness on the collar
was changing from 1.2 to 1.8 mm and the machine adjusted itself accordingly.
|
4" x 2.0 mm ST304L pipe with 4" collar being welded orbitally.
|
|
All above 4 weldings were made with the same program without entering any parameters.
|
I am actually proud that TubeNet is the first well known Tube & Pipe media to be able to tell about ServoTIG.
Being thankful for this experience, I made even an enquiry form for the manufacturer itself if
you want to get more information about ServoTIG. Please help yourself: Click Here
Amsterdam Marathon
Those who have been following TubeNet for a long time, knows that 4 years ago
something went wrong in my head and I started to run. First marathon in Atlanta 2001
and then 24 more. Last one was Amsterdam on October 16:th, 2005.
I am so pleased now that I went there to run since I broke by record time which is now 3:15.
Seven minutes less than in Richmond, Virginia nearly two years ago (3:22).
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 " ";
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);
}
|