Factoids: add `keep-quotes` metadata for applet commands

lib/PBot/Core/Applets.pm

@@ -82,7 +82,11 @@ sub launch_applet {
             $args = encode('UTF-8', $args);
         }
 
-        my @cmdline = ("./$applet", $self->{pbot}->{interpreter}->split_line($args));
+        my $strip_quotes = 1;
+
+        $strip_quotes = 0 if $self->{pbot}->{factoids}->{data}->{storage}->get_data($channel, $trigger, 'keep-quotes');
+
+        my @cmdline = ("./$applet", $self->{pbot}->{interpreter}->split_line($args, strip_quotes => $strip_quotes));
 
         my $timeout = $self->{pbot}->{registry}->get_value('general', 'applet_timeout') // 30;
 

lib/PBot/Core/Factoids/Data.pm

@@ -27,6 +27,7 @@ our %factoid_metadata = (
     'enabled'               => 'INTEGER',
     'help'                  => 'TEXT',
     'interpolate'           => 'INTEGER',
+    'keep-quotes'           => 'INTEGER',
     'keyword_override'      => 'TEXT',
     'last_referenced_in'    => 'TEXT',
     'last_referenced_on'    => 'NUMERIC',

lib/PBot/VERSION.pm

@@ -25,8 +25,8 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4545,
-    BUILD_DATE     => "2022-06-26",
+    BUILD_REVISION => 4546,
+    BUILD_DATE     => "2022-06-27",
 };
 
 sub initialize {}

updates/4546_restart_required.pl

@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+
+# Recent updates require a bot restart
+#
+# Added 'keep-quotes' factoid metadata.
+
+exit 0;