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);
}