3 * @copyright Copyright (C) 2010-2022, the Friendica project
5 * @license GNU AGPL version 3 or any later version
7 * This program is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU Affero General Public License as
9 * published by the Free Software Foundation, either version 3 of the
10 * License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU Affero General Public License for more details.
17 * You should have received a copy of the GNU Affero General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 namespace Friendica\Module\Debug;
25 use Friendica\BaseModule;
26 use Friendica\Core\L10n;
27 use Friendica\Core\Renderer;
30 use Friendica\Module\Response;
31 use Friendica\Network\HTTPClient\Capability\ICanSendHttpRequests;
32 use Friendica\Network\HTTPClient\Client\HttpClientAccept;
33 use Friendica\Protocol;
34 use Friendica\Util\Profiler;
35 use Psr\Log\LoggerInterface;
38 * Tests a given feed of a contact
40 class Feed extends BaseModule
42 /** @var ICanSendHttpRequests */
43 protected $httpClient;
45 public function __construct(L10n $l10n, App\BaseURL $baseUrl, App\Arguments $args, LoggerInterface $logger, Profiler $profiler, Response $response, ICanSendHttpRequests $httpClient, array $server, array $parameters = [])
47 parent::__construct($l10n, $baseUrl, $args, $logger, $profiler, $response, $server, $parameters);
49 $this->httpClient = $httpClient;
51 if (!DI::userSession()->getLocalUserId()) {
52 DI::sysmsg()->addNotice($this->t('You must be logged in to use this module'));
57 protected function content(array $request = []): string
60 if (!empty($_REQUEST['url'])) {
61 $url = $_REQUEST['url'];
63 $contact = Model\Contact::getByURLForUser($url, DI::userSession()->getLocalUserId(), null);
65 $xml = $this->httpClient->fetch($contact['poll'], HttpClientAccept::FEED_XML);
67 $import_result = Protocol\Feed::import($xml);
71 'output' => var_export($import_result, true),
75 $tpl = Renderer::getMarkupTemplate('feedtest.tpl');
76 return Renderer::replaceMacros($tpl, [
77 '$url' => ['url', $this->t('Source URL'), $_REQUEST['url'] ?? '', ''],