|
|
#!/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]\"";](\"$basedir$images[$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: 3/2008
Tattoo
I am grown up man already. 44 years of age. What makes a grown up man like me to get a tattoo? In my case I really needed something special that
kicks "your mind out of order". The marathon trip to Honolulu was such a kind of thing for me. Not just the running, but overall the
happenings during the trip gave me enough reasons to suggest Päivi, the lady with whom I went there, to get a tattoo. She said okay. The decision was made.
Yes. It was my idea. My mother would never understand this, but for me now, when having it in my arm, I feel very confortable and
satisfied. It will always remind me about the Honolulu thing.
Tattoing itself
It took 3 weeks to take actions to book the time for tattooing. Finally I called to Fleetline Tattos Studio in Seinäjoki, Finland
for appointment and it turned out to be a pretty long waiting time for it. Think about, 4 months! The Tattoo was made on April 18:th 2007. I didn't knew that there are so many people who want's to have
a tattoo.
Then , it was a separate matter to find a suitable tattoo! I spent days after days in the internet for searching for the right one. Päivi did the searching also.
Finally it was made by editing one found model. The result is in the picture.
Right now I need to say that the tattooist - Timo Busch - has especial talent to handle new people who goes for first tattoo. Much better than any dentist that
I have ever met. First of all: Tattooing hurts. That is one point. He, with his professionalism, knew all that and thus, made the thing quite easy. Yes. It hurted
every now and then, but he took the the control of the situation by talking something that removed the attention from the tattooing to something else. I am glad
to recommend Fleetline Tattos Studio in Seinäjoki, Finland. You just need
to know that Timo does the work very well, and it takes some time:)) In my case about one hour.
Cheers my friends
Juha
|
| |
|
|
|
Copyright © Juha Haapala. All rights reserved.
Unauthorized use is strictly forbidden
| | |
Europe: 