Fritz!Box API für PHP (inkl. Login-Sessions)

<?php
/**
 * Fritz!Box PHP tools CLI script to enable or disable answering machines
 *
 * Must be called via a command line, shows a help message if called without any or an invalid argument
 * Can log to the console or a logfile or be silent
 * new in v0.2: Can handle remote config mode via https://example.dyndns.org
 * new in v0.3: Refactored code to match API version 0.5
 *
 * Check the config file fritzbox.conf.php!
 * 
 * @author   Gregor Nathanael Meyer <Gregor [at] der-meyer.de>
 * @license  http://creativecommons.org/licenses/by-sa/3.0/de/ Creative Commons cc-by-sa
 * @version  0.4 2013-01-02
 * @package  Fritz!Box PHP tools
 * 
 * Geändert: 19.01.2015 mit query.lua ab Firmware xxx.04.88 
 */

try
{
  // load the fritzbox_api class
  require_once('fritzbox_api.class.php');
  $fritz = new fritzbox_api();

  // init the output message
  $message = date('Y-m-d H:i') . ' ';

  // handle the CLI arguments or give a help message
  if (isset($argv[1]) && ($argv[1] == 0 || $argv[1] == 1 || $argv[1] == 2) )
  {
    $mode = (int)$argv[1];
  }
  else
  {
    if ( $fritz->config->getItem('logging') == 'console' )
    {
      echo '
  Enables or disables an answering machine (TAM) of a Fritz!Box

  Usage on UNIX systems:
    /path/to/php ' .  $argv[0] . ' {0|1} [optional: TAM]

  Usage on Windows systems:
    c:\path\to\php.exe ' .  $argv[0] . ' {0|1} [optional: TAM]

  0 disable the TAM
  1 enable the TAM

  The optional argument TAM and addresses the nth answering machine
  Defaults to 0, which is the TAM **600; 1 is the TAM **601 and so on
  
  Warning: A non existent TAM will not lead to an error message but adds a
  new TAM to the Fritz!Box, which will answer all incoming calls by default!
      ';
    }
    else
    {
      $fritz->logMessage($message . 'ERROR: Script was called without or with an invalid argument');
    }
    exit;
  }
  $tam = (isset($argv[2]) && $argv[2] >= 0 && $argv[2] <= 9) ? (int)$argv[2] : 0;

  // TAM Status mode = 2
  if ($mode == 2)
  {
  	$formfields = array(
  		'getpage' => '/query.lua',
  		'tam_'.$tam.'_Active' => 'tam:settings/TAM'.$tam.'/Active',
  		'tam_'.$tam.'_Name' => 'tam:settings/TAM'.$tam.'/Name',
  		'tam_'.$tam.'_NumNewMessages' => 'tam:settings/TAM'.$tam.'/NumNewMessages',
  		'tam_'.$tam.'_NumOldMessages' => 'tam:settings/TAM'.$tam.'/NumOldMessages'
  	);

  	$output = $fritz->doGetRequest($formfields);

  	$output_o = json_decode($output);

  	$message .= "TAM".$tam." Active: ".$output_o->{'tam_'.$tam.'_Active'}." |".
  			" Name: ".$output_o->{'tam_'.$tam.'_Name'}." |".
  			" NumNewMessages: ".$output_o->{'tam_'.$tam.'_NumNewMessages'}." |".
  			" NumOldMessages: ".$output_o->{'tam_'.$tam.'_NumOldMessages'};
  }
  else
  {

  // update the setting
  $formfields = array(
  	'tam:settings/TAM'.$tam .'/Active' => $mode
  );

  $dummy = $fritz->doPostForm($formfields);

  // check if the update succeded
  $formfields = array(
  	'getpage' => '/query.lua',
  	'tam_'.$tam => 'tam:settings/TAM'.$tam.'/Active'
  );

  $output = $fritz->doGetRequest($formfields);
  
  preg_match('@"tam_' . $tam . '": "([10])"@i', $output, $matches);

  if (isset($matches[1]) && $matches[1] == $mode)
  {
    $message .= $mode == 1 ? 'TAM' . $tam . ' enabled' : 'TAM' . $tam . ' disabled';
  }
  else if (isset($matches[1]))
  {
    $message .= 'ERROR: TAM' . $tam . ' status change failed, should be ' . $mode . ', but is ' . $matches[1];
  }
  else
  {
    $message .= 'NOTICE: TAM' . $tam . ' status change could have failed, should be ' . $mode . ' now, but I don\'t now if it actually is. Check your check section in the script.';
  }
  } // Status
}
catch (Exception $e)
{
  $message .= $e->getMessage();
}

// log the result
if ( isset($fritz) && is_object($fritz) && get_class($fritz) == 'fritzbox_api' )
{
  $fritz->logMessage($message);
}
else
{
  echo($message);
}
$fritz = null; // destroy the object to log out

?>

  	$message .= "TAM".$tam." Active: ".$output_o->{'tam_'.$tam.'_Active'}." |".
  	"TAM".$tam." Name: ".$output_o->{'tam_'.$tam.'_Name'}." |".
  	"TAM".$tam." NumNewMessages: ".$output_o->{'tam_'.$tam.'_NumNewMessages'}." |".
  	"TAM".$tam." NumOldMessages: ".$output_o->{'tam_'.$tam.'_NumOldMessages'};

  	$message .= "TAM".$tam." Active: ".$output_o->{'tam_'.$tam.'_Active'}." |".
  			" Name: ".$output_o->{'tam_'.$tam.'_Name'}." |".
  			" NumNewMessages: ".$output_o->{'tam_'.$tam.'_NumNewMessages'}." |".
  			" NumOldMessages: ".$output_o->{'tam_'.$tam.'_NumOldMessages'};

ERROR: Login failed with an unknown response.

Anmeldung des Benutzers admin an der FRITZ!Box Benutzeroberfläche von IP-Adresse [I](meine IPv6-Adresse)[/I] gescheitert (falsches Kennwort).

$this->config->setItem('NAME_des_Parameters', 'WERT_des_Parameters');