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

use Lingua::EN::Inflect qw(NO);
use Win32::Clipboard;

use lib '../files/perl/lib';
use Twitter::ListSort qw(list_compare);
use Twitter::Data;

my %lists = Twitter::Data::all_lists; # This is all of the lists I keep across all my accounts.

my $board;
for my $list (sort { list_compare($a,$b) } values %lists) { # Starting the loop.
  next if !grep(/owner/,@{$list->{status}});
  my $targ = $list->{target};
  my $link = $list->{link};

  my $name = length($list->{long_name}) ? $list->{long_name} : $list->{name};
  my $targ_text = $targ > 0 ? " (".NO('subscriber',$targ)." 'til target met)" : '';
  my $asterisk = $list->{user} eq "Lady_Aleena" ? '*' : '';

  $board .= qq(<li><a href="$link">$name</a>$asterisk$targ_text</li>\n);
}

my $clip = Win32::Clipboard();
$clip->Set($board);

##</code><code>##

#!/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$_";
    }
  }
}