#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$main::query = new CGI();
################################################
# Perl-Script by FJG / 16.12.2003
# Datei: bild2html.pl
# Dieses Perl-Script uebernimmt einen Bildlink mit den notwendigen Bilddaten und
# erstellt eine HTML-Datei mit Zurueck-Button.
# Die Ergebnisse werden HTML4.01- und CSS-Formatiert in einer HTML-Seite ausgegeben.
# Aufruf ueber (als Beispiel)
# bild2html.pl?link=images/atlantik1.jpg&witdh=200&height=100&alt=Bild+vom+Atlantik+fuer+Radler
# Deutsche Umlaute im ALT-Text muessen ohne Umlaute geschrieben werden und
# werden durch das Script wieder ersetzt.
#
# Aenderungen:
#
# 31.10.04 / FJG
# Backbutton-Link wird nun direkt ueber den Http_Referer gesteuert
#
################################################
my $link = $main::query->param('link');
my $width = $main::query->param('width');
my $height = $main::query->param('height');
my $alt = $main::query->param('alt');
$alt = translate($alt);
my $backbutton = $ENV{'HTTP_REFERER'};
# print HTML-Header
#-------------------
print "content-type: text/html\n\n";
print <<"HTML-Header";
Heikes Abitur-Treffen 2002 bei GENSICKE-ONLINE.de
HTML-Header
print "
zurück