Cleanup old error values

Author: danog

src/RPCErrorException.php

@@ -23,6 +23,7 @@
 use Amp\Http\Client\HttpClientBuilder;
 use Amp\Http\Client\Request;
 use Throwable;
+use Webmozart\Assert\Assert;
 
 use const PHP_EOL;
 
@@ -162,6 +163,7 @@ public static function isBad(string $error, int $code, string $method): bool
                 || is_numeric($method);
     }
 
+    private static string $auth;
     /**
      * @internal
      */
@@ -176,10 +178,21 @@ private static function report(string $error, int $code, string $method): string
             && !self::isBad($error, $code, $method)
         ) {
             try {
+                if (!isset(self::$auth)) {
+                    $auth = '';
+                    try {
+                        $auth = getenv('TELERPC_AUTH_TOKEN') ?: '';
+                    } catch (Throwable) {
+                    }
+                    Assert::true(preg_match('/^[a-zA-Z0-9_-]*$/', $auth) === 1, 'TELERPC_AUTH_TOKEN can only contain a-z, A-Z, 0-9, _ and -');
+                    $auth = $auth === '' ? '' : 'auth='.$auth.'&';
+                    self::$auth = $auth;
+                }
+                $auth = self::$auth;
                 $res = json_decode(
                     (
                         HttpClientBuilder::buildDefault()
-                        ->request(new Request('https://report-rpc-error.madelineproto.xyz/?method='.$method.'&code='.$code.'&error='.$error))
+                        ->request(new Request('https://report-rpc-error.madelineproto.xyz/?'.$auth.'method='.$method.'&code='.$code.'&error='.$error))
                     )->getBody()->buffer(),
                     true,
                 );

tools/fuzzer.php

@@ -1,7 +1,8 @@
 <?php declare(strict_types=1);
 
+use Amp\Http\Client\HttpClientBuilder;
+use Amp\Http\Client\Request;
 use danog\MadelineProto\API;
-use danog\MadelineProto\Exception;
 use danog\MadelineProto\Logger;
 use danog\MadelineProto\PTSException;
 use danog\MadelineProto\RPCErrorException;
@@ -59,6 +60,27 @@ function getTL(TLSchema $schema)
 $layer = getTL($schema);
 $res = '';
 
+$auth = '';
+try {
+    $auth = getenv('TELERPC_AUTH_TOKEN') ?: '';
+} catch (Throwable) {
+}
+Assert::true(preg_match('/^[a-zA-Z0-9_-]*$/', $auth) === 1, 'TELERPC_AUTH_TOKEN can only contain a-z, A-Z, 0-9, _ and -');
+
+if ($auth) {
+    $res = json_decode(
+        (
+            HttpClientBuilder::buildDefault()
+                ->request(new Request('https://report-rpc-error.madelineproto.xyz/?auth='.$auth.'&cleanup=1'))
+        )->getBody()->buffer(),
+        true,
+    );
+    Assert::true($res['ok']);
+    echo "Cleaned up old reports".PHP_EOL;
+} else {
+    echo "No TELERPC_AUTH_TOKEN set, not cleaning up old reports".PHP_EOL;
+}
+
 $settings = new Settings;
 $settings->setSchema($schema);
 $settings->getLogger()->setLevel(Logger::ULTRA_VERBOSE);