Subversion Repositories personal-webbase

Rev

Rev 9 | Blame | Compare with Previous | 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. function inetconn_ok()
  6. {
  7.   global $konfiguration;
  8.  
  9.   // Ergebnis für Scriptlaufzeit zwischenspeichern aufgrund von Performancegründen
  10.   if (defined('inet_conn_result'))
  11.   {
  12.     return inet_conn_result;
  13.   }
  14.   else
  15.   {
  16.     $r = fsockopen($konfiguration['core_inetconn']['internet-check-url'], $konfiguration['core_inetconn']['internet-check-port'], $errno, $errstr, 5);
  17.     define('inet_conn_result', $r);
  18.     return $r;
  19.   }
  20. }
  21.  
  22. ?>
  23.