perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
Make browser smoke cleanup prefixes adapter-driven
+8
-1
+4
script/perlsky-browser-smoke
+4
script/perlsky-browser-smoke
···
304
304
quoteText => $opt{quote_text},
305
305
replyText => $opt{reply_text},
306
306
profileNote => $opt{profile_note},
307
+
cleanupPostPrefixes => ['perlsky browser smoke '],
307
308
};
308
309
$config->{secondary} = {
309
310
handle => $opt{secondary_handle},
···
313
314
quoteText => $opt{secondary_quote_text},
314
315
replyText => $opt{secondary_reply_text},
315
316
profileNote => $opt{secondary_profile_note},
317
+
cleanupPostPrefixes => ['perlsky browser secondary '],
316
318
};
317
319
$config->{accountSource} = $opt{_pair_loaded} ? 'pair-file' : 'cli';
320
+
$config->{adapter} = 'perlsky';
318
321
_save_pair_file($opt{pair_file}, {
319
322
primary => {
320
323
handle => $opt{handle},
···
335
338
$config->{replyText} = $opt{reply_text};
336
339
$config->{profileNote} = $opt{profile_note};
337
340
$config->{editProfile} = $opt{edit_profile} ? JSON::PP::true : JSON::PP::false;
341
+
$config->{adapter} = 'perlsky';
338
342
}
339
343
340
344
my $config_path = File::Spec->catfile($artifacts_dir, 'config.json');
+4
-1
tools/browser-automation/lib/dual-api.mjs
+4
-1
tools/browser-automation/lib/dual-api.mjs
···
246
246
};
247
247
248
248
const stalePostPrefixesFor = (account) => {
249
-
if (/secondary/i.test(account.postText)) {
249
+
if (Array.isArray(account.cleanupPostPrefixes) && account.cleanupPostPrefixes.length) {
250
+
return account.cleanupPostPrefixes;
251
+
}
252
+
if (/secondary/i.test(account.postText || '')) {
250
253
return ['perlsky browser secondary '];
251
254
}
252
255
return ['perlsky browser smoke '];