#!/usr/bin/perl -T

#    #!c:/perl/bin/perl.exe -T


# -------> Modul für CGI-Scripts einbinden:
use CGI;
use Socket;
use strict;

use CGI::Carp qw(fatalsToBrowser);

$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX=1024*10;

my ($query);
my (@names);
my ($ipfrage);
my ($ip);
my ($host);
my ($ipC);

# -------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:
$query = new CGI;
@names = $query->param;

my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);

 $Jahr+=1900;


# -------> interne Daten aus den erwarteten hidden-Feldern auslesen:


$ipfrage = $query->param('frage');          #  IP frage Funktion
$ipfrage =~ s/\s/ /g;                     #  reinigen

# IP Adr. und Host auslesen

$ip = $ENV{'REMOTE_ADDR'};
$ipC = inet_aton($ip);
$host = (gethostbyaddr($ipC, AF_INET))[0];


 




  if ($ipfrage eq 'ip') {
  print $query->header(),
        $query->start_html(-BGCOLOR=>'#CCCCCC'),
        $query->h2($ip),
		$query->br();

 print 	'<a href="http://',
        $ip,
		'" > Test: Mit  ' ,$ip , ' verbinden</a>';
		
 print	$query->br(),
        $query->br(),
	    $query->hr(),		
        $query->a({-href=>'/emailform/such.pl?frage=ip'},"Ihre IP-Adresse"),
		$query->br(),
		$query->a({-href=>'/emailform/such.pl?frage=host'},"Ihr Host"),
	    $query->br(),
	    $query->hr(),
		$query->center("Ein Hobbyprog - Service  $Jahr"),
	    $query->a({-href=>'/'},"Hobbyprog"),
	    $query->br(),	
		$query->a({-href=>'/nachricht.htm'},"Emailformular"),	
		$query->end_html();
		exit;
	}
		
 if ($ipfrage eq 'host') {
  print $query->header(),
        $query->start_html(-BGCOLOR=>'#CCCCCC'),
        $query->h2($host),
		$query->p("Ihr Host "),
		$query->hr(),
		$query->a({-href=>'/emailform/such.pl?frage=ip'},"Ihre IP-Adresse"),
		$query->br(),
		$query->a({-href=>'/emailform/such.pl?frage=host'},"Ihr Host"),
	    $query->br(),
	    $query->hr(),
		$query->center("Ein Hobbyprog - Service  $Jahr"),
	    $query->a({-href=>'/'},"Hobbyprog"),
	    $query->br(),	
		$query->a({-href=>'/nachricht.htm'},"Emailformular"),
		$query->end_html();
		exit;
	}
	
	    $ipfrage = '';
	
print $query->header(),
        $query->start_html(-BGCOLOR=>'#CCCCCC'),
       	$query->h4("?frage=ip oder =host"),
		$query->hr(),
		$query->a({-href=>'/emailform/such.pl?frage=ip'},"Ihre IP-Adresse"),
		$query->br(),
		$query->a({-href=>'/emailform/such.pl?frage=host'},"Ihr Host"),
	    $query->br(),
	    $query->hr(),
		$query->center("Ein Hobbyprog - Service  $Jahr"),
	    $query->a({-href=>'/'},"Hobbyprog"),
		$query->end_html();
		exit;