#!/usr/bin/perl -w # test.pl?img=20091016_nawarat_in_liverpool_004.jpg # perl -wcT test.do use CGI; # use Carp::Always; # complain loudly use strict; my $query = new CGI; my $browser = $ENV{'HTTP_USER_AGENT'}; my $from1 = $ENV{'HTTP_REFERER'}; my $IP = $ENV{'REMOTE_ADDR'}; my $META = ""; # my $MY_FILE_NAME = ""; # prevzatie mena obrazku my $MY_FILE_NAME = $query->param('img'); my $META_file = "/web/public/thajsko.in.th/reklamy/metatagy"; open( META, "< $META_file" ) or die "Can't open $META_file : $!"; my @lines = ; close(META) or die $! ; print "Content-type: text/html\n\n"; # kontrola odkial prichadza navsteva if (!defined $from1 ) { ( $MY_FILE_NAME = "/usr/home/weby/thajsko.in.th/thajsko.gif" ); ( $from1 = "http://www.morpheushosting.sk/" ); } print < Thajsko 2010 pictures | www.thajsko.in.th @lines

Hi Thajsko visitor!

Na zmene grafiky aj obsahu sa pracuje. Dakujem za strpenie.

requested img $MY_FILE_NAME


Spread Firefox Affiliate Button
ENDHTML print qq{

}; # print `uptime`; print '

'; print "You are browsing from $IP with $browser

"; print "\n\n Server time: "; print `date`; print "";