#####################################################################################################################
# LOGOUT
#####################################################################################################################
sub logout
{
  my ($cgi) = @_;

  my $cookie1 = $cgi->cookie(-name => "login",
                        -value => "",
                        -expires => '-1d');

  my $cookie2 = $cgi->cookie(-name => 'password',
                        -value => "",
                        -expires => '-1d');

  my $cookie3 = $cgi->cookie(-name => 'id',
                        -value => "",
                        -expires => '-1d');

  my $cookie4 = $cgi->cookie(-name => 'CGISESSID',
                        -value => "",
                        -expires => '-1d');

  my $cookie = $cookie1."\nSet-Cookie: $cookie2"."\nSet-Cookie: $cookie3\nSet-Cookie: $cookie4";

  print $cgi->redirect(-cookie => $cookie,
                       -uri    => "$PROTOCOL://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}"
                      );

  return;
}