perlsky is a Perl 5 implementation of an AT Protocol Personal Data Server.
13
fork

Configure Feed

Select the types of activity you want to include in your feed.

Make browser smoke cleanup prefixes adapter-driven

alice ea8c4f24 2a0c9047

+8 -1
+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
··· 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 '];