###########################################
package Distro::Plugin::FTP;
###########################################
use Mouse;
use LWP::UserAgent;
use Log::Log4perl qw(:easy);
use File::Listing;

sub dirlist {
  my( $self, $url ) = @_;

  DEBUG "Listing $url";

  my $ua = LWP::UserAgent->new();
  my $resp = $ua->get( $url );

  my $listing = $resp->content();
  my @lines   = split /\n/, $listing;
  pop @lines;

  my @data = ();

  for (File::Listing::parse_dir(
          \@lines, 'GMT')) {
    my($name, $type, $size, 
       $mtime, $mode) = @$_;
    push @data, 
         { pkg => $name, mtime => $mtime };
  }

  DEBUG "Found ", scalar @data, " results";
  return \@data;
}

###########################################
sub dateformat  {
###########################################
  my( $self, $time ) = @_;
   
  my $dt = DateTime->from_epoch( 
      epoch => $time );
  return "$dt";
}

1;