#!/usr/bin/perl -w
#
# nom = accueil/departP2.pl # 25.3.2005
# pour imingo - 18.8.2006
# = departP3 : 16.3.2020
use locale; use CGI qw/:standard escapeHTML/; use strict; use CGI::Carp;
BEGIN { use CGI::Carp qw(carpout); open(LOG, ">>/home/cedra/logsPERL/errPERL") or die "ouverture errPERL impossible: $!\n"; carpout(*LOG);}; use CGI::Carp qw(fatalsToBrowser);
our $mobile= undef;
if ( ($ENV{'REMOTE_ADDR'}=~ /185.73.235.135/) && (($ENV{'HTTP_USER_AGENT'} =~ /android/i) or ($ENV{'HTTP_USER_AGENT'} =~ /mobile/i)) ) {$mobile= 1}
if ($mobile) { # si mobile : cadres différents ; même nom mais fondP tient toute la place
print
header (-expires=>'now', -target=>"_top"),
"Bienvenue dans l'espace privé du Cédra",
# "