use warnings;
use strict;

use Net::Twitter::Lite;

use lib '../../files/perl/lib';
use Base::Roots qw(get_data);
use Base::Nifty qw(get_hash filify);

my $directory = 'personal/Twitter';
my $file_die = "Can't open the file";

my %twitter_lists;
my %twitter_lists_data = (
  file => qq($directory/twitter_lists.txt),
  headings => [qw(name slug id description network)],
);
get_hash(\%twitter_lists,\%twitter_lists_data);

my %networks;
for my $list (sort keys %twitter_lists) {
  my $network = $twitter_lists{$twitter_list}{network};
  push @{$networks{$network}}, $list;
}

for my $network (sort keys %networks) {
  if ($network !~ /unknown/ or scalar(@{$networks{$network}}) > 1) {
    my $twit_id = "LadyAleena$network";
    my $nt = Net::Twitter::Lite->new(
      consumer_key        => 'in the code',
      consumer_secret     => 'in the code',
      access_token        => , # I need to write the script to get this.
      access_token_secret => , # I need to write the script to get this.
    );
    for my $show (sort @{$networks{$network}}) {
      my $directory .= "lists/".filify($list_name);
      my $slug = $twitter_lists{$show}{slug};
      my $r = $nt->create_list({user => $twit_id, name => $show});
      my %following_list;
      my %following_list_data = (
        file => qq($directory/following.txt),
        headings => [qw(name screen_name id)],
      );
      get_hash(\%following_list,%following_list_data);
      for my $follow (sort keys %following_list) {
        my $screen_name = $following_list{$follow}{screen_name};
        my $r = $nt->add_list_member({user => $twit_id, list_id => $slug, id => $screen_name});
      }
    }
  }
}