#!/usr/bin/perl -w # test.pl?img=20091016_nawarat_in_liverpool_004.jpg # perl -wcT show.do # ja som /med 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 $HEADER = ""; # my $MY_FILE_NAME = ""; # prevzatie mena obrazku my $MY_FILE_NAME = $query->param('img'); # tuto si nacitam hromadne matatage 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 $! ; # nacitam headawer my $HEADER_file = "/web/public/thajsko.in.th/reklamy/header"; open( HEADER, "< $HEADER_file" ) or die "Can't open $META_file : $!"; my @hlavicka =
; close(HEADER) or die $! ; print "Content-type: text/html\n\n"; # kontrola odkial prichadza navsteva if (!defined $from1 ) { ( $MY_FILE_NAME = "/usr/local/www/joomla/thajsko.gif" ); ( $from1 = "http://www.morpheushosting.sk/" ); } print < Show my pictures | www.thajsko.in.th @lines
@hlavicka
requested img $MY_FILE_NAME


ENDHTML print qq{

}; print `uptime`; print '

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

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