<?
function logout() {
global $f;
session_start();
session_destroy();
header ("Set-Cookie: logged=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: modlogin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
header ("Set-Cookie: ivadmin=$f; expires=Wed, 2-Jan-1987 00:00:00 GMT; path=/;");
}

if ((isset($f)) && $f == "logout") logout();
?>

use CGI;

sub logout{
   my ($f) = @_;
  
   #Methodenaufrufe
   session_start();
   session_destroy();
   
   # Cookie-Sache
   my @cookies;
   for(qw/logged modlogin ivadmin/){
      my $cookie = CGI::cookie(-name => $_, 
                                   -value => $f,
                                   -expires=>'Wed, 2-Jan-1987 00:00:00 GMT',
                                   -path=>'/',);
      push(@cookies,$cookie);
   }
   print CGI::header(-cookie => [@cookies]);
}

if(defined($f) && $f eq 'logout'){
   logout($f);
}

warn "bla";

#!/usr/bin/perl
require CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Time::Local;
use File::Spec;
use Fcntl qw(:flock);
use URI;
#use XML::Simple;
use CGI qw(:standard -no_debug);
require "konfiguration.txt";
require "text.txt";
$timeout=45;

my $cgi = new CGI;
my $state = $cgi->param("wmid");
my $sid = "773XXXXXX";

if ($state =~ m/773[0-9]{6,6}/) { } 
else {$state =~ s/$state/$sid/}



# Nicht verändern
#########################################################