#!/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);
}
The holiday season started and it's time for the industry to relax and get strength for the coming fall.
In Eurozone the European Central Bank (ECB) gave yesterday (August 7, 2003) first positive news about econimical recovery since last December.
They continued that the interest rates are just right level at this moment and inflation is expected to remain about 2% or slightly less.
This is good news for Eurozone.
Email SPAM problem
The email Spamming is getting real problem now. More than half of email messages that I receive are some kind of spam. I believe that I am not alone with this problem.
Here is something that you may find helpful: FOXMAIL email client. It has helped me a lot. Not
only it eliminates most of the virus problems that exist with Outlook,
but it is a good tool to deal with spam emails.
With it you can check the emails you are to receive but are still on the sever.
You can then select emails that you want to get and delete those what you know that are spam for sure. Also
viruses, since the download size is shown and if it is more than 100 K, it is
most likely virus.
In this way the number of emails that you are actually downloading is much
smaller than without this function. In my case I erase about 90% of spams
on server and don't waste time downloading them at all. I have been using
Foxmail since last November when I noticed it got five stars from ZDNet.
Now I wouldn't change back to Eudora or Outlook.
Funny thing with this Foxmail is that it is made in China. But don't let
this concern you. The product works.
#!/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);
}
Europe: 