Dolibarr\Code\Partnerships\Classes\PartnershipUtils

Complexity

Total Complexity

86

Size/Duplication

Total Lines	514
Duplicated Lines	0 %

Importance

Changes

0

4 Methods

Rating	Name	Duplication	Size	Complexity
A	__construct()	0	3	1
F	doCancelStatusOfMemberPartnership()	0	200	35
F	doWarningOfPartnershipIfDolibarrBacklinkNotfound()	0	230	42
B	checkDolibarrBacklink()	0	39	8

<?php

/* Copyright (C) 2021       NextGestion                 <contact@nextgestion.com>
 * Copyright (C) 2024		MDW							<mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024       Rafael San José             <rsanjose@alxarafe.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

namespace Dolibarr\Code\Partnerships\Classes;

use DoliDB;

/**
 *  \file       partnership/class/partnershiputils.class.php
 *  \ingroup    partnership
 *  \brief      Class with utilities
 */

//require_once(DOL_DOCUMENT_ROOT."/core/class/commonobject.class.php");
//require_once(DOL_DOCUMENT_ROOT."/societe/class/societe.class.php");
require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/date.lib.php';
require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/files.lib.php';
require_once constant('DOL_DOCUMENT_ROOT') . '/core/lib/geturl.lib.php';
require_once constant('DOL_DOCUMENT_ROOT') . '/partnership/lib/partnership.lib.php';
use Dolibarr\Code\Partnerships\Classes\Partnership;
use Dolibarr\Code\Societe\Classes\Societe;
use Dolibarr\Code\Adherents\Classes\Adherent;

/**
 *  Class with cron tasks of Partnership module
 */
class PartnershipUtils
{
    public $db; //!< To store db handler
    public $error; //!< To return error code (or message)
    public $errors = array(); //!< To return several error codes (or messages)

    public $output; // To store output of some cron methods


    /**
     *  Constructor
     *
     *  @param  DoliDB      $db      Database handler
     */
    public function __construct($db)
    {
        $this->db = $db;
    }

