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

use lib '../files/perl/lib';
use Base::Data qw(data_file get_hash);
use Twitter qw(twitter_accounts);
use Twitter::ListSort qw(list_sortflags list_compare);

my %lists;
for my $account (twitter_accounts) {
  my $account_list_file = data_file("Twitter/users/$account","lists.txt");
  if (-s $account_list_file) {
    my %sublists = get_hash(
      file => $account_list_file,
      headings => [qw(id slug name user members mem_change subscribers sub_change status)],
    );
    for (keys %sublists) {
      next if $sublists{$_}{status} ne 'owner';
      $lists{$_} = $sublists{$_};
    }
  }
}

for my $list (values %lists) {
    list_sortflags($list);
}

for my $list (sort { list_compare($a,$b) } values %lists) {
  local $\ = "\n";
  my $name = $list->{name};
  my $user = $list->{user};
  print "$name ($user)";
}