themes/random.php

   1 <?php
   2
   3 /**
   4  * random.php
   5  *    Name:    Random Theme Every Login
   6  *    Author:  Tyler Akins
   7  *    Date:    December 24, 2001
   8  *    Comment: Guess what this does!
   9  *
  10  * Copyright (c) 2000-2003 The SquirrelMail Project Team
  11  * Licensed under the GNU GPL. For full terms see the file COPYING.
  12  *
  13  * $Id$
  14  */
  15
  16 sq_mt_randomize();
  17
  18 require_once(SM_PATH . 'functions/global.php');
  19
  20 global $theme, $random_theme_good_themes;
  21
  22 if (!sqsession_is_registered('random_theme_good_theme')) {
  23     $good_themes = array();
  24     foreach ($theme as $data) {
  25         if (substr($data['PATH'], -18) != '/themes/random.php') {
  26             $good_themes[] = $data['PATH'];
  27         }
  28     }
  29     if (count($good_themes) == 0)
  30     $good_themes[] = '../themes/default.php';
  31     $which = mt_rand(0, count($good_themes));
  32     $random_theme_good_theme = $good_themes[$which];
  33     sqsession_register($random_theme_good_theme, 'random_theme_good_theme');
  34 }
  35
  36 @include_once ($random_theme_good_theme);
  37
  38 ?>