equal
deleted
inserted
replaced
53 # Upload form in DATA section |
53 # Upload form in DATA section |
54 get '/' => sub { |
54 get '/' => sub { |
55 my $self = shift; |
55 my $self = shift; |
56 |
56 |
57 my @files; |
57 my @files; |
58 opendir my ($dh), $data_path; |
58 opendir my ($dh), $data_path or die $!; |
59 while(readdir $dh) { |
59 my @allfiles = readdir $dh; |
60 if($_ =~ /(.*)\.json$/) { |
60 foreach(@allfiles) |
|
61 { |
|
62 if($_ =~ /(.*)\.json$/) |
|
63 { |
61 my $filename = File::Spec->catfile($data_path, $_); |
64 my $filename = File::Spec->catfile($data_path, $_); |
62 push @files, { |
65 push @files, { |
63 file => $filename, |
66 file => $filename, |
64 uuid => $1, |
67 uuid => $1, |
65 signature => $1, |
68 signature => $1, |