sistema/www/logout_perl.epl

   1 [-
   2 if(!$udat{'user'})
   3 {$http_headers_out{'Location'}="./noticias.php";}
   4 -]
   5
   6 [-
   7     for $key (keys %udat)
   8     {    delete($udat{$key}) unless $key =~ /^_/;}
   9
  10         $http_headers_out{'Location'}="./noticias.php";
  11 -]
  12