#!/usr/bin/perl -w

use utf8;
use strict;
use warnings; no warnings qw(once redefine uninitialized);

BEGIN {
    unshift @INC, ( $ENV{'POPHOME'} || '@POPHOME@' ) . '/lib'
      unless $ENV{'KUNDE_NO_PERLPATH'};
}

use CGI ();
use CGI::Carp qw(fatalsToBrowser);
use Cf qw($WIKI4KUNDE);
use Dbase::Globals qw(content name_kunde);

my $cgi = CGI->new;
my $id  = $cgi->param('id');
defined $id && $id =~ /^\d+\z/ && defined( my $kunde_name = name_kunde($id) )
  or die
  qq(Im CGI-Parameter "id" muss eine gültigte Kundennummer angegeben werden.);

( my $wiki_url = $WIKI4KUNDE ) =~ s/.*(http\S+).*/$1/;
die qq(Konnte aus "$WIKI4KUNDE" keine gültige URL extrahieren.\n)
  unless content($wiki_url);
$wiki_url =~ s/<kunde\.name>/$kunde_name/g;

print $cgi->redirect($wiki_url);
