<commit_before>#!/usr/bin/perl -w

use strict;

use Net::Twitter;

# Needs read/write access!

my $consumer_key = "";
my $consumer_secret = "";

my $access_token = "";
my $acces_token_secret = "";

#my @idiots = ( "CHSommers", "AdamBaldwin", "FartToContinue", "PlayDangerously" );
my @idiots = ( "FartToContinue", "PlayDangerously" );
my @whitelist = ( "gamergatetxt" );
my @blacklist; 

my @sheeple_ids;
my @sheeple_names; # add any other users you want blocked here 

my $nt = Net::Twitter->new(
	traits			=> [qw/API::RESTv1_1/],
	ssl			=> 1,
	consumer_key		=> $consumer_key,
	consumer_secret		=> $consumer_secret,
	access_token		=> $access_token,
	access_token_secret	=> $access_secret
);

print "This is going to take a while, because API limits are dumb.\n\n";
$| = 1;

# TODO: ironically, the rate limit to check rate limit status is a bit low. So I may need to tweak this a bit.
foreach my $idiot ( @idiots ) {
	print "Examining follower list for $idiot.";

	for ( my $cursor = -1, my $r; $cursor; $cursor = $r->{next_cursor} ) {
		my $m = $nt->rate_limit_status();
<commit_msg>STUPID TYPO DON'T LOOK AT ME I AM HIDEOUS<commit_after>#!/usr/bin/perl -w

use strict;

use Net::Twitter;

# Needs read/write access!

my $consumer_key = "";
my $consumer_secret = "";

my $access_token = "";
my $access_secret = "";

#my @idiots = ( "CHSommers", "AdamBaldwin", "FartToContinue", "PlayDangerously" );
my @idiots = ( "FartToContinue", "PlayDangerously" );
my @whitelist = ( "gamergatetxt" );
my @blacklist; 

my @sheeple_ids;
my @sheeple_names; # add any other users you want blocked here 

my $nt = Net::Twitter->new(
	traits			=> [qw/API::RESTv1_1/],
	ssl			=> 1,
	consumer_key		=> $consumer_key,
	consumer_secret		=> $consumer_secret,
	access_token		=> $access_token,
	access_token_secret	=> $access_secret
);

print "This is going to take a while, because API limits are dumb.\n\n";
$| = 1;

# TODO: ironically, the rate limit to check rate limit status is a bit low. So I may need to tweak this a bit.
foreach my $idiot ( @idiots ) {
	print "Examining follower list for $idiot.";

	for ( my $cursor = -1, my $r; $cursor; $cursor = $r->{next_cursor} ) {
		my $m = $nt->rate_limit_status();

{'fraction_non_alphanumeric': 0.15093479252165984, 'fraction_numerical': 0.004559963520291838, 'mean_word_length': 4.261390887290168, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 21, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '757606', 'n_tokens_mistral': 879, 'n_tokens_neox': 826, 'n_words': 244}