#!/usr/bin/perl5
################################################################################
# Infobox: Domain Freigeschaltet                                Version v 0.03 #
################################################################################
# Dateiname : index.pl                                                         #
# Extrahiert den Domainnamen und gibt eine 2-sprachige Infobox aus, mit der    #
# ein Newsletter bestellt werden kann. Das Newsletter-Programm liegt extern.   #
################################################################################
# Copyright (c)2002 by Michael Schramm (info@michael-schramm.com)              #
################################################################################
# index.pl wird im Frame aufgerufen, so dass das Script von Benutzern nicht    #
#  sofort entdeckt werden kann.                                                #
#                                                                              #
################################################################################
# Verbesserung: Disclaimer auf Englisch übersetzen

use CGI qw(:standard);


&formdat;
&var;


if ($VAR{url} ne '') { 
	&domain_datum;
	&doku_ausgabe;
} else { 
	&redirect_ausgabe;
}


exit;

######### S U B S ############

sub formdat {
$query=new CGI;

$VAR{url} = $query->param("url");
$VAR{seite} = $query->param("seite");
} #end sub formdat


sub var {
$system_pfad = "/usr/www/freigeschaltet.3sys.de/"; # muss mit / beginnen und enden
$redirect_seite = "redirect.htm"; # nicht im template-verzeichnis
$keine_seite = "index_de.htm"; # im template-verzeichniss
	if ($VAR{seite} eq '') {
		$VAR{seite} = $keine_seite;
	}
$template_pfad = $system_pfad . 'templates/';
$redirect_body = $system_pfad . $redirect_seite;
$template_body = $template_pfad . $VAR{seite};
}


sub domain_datum {
$domain = $VAR{url};
$domain =~ tr/A-Z/a-z/; # kleinschreiben
@a = split(/\./, $domain);
$domain = "@a[$#a-1].@a[$#a]";

@de_days = ('So','Mo','Di','Mi','Do','Fr','Sa');
@en_days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min < 10) { $min = "0$min"; }
	if ($sec < 10) { $sec = "0$sec"; }
	if ($mon < 10) { $mon = "0$mon"; }
	if ($mday < 10) { $mday = "0$mday"; }
	$year = $year + 1900;
	$mon++;

$de_datum = "$de_days[$wday] $mday.$mon.$year $hour\:$min";
$en_datum = "$en_days[$wday] $mon\/$mday\/$year $hour\:$min";
} #end sub domain_datum


sub doku_ausgabe{

open (TXT,"$template_body") || &endIt("Error:<BR>$template_body kann nicht geöffnet werden!<BR>( $! )");
flock (TXT,2); seek (TXT,0,0);
@Message_Text = <TXT>;
close (TXT);
$Body = "@Message_Text";

$suchen = '\*DOMAIN\*';
$ersaetzen = $domain;
$Body =~ s|$suchen|$ersaetzen|g;

$suchen = '\*DATUM_DE\*';
$ersaetzen = $de_datum;
$Body =~ s|$suchen|$ersaetzen|g;

$suchen = '\*DATUM_EN\*';
$ersaetzen = $en_datum;
$Body =~ s|$suchen|$ersaetzen|g;

$suchen = '\*URL\*';
$ersaetzen = 'index.pl?url=' . $VAR{url} . '&seite=';
$Body =~ s|$suchen|$ersaetzen|g;

print ("Content-type: text/html\n\n");
print "$Body";
} #end sub doku_ausgabe


sub redirect_ausgabe {

open (TXT,"$redirect_body") || &endIt("Error:<BR>$redirect_body kann nicht geöffnet werden!<BR>( $! )");
flock (TXT,2); seek (TXT,0,0);
@Message_Text = <TXT>;
close (TXT);
$Body = "@Message_Text";

print ("Content-type: text/html\n\n");
print "$Body";
} #end sub redirect_ausgabe


sub endIt { 
  $error_ausgabe = $_[0];
	print ("Content-type: text/html\n\n");
	print "<font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='000000'><B>Es ist ein Fehler aufgetreten!<BR>Das Programm wurde abgebrochen!</B><BR><BR><SMALL>$error_ausgabe</SMALL><BR></font>\n";
   exit;
}
