#!/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);
}
TubeNet Registrations and Banner Advertising
First of all, TubeNeet has been idle for over 10 years, but now it will be opened again and all functions that have not been working will be checked and corrected if needed.
Introduction
TubeNet is the Site for Tube and Pipe Industries. Due to the dedication for
this clearly defined marketing segment, this site attracts only people who really has interest in
this industry. As you know, the smaller the segmet - the better it will serve the target group of customers.
It is also important to notice that TubeNet has no huge overhead that is typical to
all other Tube industry related media. We are not printing magazines nor sending them around the world because those costs needs to be covered anyway. In this way the fees
can be kept in a very low level. Registraion costs EUR 295,- / year and
Banner Adverts is available also. Please contact editor for more information. Not bad if considered the number of people who visits at TubeNet.
By now Traffic has exceed 230 Million Visitors already made by
over 200.000 visitors per month.
Normally Tube People have found TubeNet through search engine or it has been referred by someone who already knows TubeNet.
Typically visitors are looking for tube and pipe material, machinery or answers for their questions. By joining TubeNet and keeping
your registrations valid, all these people can find you.
By the way, this is 23:th year now when TubeNet has been on-line and hundreds of deals have been made based on TubeNet leads.
TubeNet was the first Tube and Pipe based website. Later other media players have created their own websites when they noticed that Internet is here to stay. TubeNet has still strong position and it is profitable.
Not big money but something. All thanks to you - Tube Industry. After all, TubeNet started as a hobby and is still my dearest hobby.
The registration includes "TubeNet emailing system". It has turned out to be a powerful tool because people are too
fed up for waiting on the phone. TubeNet emailing system brings the inquiry at once and it has clear
headlines so that the receivers will notice immediately that it is coming from TubeNet and thus, worth of reading carefully.
Banner Advertising
Banner Advertising gives you a possibility to introduce your corporation and products on TubeNet and eventually get
potential customers clicking to the banner and re-directed to your own website.
Until now the most popular locations for the Banner Ads have been:
TubeNet Main Page
Main Index page for Manufacturer's Register
Main Index page for Tube Producers and Suppliers Register
Individual categories on both above mentioned large registers
In case your company don't have existing banner, that is not a problem. The matter is easier than you may think of and we can easily make one for you.
For Banner Advertising matters, feel free to ask for more details by email from
juha@tubenet.org
#!/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);
}
Global: