#!/usr/bin/perl
use strict;
use warnings;
use mydb;
use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use utf8;

my $db=mydb->new('test.db');
my $form = CGI->new();
my $session = CGI::Session->new("driver:File", $form, { Directory=>"/tmp" }) or die CGI::Session->errstr;

my $sname=$ENV{SCRIPT_NAME}||'test.pl';

print $session->header();
warningsToBrowser(1);

my $user=$session->param('name');
my $login=$session->param("loggedin");

if($login)
{
  print_ok($sname,$form,$user);
}
else
{
  print_login($sname,$form);
}

########################################################################

sub print_ok
{
  my $sname=shift;
  my $form=shift;
  my $suser=shift;
  print
    $form->start_html("Viele tolle sachen!"),
    $form->h1("Hallo $user!"),
    $form->p("Es ist schön sie zu sehen!"),
    $form->h4(
      $form->a({href=>"login.pl?logout=1"},"LOGOUT"),
    ),
    $form->end_html();
}

sub print_login
{
  my $sname=shift;
  my $form=shift;
  print
    $form->start_html("Bitte Einloggen!"),
    $form->h1("Diese seite ist Passortgeschützt!!"),
    $form->p("Bitte Loggen sie sich ein!"),
    $form->h4(
      $form->a({href=>"login.pl"},"LOGIN"),
    ),
    $form->br(),
    $form->h4(
      $form->a({href=>"registration.pl"},"Registrieren"),
    ),
    $form->end_html();
}