    /**
     * Action executed by scheduler to cancel status of partnership when subscription is expired + x days. (Max number of action batch per call = $conf->global->PARTNERSHIP_MAX_EXPIRATION_CANCEL_PER_CALL)
     *
     * CAN BE A CRON TASK
     *
     * @return  int                 0 if OK, <>0 if KO (this function is used also by cron so only 0 is OK)
     */
    public function doCancelStatusOfMemberPartnership()
    {
        global $conf, $langs, $user;

        $managedfor = getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR', 'thirdparty');

        if ($managedfor != 'member') {
            return 0; // If option 'PARTNERSHIP_IS_MANAGED_FOR' = 'thirdparty', this cron job does nothing.
        }

        $partnership = new Partnership($this->db);
        $MAXPERCALL = (!getDolGlobalString('PARTNERSHIP_MAX_EXPIRATION_CANCEL_PER_CALL') ? 25 : $conf->global->PARTNERSHIP_MAX_EXPIRATION_CANCEL_PER_CALL); // Limit to 25 per call

        $langs->loadLangs(array("partnership", "member"));

        $error = 0;
        $erroremail = '';
        $this->output = '';
        $this->error = '';
        $partnershipsprocessed = array();

        $gracedelay = getDolGlobalString('PARTNERSHIP_NBDAYS_AFTER_MEMBER_EXPIRATION_BEFORE_CANCEL');
        if ($gracedelay < 1) {
            $this->error = 'BadValueForDelayBeforeCancelCheckSetup';
            return -1;
        }

        dol_syslog(get_class($this) . "::doCancelStatusOfMemberPartnership cancel expired partnerships with grace delay of " . $gracedelay);

        $now = dol_now();
        $datetotest = dol_time_plus_duree($now, -1 * abs((float) $gracedelay), 'd');

        $this->db->begin();

        $sql = "SELECT p.rowid, p.fk_member, p.status";
        $sql .= ", d.datefin, d.fk_adherent_type, dty.subscription";
        $sql .= " FROM " . MAIN_DB_PREFIX . "partnership as p";
        $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "adherent as d on (d.rowid = p.fk_member)";
        $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "adherent_type as dty on (dty.rowid = d.fk_adherent_type)";
        $sql .= " WHERE fk_member > 0";
        $sql .= " AND (d.datefin < '" . $this->db->idate($datetotest) . "' AND dty.subscription = 1)";
        $sql .= " AND p.status = " . ((int) $partnership::STATUS_APPROVED); // Only accepted not yet canceled
        $sql .= $this->db->order('d.rowid', 'ASC');
        // Limit is managed into loop later

        $resql = $this->db->query($sql);
        if ($resql) {
            $numofexpiredmembers = $this->db->num_rows($resql);

            $somethingdoneonpartnership = 0;
            $ifetchpartner = 0;
            while ($ifetchpartner < $numofexpiredmembers) {
                $ifetchpartner++;

                $obj = $this->db->fetch_object($resql);
                if ($obj) {
                    if (!empty($partnershipsprocessed[$obj->rowid])) {
                        continue;
                    }

                    if ($somethingdoneonpartnership >= $MAXPERCALL) {
                        dol_syslog("We reach the limit of " . $MAXPERCALL . " partnership processed, so we quit loop for this batch doCancelStatusOfMemberPartnership to avoid to reach email quota.", LOG_WARNING);
                        break;
                    }

                    $object = new Partnership($this->db);
                    $object->fetch($obj->rowid);

                    // Get expiration date
                    $expirationdate = $obj->datefin;

                    if ($expirationdate && $expirationdate < $now) {  // If contract expired (we already had a test into main select, this is a security)
                        $somethingdoneonpartnership++;

                        $result = $object->cancel($user, 0);
                        // $conf->global->noapachereload = null;
                        if ($result < 0) {
                            $error++;
                            $this->error = $object->error;
                            if (is_array($object->errors) && count($object->errors)) {
                                if (is_array($this->errors)) {
                                    $this->errors = array_merge($this->errors, $object->errors);
                                } else {
                                    $this->errors = $object->errors;
                                }
                            }
                        } else {
                            $partnershipsprocessed[$object->id] = $object->ref;

                            // Send an email to inform member
                            $labeltemplate = '(' . getDolGlobalString('PARTNERSHIP_SENDMAIL_IF_AUTO_CANCEL', 'SendingEmailOnPartnershipCanceled') . ')';

                            dol_syslog("Now we will send an email to member id=" . $object->fk_member . " with label " . $labeltemplate);

                            // Send deployment email
                            $formmail = new FormMail($this->db);

                            // Define output language
                            $outputlangs = $langs;
                            $newlang = '';
                            if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && GETPOST('lang_id', 'aZ09')) {
                                $newlang = GETPOST('lang_id', 'aZ09');
                            }
                            if (!empty($newlang)) {
                                $outputlangs = new Translate("", $conf);
                                $outputlangs->setDefaultLang($newlang);
                                $outputlangs->loadLangs(array('main', 'member', 'partnership'));
                            }

                            $arraydefaultmessage = $formmail->getEMailTemplate($this->db, 'partnership_send', $user, $outputlangs, 0, 1, $labeltemplate);

                            $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
                            complete_substitutions_array($substitutionarray, $outputlangs, $object);

                            $subject = make_substitutions($arraydefaultmessage->topic, $substitutionarray, $outputlangs);
                            $msg     = make_substitutions($arraydefaultmessage->content, $substitutionarray, $outputlangs);
                            $from = dol_string_nospecial($conf->global->MAIN_INFO_SOCIETE_NOM, ' ', array(",")) . ' <' . getDolGlobalString('MAIN_INFO_SOCIETE_MAIL') . '>';

                            // We are in the case of autocancellation subscription because of missing backlink
                            $fk_partner = $object->fk_member;

                            $adherent = new Adherent($this->db);
                            $adherent->fetch($object->fk_member);
                            $sendto = $adherent->email;

                            $trackid = 'par' . $object->id;
                            $sendcontext = 'standard';

                            $cmail = new CMailFile($subject, $sendto, $from, $msg, array(), array(), array(), '', '', 0, 1, '', '', $trackid, '', $sendcontext);

                            $result = $cmail->sendfile();

                            if (!$result || !empty($cmail->error) || !empty($cmail->errors)) {
                                $erroremail .= ($erroremail ? ', ' : '') . $cmail->error;
                                $this->errors[] = $cmail->error;
                                if (is_array($cmail->errors) && count($cmail->errors) > 0) {
                                    $this->errors += $cmail->errors;
                                }
                            } else {
                                // Initialisation of datas of object to call trigger
                                if (is_object($object)) {
                                    $actiontypecode = 'AC_OTH_AUTO'; // Event insert into agenda automatically
                                    $attachedfiles = array();

                                    $object->actiontypecode = $actiontypecode; // Type of event ('AC_OTH', 'AC_OTH_AUTO', 'AC_XXX'...)
                                    $object->actionmsg = $arraydefaultmessage->topic . "\n" . $arraydefaultmessage->content; // Long text
                                    $object->actionmsg2 = $langs->transnoentities("PartnershipSentByEMail", $object->ref);
                                    ; // Short text ($langs->transnoentities('MailSentByTo')...);
                                    if (getDolGlobalString('MAIN_MAIL_REPLACE_EVENT_TITLE_BY_EMAIL_SUBJECT')) {
                                        $object->actionmsg2     = $subject; // Short text
                                    }

                                    $object->trackid = $trackid;

The property trackid does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    $object->fk_element = $object->id;
                                    $object->elementtype = $object->element;

The property elementtype does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    if (is_array($attachedfiles) && count($attachedfiles) > 0) {
                                        $object->attachedfiles = $attachedfiles;

The property attachedfiles does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    }

                                    $object->email_from = $from;

The property email_from does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    $object->email_subject = $subject;

The property email_subject does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    $object->email_to = $sendto;

The property email_to does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                    $object->email_subject = $subject;

                                    $triggersendname = 'PARTNERSHIP_SENTBYMAIL';
                                    // Call of triggers (you should have set $triggersendname to execute trigger)
                                    if (!empty($triggersendname)) {
                                        $result = $object->call_trigger($triggersendname, $user);
                                        if ($result < 0) {
                                            $error++;
                                        }
                                    }
                                    // End call of triggers
                                }
                            }
                        }
                    }
                }
            }
        } else {
            $error++;
            $this->error = $this->db->lasterror();
        }

