#!/usr/bin/perl
use strict;
use warnings FATAL => qw( all );

use Lingua::EN::Inflect qw(WORDLIST);
use Text::Table;
use Win32::Clipboard;

use lib '../files/perl/lib';
use Twitter::Data;

my @accounts = Twitter::Data::accounts;
my %lists = Twitter::Data::all_lists;
my %lists_people = Twitter::Data::lists_people;
my @subscribers = @{$lists{'72710881'}{members}};

local $\ = "\n";

# 1 above.
print 'Subscribers not on the list';
for my $subscriber (keys %{$lists_people{subscribers}}) {
  my $s_lists = WORDLIST(@{$lists_people{subscribers}{$subscriber}}, {conj=>''});
  print "$subscriber - $s_lists" if !grep($_ eq $subscriber,@subscribers);
}
print "\n";

# 2 above.
print 'Non-subscribers on the list';
for my $subscriber (@subscribers) {
  print $subscriber if !$lists_people{subscribers}{$subscriber};
}
print "\n";

# 3 above
print 'People followed but not listed (by account)';
for my $account (@accounts) {
  next if $account =~ /^(LadyAleena_(?:eros|test))$/;
  my %account_people = Twitter::Data::acct_data($account,'people');

  my @not_members;
  for my $person (values %account_people) {
    my $name = $person->{screen_name};
    push @not_members, $name if ($person->{friends} == 1 && !$lists_people{members}{$name});
  }

  local $\ = "\n";
  if (scalar(@not_members) > 0) {
    print "$account";
    for (sort {lc $a cmp lc $b} @not_members) {
      $board .= "\t$_\n";
      print "\t$_";
    }
  }
}