<?php

$c = require_once 'config.php';
require_once 'helpers.php';

// Connect to the database
$dsn = "{$c['db_type']}:host={$c['db_host']};dbname={$c['db_database']};port={$c['db_port']}";

try {
    $dbh = new PDO($dsn, $c['db_username'], $c['db_password']);
    $dbh->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
} catch (PDOException $e) {
    die("Connection failed: " . $e->getMessage());
}

$query_domain = "SELECT id, name, registrant, crdate, exdate, `update`, clid, crid, upid, trdate, trstatus, reid, redate, acid, acdate, transfer_exdate FROM domain WHERE CURRENT_TIMESTAMP > acdate AND trstatus = 'pending'";
$stmt_domain = $dbh->prepare($query_domain);
$stmt_domain->execute();

while ($row = $stmt_domain->fetch(PDO::FETCH_ASSOC)) {
    // Extracting data from the result set
    extract($row);

    $date_add = 0;
    $price = 0;

    [$registrar_balance, $creditLimit] = $dbh->query("SELECT accountBalance,creditLimit FROM registrar WHERE id = '$reid' LIMIT 1")->fetch(PDO::FETCH_NUM);

    if ($transfer_exdate) {
        [$date_add] = $dbh->query("SELECT PERIOD_DIFF(DATE_FORMAT(transfer_exdate, '%Y%m'), DATE_FORMAT(exdate, '%Y%m')) AS intval FROM domain WHERE name = '$name' LIMIT 1")->fetch(PDO::FETCH_NUM);

        preg_match('/^([^\.]+)\.(.+)$/', $name, $matches);
        $label = $matches[1];
        $domain_extension = $matches[2];

        $tld_id = null;
        $stmt_tld = $dbh->prepare("SELECT id, tld FROM domain_tld");
        $stmt_tld->execute();

        while ($tld_row = $stmt_tld->fetch(PDO::FETCH_ASSOC)) {
            if ('.' . strtoupper($domain_extension) === strtoupper($tld_row['tld'])) {
                $tld_id = $tld_row['id'];
                break;
            }
        }

        [$price] = $dbh->query("SELECT m$date_add FROM domain_price WHERE tldid = '$tld_id' AND command` = 'transfer' LIMIT 1")->fetch(PDO::FETCH_NUM);

        if (($registrar_balance + $creditLimit) < $price) {
            $echo = 'The registrar who took over this domain has no money to pay the renewal period that resulted from the transfer request';
            shell_exec("echo '$name - $echo' >> /var/log/epp/domain_auto_approve_transfer.log");
            continue;
        }
    }

    $from = $dbh->query("SELECT exdate FROM domain WHERE id = '$domain_id' LIMIT 1")->fetchColumn();

    $stmt_update = $dbh->prepare("UPDATE domain SET exdate = DATE_ADD(exdate, INTERVAL $date_add MONTH), `update` = CURRENT_TIMESTAMP, clid = '$reid', upid = '$clid', trdate = CURRENT_TIMESTAMP, trstatus = 'serverApproved', acdate = CURRENT_TIMESTAMP, transfer_exdate = NULL WHERE id = '$domain_id'");
    $stmt_update->execute();

    $stmt_update_host = $dbh->prepare("UPDATE host SET clid = '$reid', upid = NULL, `update` = CURRENT_TIMESTAMP, trdate = CURRENT_TIMESTAMP WHERE domain_id = '$domain_id'");
    $stmt_update_host->execute();

    if ($stmt_update->errorCode() != "00000") {
        $err = 'UPDATE failed: ' . implode(", ", $stmt_update->errorInfo());
        $echo = "The transfer was not successful, something is wrong | $err";
        shell_exec("echo '$name - $echo' >> /var/log/epp/domain_auto_approve_transfer.log");
        continue;
    } else {
        $dbh->exec("UPDATE registrar SET accountBalance = (accountBalance - $price) WHERE id = '$reid'");
        $dbh->exec("INSERT INTO payment_history (registrar_id,date,description,amount) VALUES('$reid',CURRENT_TIMESTAMP,'transfer domain $name for period $date_add MONTH','-$price')");

        $to = $dbh->query("SELECT exdate FROM domain WHERE id = '$domain_id' LIMIT 1")->fetchColumn();
        
        $stmt_insert_statement = $dbh->prepare("INSERT INTO statement (registrar_id,date,command,domain_name,length_in_months,from,to,amount) VALUES(?,CURRENT_TIMESTAMP,?,?,?,?,?,?)");
        $stmt_insert_statement->execute([$reid, 'transfer', $name, $date_add, $from, $to, $price]);

        $stmt_select_domain = $dbh->prepare("SELECT id,registrant,crdate,exdate,`update`,clid,crid,upid,trdate,trstatus,reid,redate,acid,acdate,transfer_exdate FROM domain WHERE name = ? LIMIT 1");
        $stmt_select_domain->execute([$name]);
        $domain_data = $stmt_select_domain->fetch(PDO::FETCH_ASSOC);
        
        $stmt_auto_approve_transfer = $dbh->prepare("INSERT INTO domain_auto_approve_transfer (name,registrant,crdate,exdate,`update`,clid,crid,upid,trdate,trstatus,reid,redate,acid,acdate,transfer_exdate) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
        $stmt_auto_approve_transfer->execute(array_values($domain_data));
    }

}
$stmt_domain = null;

$stmt_contact = $dbh->prepare("SELECT id, crid, crdate, upid, `update`, trdate, trstatus, reid, redate, acid, acdate FROM contact WHERE CURRENT_TIMESTAMP > acdate AND trstatus = 'pending'");
$stmt_contact->execute();

while ($contact_data = $stmt_contact->fetch(PDO::FETCH_ASSOC)) {
    $contact_id = $contact_data['id'];
    $reid = $contact_data['reid'];

    // The losing registrar has five days once the contact is pending to respond.
    $stmt_update_contact = $dbh->prepare("UPDATE contact SET `update` = CURRENT_TIMESTAMP, clid = ?, upid = NULL, trdate = CURRENT_TIMESTAMP, trstatus = 'serverApproved', acdate = CURRENT_TIMESTAMP WHERE id = ?");
    $stmt_update_contact->execute([$reid, $contact_id]);

    if ($stmt_update_contact->errorCode() != "00000") {
        $err = 'UPDATE failed: ' . implode(", ", $stmt_update_contact->errorInfo());
        $echo = "The transfer was not successful, something is wrong | $err";
        shell_exec("echo '$contact_id - $echo' >> /var/log/epp/contact_auto_approve_transfer.log");
        continue;
    } else {
        $stmt_select_contact = $dbh->prepare("SELECT identifier, crid, crdate, upid, `update`, trdate, trstatus, reid, redate, acid, acdate FROM contact WHERE id = ? LIMIT 1");
        $stmt_select_contact->execute([$contact_id]);
        $contact_selected_data = $stmt_select_contact->fetch(PDO::FETCH_ASSOC);
        
        $stmt_auto_approve_transfer = $dbh->prepare("INSERT INTO contact_auto_approve_transfer (identifier, crid, crdate, upid, `update`, trdate, trstatus, reid, redate, acid, acdate) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)");
        $stmt_auto_approve_transfer->execute(array_values($contact_selected_data));
    }
}
$stmt_contact = null;