#!/usr/bin/perl
### *** IMPORTANT FOR UNIX *** ###
### *** Make sure the path to PERL above is correct *** ###
#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#
#
#
# Email - webmaster@turkwebmaster.com
#
# Program Name ------- ozellik.pl
# Program Version ---- 2.2
# Configuration File - none
#
#
#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#~#
$path = $0;
$filename = $path;
if (-d "C:/" || $^O eq "MSWin32") {
$windows = 1;
$platform = "WINDOWS";
$filename =~ s/^.*\\//;
$path =~ s/$filename//;
$path =~ s/\\$//;
} elsif (-e "/etc/passwd") {
$unix = 1;
$platform = "UNIX";
$filename =~ s/^.*\///;
$path =~ s/$filename//;
$path =~ s/\/$//;
} else {
$unix = 1;
$platform = "UNKNOWN PLATFORM";
$path = "Unable to determine path, please consult your system administrator.";
}
if ($platform eq "UNIX") {
@Sendmail = `whereis sendmail`;
$Path_to_Sendmail = "@Sendmail";
}
### *** :) *** ###
print "Content-type: text/html\n\n";
print <<"EOT";
TurkWebmaster Patch
TurkWebmaster.Com PATHTEST
Server Sistem : $platform
The path for this file is: $path
$Path_to_Sendmail
EOT
foreach $key (keys(%ENV)) {
print "$key = $ENV{$key}
\n";
}
print "
Perl Version $] ";
print "
Psend kept free because of these great sponsors.a..
|
Other Sponsors
electrical connectors,
Mangosteen Juice,
real estate short sale,
Jupiter FL real estate,
|
Furniture Markdown
Great Deals on furniture - Free Shipping!
Discount Furniture
Daybeds
Metal Beds
Platform Beds
Futons
|
Y-Net Wireless Internet
Denver area high speed wireless privider.
Colorado High Speed Internet,
Wireless Internet Denver,
VOIP Denver CO,
T1 provider Denver,
Denver Wireless ISP ,
Denver Internet Access,
|
|
Dog House Technologies
Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet.
Tampa Bay Web Design,
E-Commerce Web Design,
Tampa Bay Search Engine Marketing,
Tampa Web Hosting,
Florida Web Design,
Custom Application Development,
Search Engine Optimization,
|
";
exit;
### *** *** ###