Subversion Repositories personal-webbase

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. <?php
  2.  
  3. if (!defined('WBLEGAL')) die('Kann nicht ohne Personal WebBase ausgef&uuml;hrt werden.');
  4.  
  5. if ((isset($_SERVER['HTTP_HOST'])) && (isset($_SERVER['PHP_SELF'])))
  6. {
  7.         if ($WBConfig->getForceSSLFlag())
  8.         {
  9.                 $wburl = 'https://';
  10.         }
  11.         else
  12.         {
  13.                 $wburl = 'http://';
  14.         }
  15.         $wburl .= $_SERVER['HTTP_HOST'];
  16.         $wburl .= dirname_with_pathdelimiter($_SERVER['PHP_SELF']);
  17. }
  18. else
  19. {
  20.         $wburl = '';
  21. }
  22.  
  23. if (isset($configuration[$m2]['wb_system_url']))
  24. {
  25.         if ($configuration[$m2]['wb_system_url'] != $wburl)
  26.         {
  27.                 wb_change_config('wb_system_url', $wburl, $m2);
  28.         }
  29. }
  30. else
  31. {
  32.         wb_add_config('wb_system_url', $wburl, $m2);
  33. }
  34.  
  35. unset($wburl);
  36.  
  37. ?>
  38.