#!/usr/bin/perl
# KASRA MESHKIN EZENET INC.
$standalone = 1 ;
$language = 0 ;	
require 'cgi-lib.pl';   ## For parsing the form
&ReadParse();
$agent = $ENV{'HTTP_USER_AGENT'}.$ENV{'HTTP_USERAGENT'};
$host  = $ENV{'REMOTE_HOST'};
$ip_address  = $ENV{'REMOTE_ADDR'};
$refer = $ENV{'HTTP_REFERER'};
$your_cdm = substr($host,length($host)-3,3);
$your_cdm =~ tr/a-z/A-Z/;
   if ($your_cdm eq '.AD') {$country='Andorra';}
elsif ($your_cdm eq '.AE') {$country='The United Arab Emirates';}
elsif ($your_cdm eq '.AF') {$country='Afghanistan';}
elsif ($your_cdm eq '.AG') {$country='Antigua and Barbuda';}
elsif ($your_cdm eq '.AI') {$country='Anguilla';}
elsif ($your_cdm eq '.AL') {$country='Albania';}
elsif ($your_cdm eq '.AM') {$country='Armenia';}
elsif ($your_cdm eq '.AN') {$country='Netherlands Antilles';}
elsif ($your_cdm eq '.AO') {$country='Angola';}
elsif ($your_cdm eq '.AQ') {$country='Antarctica';}
elsif ($your_cdm eq '.AR') {$country='Argentina';}
elsif ($your_cdm eq '.AS') {$country='American Samoa';}
elsif ($your_cdm eq '.AT') {$country='Austria';}
elsif ($your_cdm eq '.AU') {$country='Australia';}
elsif ($your_cdm eq '.AW') {$country='Aruba';}
elsif ($your_cdm eq '.AZ') {$country='Azerbaijan';}
elsif ($your_cdm eq '.BA') {$country='Bosnia and Herzegovina';}
elsif ($your_cdm eq '.BB') {$country='Barbados';}
elsif ($your_cdm eq '.BD') {$country='Bangladesh';}
elsif ($your_cdm eq '.BE') {$country='Belgium';}
elsif ($your_cdm eq '.BF') {$country='Burkina Faso';}
elsif ($your_cdm eq '.BG') {$country='Bulgaria';}
elsif ($your_cdm eq '.BH') {$country='Bahrain';}
elsif ($your_cdm eq '.BI') {$country='Burundi';}
elsif ($your_cdm eq '.BJ') {$country='Benin';}
elsif ($your_cdm eq '.BM') {$country='Bermuda';}
elsif ($your_cdm eq '.BN') {$country='Brunei Darussalam';}
elsif ($your_cdm eq '.BO') {$country='Bolivia';}
elsif ($your_cdm eq '.BR') {$country='Brazil';}
elsif ($your_cdm eq '.BS') {$country='Bahamas';}
elsif ($your_cdm eq '.BT') {$country='Bhutan';}
elsif ($your_cdm eq '.BV') {$country='Bouvet Island';}
elsif ($your_cdm eq '.BW') {$country='Botswana';}
elsif ($your_cdm eq '.BY') {$country='Belarus';}
elsif ($your_cdm eq '.BZ') {$country='Belize';}
elsif ($your_cdm eq '.CA') {$country='Canada';}
elsif ($your_cdm eq '.CC') {$country='Cocos Islands';}
elsif ($your_cdm eq '.CF') {$country='The Central African Republic';}
elsif ($your_cdm eq '.CG') {$country='The Congo';}
elsif ($your_cdm eq '.CH') {$country='Switzerland';}
elsif ($your_cdm eq '.CI') {$country='The Ivory Coast';}
elsif ($your_cdm eq '.CK') {$country='The Cook Islands';}
elsif ($your_cdm eq '.CL') {$country='Chile';}
elsif ($your_cdm eq '.CM') {$country='Cameroon';}
elsif ($your_cdm eq '.CN') {$country='China';}
elsif ($your_cdm eq '.CO') {$country='Colombia';}
elsif ($your_cdm eq '.CR') {$country='Costa Rica';}
elsif ($your_cdm eq '.CS') {$country='The Former Czechoslovakia';}
elsif ($your_cdm eq '.CU') {$country='Cuba';}
elsif ($your_cdm eq '.CV') {$country='Cape Verde';}
elsif ($your_cdm eq '.CX') {$country='Christmas Island';}
elsif ($your_cdm eq '.CY') {$country='Cyprus';}
elsif ($your_cdm eq '.CZ') {$country='The Czech Republic';}
elsif ($your_cdm eq '.DE') {$country='Germany';}
elsif ($your_cdm eq '.DJ') {$country='Djibouti';}
elsif ($your_cdm eq '.DK') {$country='Denmark';}
elsif ($your_cdm eq '.DM') {$country='Dominica';}
elsif ($your_cdm eq '.DO') {$country='The Dominican Republic';}
elsif ($your_cdm eq '.DZ') {$country='Algeria';}
elsif ($your_cdm eq '.EC') {$country='Ecuador';}
elsif ($your_cdm eq '.EE') {$country='Estonia';}
elsif ($your_cdm eq '.EG') {$country='Egypt';}
elsif ($your_cdm eq '.EH') {$country='Western Sahara';}
elsif ($your_cdm eq '.ER') {$country='Eritrea';}
elsif ($your_cdm eq '.ES') {$country='Spain';}
elsif ($your_cdm eq '.ET') {$country='Ethiopia';}
elsif ($your_cdm eq '.FI') {$country='Finland';}
elsif ($your_cdm eq '.FJ') {$country='Fiji';}
elsif ($your_cdm eq '.FK') {$country='The Falkland Islands';}
elsif ($your_cdm eq '.FM') {$country='Micronesia';}
elsif ($your_cdm eq '.FO') {$country='The Faroe Islands';}
elsif ($your_cdm eq '.FR') {$country='France';}
elsif ($your_cdm eq '.FX') {$country='France, Metropolitan';}
elsif ($your_cdm eq '.GA') {$country='Gabon';}
elsif ($your_cdm eq '.GB') {$country='Great Britain';}
elsif ($your_cdm eq '.GD') {$country='Grenada';}
elsif ($your_cdm eq '.GE') {$country='Georgia';}
elsif ($your_cdm eq '.GF') {$country='French Guiana';}
elsif ($your_cdm eq '.GH') {$country='Ghana';}
elsif ($your_cdm eq '.GI') {$country='Gibraltar';}
elsif ($your_cdm eq '.GL') {$country='Greenland';}
elsif ($your_cdm eq '.GM') {$country='Gambia';}
elsif ($your_cdm eq '.GN') {$country='Guinea';}
elsif ($your_cdm eq '.GP') {$country='Guadeloupe';}
elsif ($your_cdm eq '.GQ') {$country='Equatorial Guinea';}
elsif ($your_cdm eq '.GR') {$country='Greece';}
elsif ($your_cdm eq '.GS') {$country='S. Georgia and S. Sandwich Isls.';}
elsif ($your_cdm eq '.GT') {$country='Guatemala';}
elsif ($your_cdm eq '.GU') {$country='Guam';}
elsif ($your_cdm eq '.GW') {$country='Guinea-Bissau';}
elsif ($your_cdm eq '.GY') {$country='Guyana';}
elsif ($your_cdm eq '.HK') {$country='Hong Kong';}
elsif ($your_cdm eq '.HM') {$country='The Heard and McDonald Islands';}
elsif ($your_cdm eq '.HN') {$country='Honduras';}
elsif ($your_cdm eq '.HR') {$country='Croatia';}
elsif ($your_cdm eq '.HT') {$country='Haiti';}
elsif ($your_cdm eq '.HU') {$country='Hungary';}
elsif ($your_cdm eq '.ID') {$country='Indonesia';}
elsif ($your_cdm eq '.IE') {$country='Ireland';}
elsif ($your_cdm eq '.IL') {$country='Israel';}
elsif ($your_cdm eq '.IN') {$country='India';}
elsif ($your_cdm eq '.IO') {$country='British Indian Ocean Territory';}
elsif ($your_cdm eq '.IQ') {$country='Iraq';}
elsif ($your_cdm eq '.IR') {$country='Iran';}
elsif ($your_cdm eq '.IS') {$country='Iceland';}
elsif ($your_cdm eq '.IT') {$country='Italy';}
elsif ($your_cdm eq '.JM') {$country='Jamaica';}
elsif ($your_cdm eq '.JO') {$country='Jordan';}
elsif ($your_cdm eq '.JP') {$country='Japan';}
elsif ($your_cdm eq '.KE') {$country='Kenya';}
elsif ($your_cdm eq '.KG') {$country='Kyrgyzstan';}
elsif ($your_cdm eq '.KH') {$country='Cambodia';}
elsif ($your_cdm eq '.KI') {$country='Kiribati';}
elsif ($your_cdm eq '.KM') {$country='Comoros';}
elsif ($your_cdm eq '.KN') {$country='Saint Kitts and Nevis';}
elsif ($your_cdm eq '.KP') {$country='North Korea';}
elsif ($your_cdm eq '.KR') {$country='South Korea';}
elsif ($your_cdm eq '.KW') {$country='Kuwait';}
elsif ($your_cdm eq '.KY') {$country='Cayman Islands';}
elsif ($your_cdm eq '.KZ') {$country='Kazakhstan';}
elsif ($your_cdm eq '.LA') {$country='Laos';}
elsif ($your_cdm eq '.LB') {$country='Lebanon';}
elsif ($your_cdm eq '.LC') {$country='Saint Lucia';}
elsif ($your_cdm eq '.LI') {$country='Liechtenstein';}
elsif ($your_cdm eq '.LK') {$country='Sri Lanka';}
elsif ($your_cdm eq '.LR') {$country='Liberia';}
elsif ($your_cdm eq '.LS') {$country='Lesotho';}
elsif ($your_cdm eq '.LT') {$country='Lithuania';}
elsif ($your_cdm eq '.LU') {$country='Luxembourg';}
elsif ($your_cdm eq '.LV') {$country='Latvia';}
elsif ($your_cdm eq '.LY') {$country='Libya';}
elsif ($your_cdm eq '.MA') {$country='Morocco';}
elsif ($your_cdm eq '.MC') {$country='Monaco';}
elsif ($your_cdm eq '.MD') {$country='Moldova';}
elsif ($your_cdm eq '.MG') {$country='Madagascar';}
elsif ($your_cdm eq '.MH') {$country='Marshall Islands';}
elsif ($your_cdm eq '.MK') {$country='Macedonia';}
elsif ($your_cdm eq '.ML') {$country='Mali';}
elsif ($your_cdm eq '.MM') {$country='Myanmar';}
elsif ($your_cdm eq '.MN') {$country='Mongolia';}
elsif ($your_cdm eq '.MO') {$country='Macau';}
elsif ($your_cdm eq '.MP') {$country='The Northern Mariana Islands';}
elsif ($your_cdm eq '.MQ') {$country='Martinique';}
elsif ($your_cdm eq '.MR') {$country='Mauritania';}
elsif ($your_cdm eq '.MS') {$country='Montserrat';}
elsif ($your_cdm eq '.MT') {$country='Malta';}
elsif ($your_cdm eq '.MU') {$country='Mauritius';}
elsif ($your_cdm eq '.MV') {$country='The Maldives';}
elsif ($your_cdm eq '.MW') {$country='Malawi';}
elsif ($your_cdm eq '.MX') {$country='Mexico';}
elsif ($your_cdm eq '.MY') {$country='Malaysia';}
elsif ($your_cdm eq '.MZ') {$country='Mozambique';}
elsif ($your_cdm eq '.NA') {$country='Namibia';}
elsif ($your_cdm eq '.NC') {$country='New Caledonia';}
elsif ($your_cdm eq '.NE') {$country='Niger';}
elsif ($your_cdm eq '.NF') {$country='Norfolk Island';}
elsif ($your_cdm eq '.NG') {$country='Nigeria';}
elsif ($your_cdm eq '.NI') {$country='Nicaragua';}
elsif ($your_cdm eq '.NL') {$country='Netherlands';}
elsif ($your_cdm eq '.NO') {$country='Norway';}
elsif ($your_cdm eq '.NP') {$country='Nepal';}
elsif ($your_cdm eq '.NR') {$country='Nauru';}
elsif ($your_cdm eq '.NT') {$country='Neutral Zone';}
elsif ($your_cdm eq '.NU') {$country='Niue';}
elsif ($your_cdm eq '.NZ') {$country='New Zealand';}
elsif ($your_cdm eq '.OM') {$country='Oman';}
elsif ($your_cdm eq '.PA') {$country='Panama';}
elsif ($your_cdm eq '.PE') {$country='Peru';}
elsif ($your_cdm eq '.PF') {$country='French Polynesia';}
elsif ($your_cdm eq '.PG') {$country='Papua New Guinea';}
elsif ($your_cdm eq '.PH') {$country='Philippines';}
elsif ($your_cdm eq '.PK') {$country='Pakistan';}
elsif ($your_cdm eq '.PL') {$country='Poland';}
elsif ($your_cdm eq '.PM') {$country='St. Pierre and Miquelon';}
elsif ($your_cdm eq '.PN') {$country='Pitcairn';}
elsif ($your_cdm eq '.PR') {$country='Puerto Rico';}
elsif ($your_cdm eq '.PT') {$country='Portugal';}
elsif ($your_cdm eq '.PW') {$country='Palau';}
elsif ($your_cdm eq '.PY') {$country='Paraguay';}
elsif ($your_cdm eq '.QA') {$country='Qatar';}
elsif ($your_cdm eq '.RE') {$country='Reunion';}
elsif ($your_cdm eq '.RO') {$country='Romania';}
elsif ($your_cdm eq '.RU') {$country='The Russian Federation';}
elsif ($your_cdm eq '.RW') {$country='Rwanda';}
elsif ($your_cdm eq '.SA') {$country='Saudi Arabia';}
elsif ($your_cdm eq '.SB') {$country='The Solomon Islands';}
elsif ($your_cdm eq '.SC') {$country='The Seychelles';}
elsif ($your_cdm eq '.SD') {$country='The Sudan';}
elsif ($your_cdm eq '.SE') {$country='Sweden';}
elsif ($your_cdm eq '.SG') {$country='Singapore';}
elsif ($your_cdm eq '.SH') {$country='St. Helena';}
elsif ($your_cdm eq '.SI') {$country='Slovenia';}
elsif ($your_cdm eq '.SJ') {$country='The Svalbard and Jan Mayen Islands';}
elsif ($your_cdm eq '.SK') {$country='Slovak Republic';}
elsif ($your_cdm eq '.SL') {$country='Sierra Leone';}
elsif ($your_cdm eq '.SM') {$country='San Marino';}
elsif ($your_cdm eq '.SN') {$country='Senegal';}
elsif ($your_cdm eq '.SO') {$country='Somalia';}
elsif ($your_cdm eq '.SR') {$country='Suriname';}
elsif ($your_cdm eq '.ST') {$country='Sao Tome and Principe';}
elsif ($your_cdm eq '.SU') {$country='The Former USSR';}
elsif ($your_cdm eq '.SV') {$country='El Salvador';}
elsif ($your_cdm eq '.SY') {$country='Syria';}
elsif ($your_cdm eq '.SZ') {$country='Swaziland';}
elsif ($your_cdm eq '.TC') {$country='The Turks and Caicos Islands';}
elsif ($your_cdm eq '.TD') {$country='Chad';}
elsif ($your_cdm eq '.TF') {$country='The French Southern Territories';}
elsif ($your_cdm eq '.TG') {$country='Togo';}
elsif ($your_cdm eq '.TH') {$country='Thailand';}
elsif ($your_cdm eq '.TJ') {$country='Tajikistan';}
elsif ($your_cdm eq '.TK') {$country='Tokelau';}
elsif ($your_cdm eq '.TM') {$country='Turkmenistan';}
elsif ($your_cdm eq '.TN') {$country='Tunisia';}
elsif ($your_cdm eq '.TO') {$country='Tonga';}
elsif ($your_cdm eq '.TP') {$country='East Timor';}
elsif ($your_cdm eq '.TR') {$country='Turkey';}
elsif ($your_cdm eq '.TT') {$country='Trinidad and Tobago';}
elsif ($your_cdm eq '.TV') {$country='Tuvalu';}
elsif ($your_cdm eq '.TW') {$country='Taiwan';}
elsif ($your_cdm eq '.TZ') {$country='Tanzania';}
elsif ($your_cdm eq '.UA') {$country='Ukraine';}
elsif ($your_cdm eq '.UG') {$country='Uganda';}
elsif ($your_cdm eq '.UK') {$country='The United Kingdom';}
elsif ($your_cdm eq '.UM') {$country='The US Minor Outlying Islands';}
elsif ($your_cdm eq '.US') {$country='United States';}
elsif ($your_cdm eq '.UY') {$country='Uruguay';}
elsif ($your_cdm eq '.UZ') {$country='Uzbekistan';}
elsif ($your_cdm eq '.VA') {$country='Vatican City State';}
elsif ($your_cdm eq '.VC') {$country='Saint Vincent and the Grenadines';}
elsif ($your_cdm eq '.VE') {$country='Venezuela';}
elsif ($your_cdm eq '.VG') {$country='The British Virgin Islands';}
elsif ($your_cdm eq '.VI') {$country='The US Virgin Islands';}
elsif ($your_cdm eq '.VN') {$country='Vietnam';}
elsif ($your_cdm eq '.VU') {$country='Vanuatu';}
elsif ($your_cdm eq '.WF') {$country='The Wallis and Futuna Islands';}
elsif ($your_cdm eq '.WS') {$country='Samoa';}
elsif ($your_cdm eq '.YE') {$country='Yemen';}
elsif ($your_cdm eq '.YT') {$country='Mayotte';}
elsif ($your_cdm eq '.YU') {$country='Yugoslavia';}
elsif ($your_cdm eq '.ZA') {$country='South Africa';}
elsif ($your_cdm eq '.ZM') {$country='Zambia';}
elsif ($your_cdm eq '.ZR') {$country='Zaire';}
elsif ($your_cdm eq '.ZW') {$country='Zimbabwe';}
elsif ($your_cdm eq 'COM') {$country='The USA (Commercial)';}
elsif ($your_cdm eq 'EDU') {$country='The USA (Educational)';}
elsif ($your_cdm eq 'GOV') {$country='The USA (Government)';}
elsif ($your_cdm eq 'MIL') {$country='The USA (Military)';}
elsif ($your_cdm eq 'ORG') {$country='The USA (Non-Profit Organization)';}
elsif ($your_cdm eq 'INT') {$country='International';}
elsif ($your_cdm eq 'NET') {$country='Network';}
elsif ($your_cdm eq 'RPA') {$country='Old style Arpanet';}
elsif ($your_cdm eq 'ATO') {$country='The Nato field';}
else  {$country='UNKNOWN';}
print &PrintHeader();
print "<HTML><HEAD><TITLE>A Message For You</TITLE></HEAD><BODY>\n";
print "<HTML><HEAD><TITLE>EZENET INC</TITLE></HEAD><BODY background=\"http://www.ezenet.com/~kims/bgg.gif\" bgcolor=ffffff text=00000f link=0000ff vlink=ff0000>\n
<center><img align=bottom src=\"http://www.ezenet.com/eze.gif\"><P></center>\n";
   if (($host ne "") && ($ip_address ne "")){
	print " If I am correct you are connecting from <b> $host ($ip_address)</b>";
   }elsif (($host ne "") && ($ip_address eq "")){
     	print " If I am correct you are connecting from <b> $host </b>";
   }elsif (($host eq "") && ($ip_address ne "")){
     	print " If I am correct you are connectiong from <b> $ip_address </b>";
   }else{print " Hello you ";
   }
   if ($country ne "UNKNOWN"){
    	print " !! <P>\n";
   }else{ print " !!<P>\n";
   }

   print "Try Our links to <a href=\"http://www.ezenet.com/page2.html\">find your way</a> and Please let me know if you need any help
or send your concerns & questions to <a href=mailto:kasra\@ezenet\.com>kasra\@ezenet\.com</a>or <a href=mailto:kims\@ezenet\.com>kims\@ezenet\.com</a><br>\n
<br>From <a href=\"http://www.ezenet.com/planet.html\">all of us</a> at EZENET we wish you a happy surfing.<br>
<a href=\"http://www.ezenet.com/kasra.html>Your host</a><br>
<br>
Kasra Meshkin<HR>\n";
 

   if ($refer ne ""){
      	print "Go back to: 
        <A href=\"http://www.ezenet.com/page2.html\">main page </A>. <BR><HR>\n";
   }
if ($standalone ne "0"){
   print "<H5>EZENET INC.
   (Copyright 1995 -  
   <A HREF=\"http://www.ezenet.com/kasra.html\">
   Kasra Meshkin</A> - All Rights Reserved)</H5></BODY></HTML>\n";
}

### END ###

