#!/usr/bin/perl  -Tw
#Cookietest
  use strict;
  use CGI::Carp qw/fatalsToBrowser/;
  use CGI qw(:all);

  $CGI::DISABLE_UPLOADS	= 1;
  $CGI::POST_MAX		= 1024*5;

  my $url		= 'http://domain.tld/cgi-bin/cookie.pl';
  my $domain		= 'domain.tld';
  my @chars		= ("A".."Z", "a".."z",0..9);
  my $value		= join( '', @chars[ map {rand @chars}(1..5)] );
  my $cgi		= CGI->new();

  my $cookie	= $cgi->cookie(
                                '-name'		=> 'testcookie',
                                '-value'	=> $value,
                                '-expires'	=> 0,
                                '-domain'	=> $domain,
                                '-path'		=> '/'
                               );

 unless ( $cgi->param('redirected') )
   {
      print $cgi->redirect(
                             '-url'		=> $url.'?redirected='.$value,
                             '-cookie'	=> $cookie,
                             '-type'	=> 'text/html'
                           );
   }


  print $cgi->header(
                        '-type'		=>'text/html',
                        '-charset'	=> 'utf-8'
                    );

  print $cgi->start_html(
                          '-title'	=> 'Cookie Test'
                        );

  print $cgi->h1({},"Cookie Test");
  print $cgi->p({}, "Zufallswert wird bei jedem Seitenaufruf im Cookie gesetzt",
                    $cgi->br(),
                    "und die Rückgabe des Browsers angezeigt."
               );

  print $cgi->p({},
                "Erwarteter Wert: ", $cgi->param('redirected'),
                $cgi->br(),
                "Empfangener Cookie Wert: ",$cgi->cookie('testcookie'),
                $cgi->br(),
                '$ENV{\'HTTP_COOKIE\'}: ',$ENV{'HTTP_COOKIE'}
               );
  print $cgi->p({},
                  $cgi->a({'-href'	=> $url},'sende neuen Wert'),
                  $cgi->br(),
                  $cgi->a({'-href'	=> $url.'?redirected='.$cgi->param('redirected')},'nochmal Cookie abfragen'),
               );

  print $cgi->end_html();