#!/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);