<?php

/*
	This file is part of the ParTCP Server project
	Copyright (C) 2024 Martin Wandelt

	This program is free software: you can redistribute it and/or modify
	it under the terms of the GNU Affero General Public License as published by
	the Free Software Foundation, either version 3 of the License, or
	(at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU Affero General Public License for more details.

	You should have received a copy of the GNU Affero General Public License
	along with this program.  If not, see <https://www.gnu.org/licenses/>
*/

/*
error_reporting( E_ALL );
ini_set( 'display_errors', 1 );
$BaseDir = __DIR__;
include 'config.php';
include 'init/init_filesystem.php';

$ServerData = $Config['server_data'] ?? $Config['Server-Data'] ?? [];
if ( empty( $ServerData['name'] ) ){
	$ServerData['name'] = $_SERVER['SERVER_NAME'];
}

require_once 'modules/server/server.class.php';
$Server = new ParTCP_Server( $FileSystem );
$ServerData = $Server->get_data() ?: $ServerData;

include 'init/init_locale.php';
*/

// Set parameters

$ptcpId = 'martin2@bupa23.partcp.org';
$server = 'bupa23.partcp.org';
$eventId = 'bund/20231110-lotcode-test';
$eventCode = 'HQZ.E';
$ipLatency = 300;

$pubKeys = [
	'bupa23.partcp.org' => '9Ewxz/INAwc+4LLNB7cZMX9LuvKHduC0U1kaq0yMSPXF6D9ajj84wvMidFF3Vt+fb/jwfe/38zJogYspNE4yOg==',
];

$keyPairs = [
	'martin2@bupa23.partcp.org' => [ 'uY/uGFSaL/Yg+nwrCkJxRlB2hCDCnYwWhd5ynvmgoosePSRL7lA95Rg/nZjOwZps3eiCRggAmfT+TL/MgAr7Aw==', 'xWhfc6zEyoWPGYT9J3ePla2niyN+HlT1C0wZwBkT3ay5j+4YVJov9iD6fCsKQnFGUHaEIMKdjBaF3nKe+aCii+QIzhyLC15ZSAqMX/BTWSFrAA7Hp+eHfwxTgARwi5kP' ],
];

// Initialize

setlocale( LC_ALL, 'de_DE' );
date_default_timezone_set('Europe/Berlin');
error_reporting( E_ALL );
ini_set( 'display_errors', 1 );

require_once 'lib/partcp-php/identity.class.php';
require_once 'lib/partcp-php/crypto.class.php';
require_once 'lib/partcp-php/outgoing_message.class.php';
require_once 'lib/partcp-php/incoming_message.class.php';
require_once 'lib/partcp-php/key_storage_mem.class.php';

ParTCP_Key_Storage_Mem::$pubKeys = $pubKeys;
ParTCP_Key_Storage_Mem::$keyPairs = $keyPairs;
ParTCP_Identity::$storage = 'ParTCP_Key_Storage_Mem';

// Check if IP address has sent a request recently

$hash = 'ptcp_test_' . md5( $_SERVER['REMOTE_ADDR'] );
if ( ! apcu_add( $hash, 1, $ipLatency ) ){
	die('ERROR: Too many requests - please wait some time before trying again');
}

// Process request

$msg = new ParTCP_Outgoing_Message( $server, $ptcpId, 'multi-registration' );
$msg->set( 'Event-Id', $eventId );
$msg->set( 'Count', 1 );
$response = $msg->send();

if ( $response['status'] == -1 ){
	die( "ERROR: Could not connect with {$server}" );
}

if ( $response['status'] != 200 ){
	die( "ERROR: {$response['status']} {$response['message']}" );
}

$msg = new ParTCP_Incoming_Message( $response['body'] );

if ( $msg->parseError ){
	die( "ERROR: Server response could not be parsed\n\n{$response['body']})" );
}

if ( $msg->get('Message-Type') == 'failure-notice' ){
	die( 'ERROR: ' . $msg->get('Failure-Description') );
}

if ( $msg->get('Message-Type') == 'rejection-notice' ){
	die( "ERROR: Unexpected response from voting server ({$msg->get('Rejection-Code')} - {$msg->get('Rejection-Reason')})" );
}

$codes = $msg->get('Lot-Codes');
if ( ! $codes ){
	var_dump( $msg );
}

$link = "{$codes[0]}@{$eventCode}";
echo $link;