        if (!$error) {
            $this->db->commit();
            $this->output = $numofexpiredmembers . ' expired partnership members found' . "\n";
            if ($erroremail) {
                $this->output .= '. Got errors when sending some email : ' . $erroremail;
            }
        } else {
            $this->db->rollback();
            $this->output = "Rollback after error\n";
            $this->output .= $numofexpiredmembers . ' expired partnership members found' . "\n";
            if ($erroremail) {
                $this->output .= '. Got errors when sending some email : ' . $erroremail;
            }
        }

        return ($error ? 1 : 0);
    }


    /**
     * Action executed by scheduler to check if Dolibarr backlink not found on partner website. (Max number of action batch per call = $conf->global->PARTNERSHIP_MAX_WARNING_BACKLINK_PER_CALL)
     *
     * CAN BE A CRON TASK
     *
     * @param   int     $maxpercall     Max per call
     * @return  int                     0 if OK, <>0 if KO (this function is used also by cron so only 0 is OK)
     */
    public function doWarningOfPartnershipIfDolibarrBacklinkNotfound($maxpercall = 0)
    {
        global $conf, $langs, $user;

        $managedfor = getDolGlobalString('PARTNERSHIP_IS_MANAGED_FOR');

        $partnership = new Partnership($this->db);
        if (empty($maxpercall)) {
            $maxpercall = getDolGlobalInt('PARTNERSHIP_MAX_WARNING_BACKLINK_PER_CALL', 10);
        }

        $langs->loadLangs(array("partnership", "member"));

        $error = 0;
        $erroremail = '';
        $this->output = '';
        $this->error = '';
        $partnershipsprocessed = array();
        $emailnotfound = '';
        $websitenotfound = '';

        /*$gracedelay = getDolGlobalInt('PARTNERSHIP_NBDAYS_AFTER_MEMBER_EXPIRATION_BEFORE_CANCEL');
        if ($gracedelay < 1) {
            $this->error = 'BadValueForDelayBeforeCancelCheckSetup';
            return -1;
        }*/

        $fk_partner = ($managedfor == 'member') ? 'fk_member' : 'fk_soc';

        dol_syslog(get_class($this) . "::doWarningOfPartnershipIfDolibarrBacklinkNotfound Warning of partnership");

        $now = dol_now();
        //$datetotest = dol_time_plus_duree($now, -1 * abs($gracedelay), 'd');

        $this->db->begin();

        $sql = "SELECT p.rowid, p.status, p." . $fk_partner;
        $sql .= ", p.url_to_check, p.last_check_backlink";
        $sql .= ', partner.url, partner.email';
        $sql .= " FROM " . MAIN_DB_PREFIX . "partnership as p";
        if ($managedfor == 'member') {
            $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "adherent as partner on (partner.rowid = p.fk_member)";
        } else {
            $sql .= " LEFT JOIN " . MAIN_DB_PREFIX . "societe as partner on (partner.rowid = p.fk_soc)";
        }
        $sql .= " WHERE p." . $fk_partner . " > 0";
        $sql .= " AND p.status = " . ((int) $partnership::STATUS_APPROVED); // Only accepted and not yet canceled
        $sql .= " AND (p.last_check_backlink IS NULL OR p.last_check_backlink <= '" . $this->db->idate($now - 24 * 3600) . "')"; // Never more than 1 check every day to check that website contains a referral link.
        $sql .= $this->db->order('p.rowid', 'ASC');
        // Limit is managed into loop later

        $resql = $this->db->query($sql);
        if ($resql) {
            $numofexpiredmembers = $this->db->num_rows($resql);
            $somethingdoneonpartnership = 0;
            $ifetchpartner = 0;
            while ($ifetchpartner < $numofexpiredmembers) {
                $ifetchpartner++;

                $obj = $this->db->fetch_object($resql);
                if ($obj) {
                    if (!empty($partnershipsprocessed[$obj->rowid])) {
                        continue;
                    }

                    if ($somethingdoneonpartnership >= $maxpercall) {
                        dol_syslog("We reach the limit of " . $maxpercall . " partnership processed, so we quit loop for this batch doWarningOfPartnershipIfDolibarrBacklinkNotfound to avoid to reach email quota.", LOG_WARNING);
                        break;
                    }

                    $backlinkfound = 0;

                    $object = new Partnership($this->db);
                    $object->fetch($obj->rowid);

                    if ($managedfor == 'member') {
                        $fk_partner = $object->fk_member;
                    } else {
                        $fk_partner = $object->fk_soc;
                    }

                    $website = (empty($obj->url_to_check) ? $obj->url : $obj->url_to_check);

                    if (empty($website)) {
                        $websitenotfound .= ($websitenotfound ? ', ' : '') . 'Website not found for id="' . $fk_partner . '"' . "\n";
                    } else {
                        $backlinkfound = $this->checkDolibarrBacklink($website);
                    }

                    if (!$backlinkfound) {
                        $tmpcount = $object->count_last_url_check_error + 1;

                        $nbminbacklinkerrorforcancel = (int) getDolGlobalString('PARTNERSHIP_MIN_BACKLINK_ERROR_FOR_CANCEL', 3);
                        $nbmaxbacklinkerrorforcancel = (int) getDolGlobalString('PARTNERSHIP_MAX_BACKLINK_ERROR_FOR_CANCEL', (int) $nbminbacklinkerrorforcancel + 2);

                        // If $nbminbacklinkerrorforemail = 0, no autoemail
                        if ($nbminbacklinkerrorforcancel > 0) {
                            if ($tmpcount > $nbminbacklinkerrorforcancel && $tmpcount <= $nbmaxbacklinkerrorforcancel) { // Send Warning Email
                                if (!empty($obj->email)) {
                                    $emailnotfound .= ($emailnotfound ? ', ' : '') . 'Email not found for id="' . $fk_partner . '"' . "\n";
                                } else {
                                    // Example: 'SendingEmailOnPartnershipWillSoonBeCanceled'
                                    $labeltemplate = '(' . getDolGlobalString('PARTNERSHIP_SENDMAIL_IF_NO_LINK', 'SendingEmailOnPartnershipWillSoonBeCanceled') . ')';

                                    dol_syslog("Now we will send an email to partner id=" . $fk_partner . " with label " . $labeltemplate);

                                    // Send deployment email
                                    $formmail = new FormMail($this->db);

                                    // Define output language
                                    $outputlangs = $langs;
                                    $newlang = '';
                                    if (getDolGlobalInt('MAIN_MULTILANGS') && empty($newlang) && GETPOST('lang_id', 'aZ09')) {
                                        $newlang = GETPOST('lang_id', 'aZ09');
                                    }
                                    if (!empty($newlang)) {
                                        $outputlangs = new Translate("", $conf);
                                        $outputlangs->setDefaultLang($newlang);
                                        $outputlangs->loadLangs(array('main', 'member', 'partnership'));
                                    }

                                    $arraydefaultmessage = $formmail->getEMailTemplate($this->db, 'partnership_send', $user, $outputlangs, 0, 1, $labeltemplate);

                                    $substitutionarray = getCommonSubstitutionArray($outputlangs, 0, null, $object);
                                    complete_substitutions_array($substitutionarray, $outputlangs, $object);

                                    $subject = make_substitutions($arraydefaultmessage->topic, $substitutionarray, $outputlangs);
                                    $msg     = make_substitutions($arraydefaultmessage->content, $substitutionarray, $outputlangs);
                                    $from = dol_string_nospecial($conf->global->MAIN_INFO_SOCIETE_NOM, ' ', array(",")) . ' <' . getDolGlobalString('MAIN_INFO_SOCIETE_MAIL') . '>';

                                    $sendto = $obj->email;

                                    $trackid = 'par' . $object->id;
                                    $sendcontext = 'standard';

                                    $cmail = new CMailFile($subject, $sendto, $from, $msg, array(), array(), array(), '', '', 0, 1, '', '', $trackid, '', $sendcontext);

                                    $result = $cmail->sendfile();

                                    if (!$result || !empty($cmail->error) || !empty($cmail->errors)) {
                                        $erroremail .= ($erroremail ? ', ' : '') . $cmail->error;
                                        $this->errors[] = $cmail->error;
                                        if (is_array($cmail->errors) && count($cmail->errors) > 0) {
                                            $this->errors += $cmail->errors;
                                        }
                                    } else {
                                        // Initialisation of datas of object to call trigger
                                        if (is_object($object)) {
                                            $actiontypecode = 'AC_OTH_AUTO'; // Event insert into agenda automatically
                                            $attachedfiles = array();

                                            if ($managedfor != 'member') {
                                                $object->socid = $fk_partner; // To link to a company
                                            }
                                            $object->actiontypecode = $actiontypecode; // Type of event ('AC_OTH', 'AC_OTH_AUTO', 'AC_XXX'...)
                                            $object->actionmsg = $arraydefaultmessage->topic . "\n" . $arraydefaultmessage->content; // Long text
                                            $object->actionmsg2 = $langs->transnoentities("PartnershipSentByEMail", $object->ref);
                                            ; // Short text ($langs->transnoentities('MailSentByTo')...);
                                            if (getDolGlobalString('MAIN_MAIL_REPLACE_EVENT_TITLE_BY_EMAIL_SUBJECT')) {
                                                $object->actionmsg2     = $subject; // Short text
                                            }

                                            $object->trackid = $trackid;

The property trackid does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            $object->fk_element = $object->id;
                                            $object->elementtype = $object->element;

The property elementtype does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            if (is_array($attachedfiles) && count($attachedfiles) > 0) {
                                                $object->attachedfiles = $attachedfiles;

The property attachedfiles does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            }

                                            $object->email_from = $from;

The property email_from does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            $object->email_subject = $subject;

The property email_subject does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            $object->email_to = $sendto;

The property email_to does not exist on Dolibarr\Code\Partnerships\Classes\Partnership. Since you implemented __set, consider adding a @property annotation.

                                            $object->email_subject = $subject;

                                            $triggersendname = 'PARTNERSHIP_SENTBYMAIL';
                                            // Call of triggers (you should have set $triggersendname to execute trigger)
                                            if (!empty($triggersendname)) {
                                                $result = $object->call_trigger($triggersendname, $user);
                                                if ($result < 0) {
                                                    $error++;
                                                }
                                            }
                                            // End call of triggers
                                        }
                                    }
                                }
                            } elseif ($tmpcount > $nbmaxbacklinkerrorforcancel) { // Cancel Partnership
                                $object->status = $object::STATUS_CANCELED;
                                $object->reason_decline_or_cancel = $langs->trans('BacklinkNotFoundOnPartnerWebsite');
                            }
                        }

                        $object->count_last_url_check_error = $tmpcount;
                    } else {
                        $object->count_last_url_check_error = 0;
                        $object->reason_decline_or_cancel = '';
                    }

                    $partnershipsprocessed[$object->id] = $object->ref;

                    $object->last_check_backlink = $now;

                    $object->update($user);
                }
            }
        } else {
            $error++;
            $this->error = $this->db->lasterror();
        }

        if (!$error) {
            $this->db->commit();
            $this->output = "";
        } else {
            $this->db->rollback();
            $this->output = "Rollback after error\n";
        }
        $this->output .= $numofexpiredmembers . ' partnership checked' . "\n";
        if ($erroremail) {
            $this->output .= '. Got errors when sending some email : ' . $erroremail . "\n";
        }
        if ($emailnotfound) {
            $this->output .= '. Email not found for some partner : ' . $emailnotfound . "\n";
        }
        if ($websitenotfound) {
            $this->output .= '. Website not found for some partner : ' . $websitenotfound . "\n";
        }
        $this->output .= "\nSQL used to find partnerships to scan: " . $sql;

        return ($error ? 1 : 0);
    }

    /**
     * Action to check if Dolibarr backlink not found on partner website
     *
     * @param   string  $website        Partner's website URL
     * @return  int                     0 if KO, 1 if OK
     */
    private function checkDolibarrBacklink($website = null)
    {
        global $conf;

        $found      = 0;
        $error      = 0;
        $webcontent = '';

        // $website = 'https://nextgestion.com/'; // For Test
        $tmpgeturl = getURLContent($website, 'GET', '', 1, array(), array('http', 'https'), 0);
        if ($tmpgeturl['curl_error_no']) {
            $error++;
            dol_syslog('Error getting ' . $website . ': ' . $tmpgeturl['curl_error_msg']);
        } elseif ($tmpgeturl['http_code'] != '200') {
            $error++;
            dol_syslog('Error getting ' . $website . ': ' . $tmpgeturl['curl_error_msg']);
        } else {
            $urlContent = $tmpgeturl['content'];
            $dom = new DOMDocument();

The type Dolibarr\Code\Partnerships\Classes\DOMDocument was not found. Did you mean DOMDocument? If so, make sure to prefix the type with \.

            @$dom->loadHTML($urlContent);

It seems like you do not handle an error condition for loadHTML(). This can introduce security issues, and is generally not recommended.

            $xpath = new DOMXPath($dom);

The type Dolibarr\Code\Partnerships\Classes\DOMXPath was not found. Did you mean DOMXPath? If so, make sure to prefix the type with \.

            $hrefs = $xpath->evaluate("//a");

            for ($i = 0; $i < $hrefs->length; $i++) {
                $href = $hrefs->item($i);
                $url = $href->getAttribute('href');
                $url = filter_var($url, FILTER_SANITIZE_URL);
                if (!filter_var($url, FILTER_VALIDATE_URL) === false) {
                    $webcontent .= $url;
                }
            }
        }

        if ($webcontent && getDolGlobalString('PARTNERSHIP_BACKLINKS_TO_CHECK') && preg_match('/' . getDolGlobalString('PARTNERSHIP_BACKLINKS_TO_CHECK') . '/', $webcontent)) {
            $found = 1;
        }

        return $found;
    }
}