#!/usr/bin/perl ############################################################################### ############################################################################### # Settings / Module use strict; use CGI qw(:standard escapeHTML); use CGI::Carp qw(fatalsToBrowser); use LWP::UserAgent; my $baseDirectory = "/kunden/94126_07745/rp-hosting/700023/800023/echinomedia/www/"; my $baseURL = "http://www.echinomedia.de/"; my $url=""; my $page = param('page'); # Welche Seite wird gesucht? $page =~ s{/(.*?)/}{}; # Sprache entsorgen if ($page =~ /\<|\>|\|/) { die; } # Bei fragwürdigen Zeichen abbrechen! $page = $baseDirectory.param('lang')."/".$page; if (-e $page){ $page =~ s/$baseDirectory//; $url = $baseURL.$page; } else { $page =~ /(.*)\//; $page = $1."/index.shtml"; if (-e $page) { $page =~ s/$baseDirectory//; $url = $baseURL.$page; } else { $url = $baseURL.param('lang'); } } print redirect($url), start_html("EchinoMedia"), p(a({href=>$url},"Klicken Sie hier, um die Sprache zu wechseln... / Click here to change language...")), ".";