Les Snippets

Connexion

Navigateur (avec gestion WAP)

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 22/06/2008 14:15:34 et initié par JoJo738 [Liste]
Vue : 715
Catégorie(s) : Réseau & Internet, Web, Control, Regex
Langages dispo pour ce code :
- PHP 5



Langage : PHP 5
Date ajout : 22/06/2008
Posté par JoJo738 [Liste]
function Browser_Wap($ReturnBrowser = true)
{
    // If is WAP BROWSER : header('Content-type: text/vnd.wap.wml');
    $agent = trim(getenv('HTTP_USER_AGENT'));
    $_wap = false;
    $_browser = null;

    // On cherche si c'est un navigateur compatible WAP
    $regex = '/(wap|windows ce|palm[os]|pda;|up\.br|\/cldc|midp|symbian[ \/o]|ericsson|portalmmm|nokia|BlackBerry|PANTECH|\bcdm\b|\bvirtual\b|^lge?[\/-]|Klondike|pocketPC|series60|Vodafone|^HTC\-)/i';
    if( ereg($regex, $agent, $reg) )
    {
        $_browser = $reg[1];
        $_wap = true;
    }
    // Sinon, on cherche si le navigateur accepte le WAP
    else if( strpos(strtoupper(getenv('HTTP_ACCEPT')), 'VND.WAP.WML') > 0)
    {
        $_wap = true;
    }
    else
    {
        // Dans le dernier cas, on cherche le browser du navigateur (PC)
        $list_pc_browser = array('mozilla', 'gecko', 'opera', 'omniweb', 'msie', 'konqueror', 'safari', 'netpositive', 'lynx', 'elinks', 'links', 'w3m', 'webtv', 'amaya', 'dillo', 'ibrowse', 'icab', 'crazy browser', 'internet explorer');
        foreach( $list_pc_browser as $browser )
        {
            if( stristr($agent, $browser) )
            {
                $_browser = $browser;
                break;
            }
        }
    }
    if( $ReturnBrowser )
    {
        return array($_wap, $browser);
    }
    else
    {
        return $_wap;
    }
}
Remarque :
Browser_Wap(true) : retourne un "Array((bool) Is_Compatible_WAP, (string) Browser)"
Browser_Wap(false) : retourne "(bool) Is_Compatible_WAP"

Utiliser header('Content-type: text/vnd.wap.wml'); si le navigateur est compatible WAP



Codes sources en rapport avec : Wap, Wml

{PHP} SUPPRIMER LES ACCENTS
Voici une fonction qui permet de supprimer les accents et autres cédilles d'une chaîne de caractères...

{Visual Basic, VB6, VB.NET, VB 2005} TAILLE DES IMAGES WBMP POUR LE WAP
Cet exemple permet de récuppérer la taille des fichiers WBMP plus connus pour leur utilisation p...