[Sommaire] [Imprimer]

   1  <?php
   2  /**
   3   * $Horde: horde/services/portal/mobile.php,v 2.15.10.3 2006/01/01 21:29:14 jan Exp $
   4   *
   5   * Copyright 2002-2006 Chuck Hagenbuch <chuck@horde.org>
   6   *
   7   * See the enclosed file COPYING for license information (LGPL). If you
   8   * did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
   9   */
  10  
  11  @define('HORDE_BASE', dirname(__FILE__) . '/../..');
  12  require_once  HORDE_BASE . '/lib/base.php';
  13  require_once 'Horde/Identity.php';
  14  require_once 'Horde/Mobile.php';
  15  
  16  if (!Auth::getAuth()) {
  17      header('Location: ' . Util::addParameter(Horde::applicationUrl('login.php', true),
  18                                               'url', Horde::selfUrl(), false));
  19      exit;
  20  }
  21  
  22  $identity = &Identity::singleton();
  23  $fullname = $identity->getValue('fullname');
  24  if (empty($fullname)) {
  25      $fullname = Auth::getAuth();
  26  }
  27  
  28  $m = &new Horde_Mobile(_("Welcome"));
  29  $m->add(new Horde_Mobile_text(sprintf(_("Welcome, %s"), $fullname)));
  30  
  31  // Messy way of linking to active apps that support mobile
  32  // devices. Should be made more elegant at some point.
  33  if (!empty($registry->applications['mimp']['status']) &&
  34      $registry->applications['mimp']['status'] != 'inactive') {
  35      $m->add(new Horde_Mobile_link($registry->get('name', 'mimp'),
  36                                    Horde::url($registry->get('webroot', 'mimp') . '/'),
  37                                    $registry->get('name', 'mimp')));
  38  }
  39  
  40  $m->display();