package CrashTest::Storage::FileSystem;

use strict;

use warnings;

sub new {

    my ($class, $data_path) = @_;

    my $self  = {};

    $self->{data_path} = $data_path;

    bless ($self, $class);

    return $self;

}

sub index {

    my ($self) = @_;

    my @files;

    opendir my ($dh), $self->{data_path} or die $!;

    my @allfiles = readdir $dh;

    foreach(@allfiles)

    {

        if($_ =~ /(.*)\.json$/)

        {

            my $filename = File::Spec->catfile($self->{data_path}, $_);

            push @files, {

                file => $filename,

                uuid => $1,

                signature => $1,

                product => "",

                date => (stat $filename)[9],

            };

        }

    }

    closedir $dh;

    my @sorted_files = ( sort { $b->{date} <=> $a->{date} } @files );

    @sorted_files = @sorted_files[0..19] if scalar(@sorted_files) > 20;

    return \@sorted_files;

}

sub get_processed_data {

    my ($self, $uuid) = @_;

    open JSON, '<', File::Spec->catfile($self->{data_path}, $uuid . '.json') or die $!;

    my @json_content_lines = <JSON>;

    my $json_content = join('', @json_content_lines);

    close JSON;

    my $json = Mojo::JSON->new;

    my $processed_data = $json->decode($json_content);

    return $processed_data;

}

sub store_processed_data {

    my ($self, $uuid, $pjson) = @_;

    my $json = Mojo::JSON->new;

    my $j = $json->encode($pjson);

    open JSON, '>', File::Spec->catfile($self->{data_path}, "$uuid.json") or die $!;

    print JSON $j;

    close JSON;

}

sub store_dump {

    my ($self, $uuid, $file) = @_;

    my $dmp_file = File::Spec->catfile($self->{data_path}, "$uuid.dmp");

    $file->move_to($dmp_file);

}

1;