database/php/index.php

   1 <?php
   2
   3
   4
   5 /**
   6  * Make sure that HTTP_RAW_POST_DATA variable is available.
   7  */
   8 ini_set('always_populate_raw_post_data', TRUE);
   9
  10
  11
  12 /**
  13  * Require modern PHP.
  14  *
  15  * http://gophp5.org/
  16  */
  17 $version = "5.2.0";
  18 if (!version_compare(phpversion(), "5.2.0", ">=")) {
  19         die("PHP " . $version . ' or later is required.');
  20 }
  21
  22
  23
  24 /**
  25  * Setup logging.
  26  */
  27 require_once 'irreco_webdb_log.php';
  28 IrrecoLog::init();
  29 IrrecoLog::phpLevel(2047);
  30 //IrrecoLog::pearLevel(PEAR_LOG_NOTICE);
  31 IrrecoLog::$index->log('Start >>>>>>>>>>>>>>>>>>');
  32
  33
  34
  35
  36
  37 /**
  38  * Some versions of PHP have a bug with setting HTTP_RAW_POST_DATA variable.
  39  */
  40 if (!isset($GLOBALS['HTTP_RAW_POST_DATA'])) {
  41         IrrecoLog::$index->log('Fixing $HTTP_RAW_POST_DATA');
  42         $GLOBALS['HTTP_RAW_POST_DATA'] = file_get_contents('php://input');
  43 }
  44
  45
  46 /**
  47  * Create XML-RPC server.
  48  */
  49
  50 require_once 'irreco_webdb_database.php';
  51 require_once 'irreco_webdb_server.php';
  52
  53 $database = new IrrecoWebdbDatabase('mysqli://irreco:abcd@localhost/irreco');
  54 $server = new IrrecoWebdbServer($database);
  55
  56
  57 /**
  58  * Get irreco version
  59  */
  60 if (array_key_exists("HTTP_USER_AGENT", $_SERVER)) {
  61         $client = $_SERVER['HTTP_USER_AGENT'];
  62 } else {
  63         $client = "unknown";
  64 }
  65 $database->addUserAgentData($client);
  66
  67
  68 /**
  69  * Run XML-RPC server.
  70  */
  71
  72 IrrecoLog::$server->log("Request:\n". $GLOBALS['HTTP_RAW_POST_DATA']);
  73 ob_start();
  74
  75 $options = array('encoding' => 'UTF-8');
  76 $xmlrpc2 = XML_RPC2_Server::create($server, $options);
  77 $xmlrpc2->handleCall();
  78 $response = ob_get_clean();
  79
  80 $len = strlen($response);
  81 if($len > 200) {
  82         IrrecoLog::$server->log("Response:\n". substr($response, 0, 200).
  83                                 " ...Listing cut for brevity...");
  84 }
  85 else {
  86         IrrecoLog::$server->log("Response:\n". $response);
  87 }
  88
  89 echo $response;
  90
  91 IrrecoLog::$index->log('End <<<<<<<<<<<<<<<<<<<<');
  92
  93
  94
  95
  96
  97
  98
  99
 100
 101
 102
 103
 104 ?>