equal
deleted
inserted
replaced
60 UUID::unparse($uuid, $uuidstr); |
60 UUID::unparse($uuid, $uuidstr); |
61 $file->move_to($data_path . '/' . $uuidstr . '.dmp'); |
61 $file->move_to($data_path . '/' . $uuidstr . '.dmp'); |
62 |
62 |
63 # Create json for the params |
63 # Create json for the params |
64 #my @par = $self->req->param; |
64 #my @par = $self->req->param; |
65 my %paramshash = map { $_ => $self->req->param($_) } @valid_params; |
65 my %paramshash = map { $_ => $self->req->param($_) } $self->req->param; |
66 |
66 |
67 my $json = Mojo::JSON->new; |
67 my $json = Mojo::JSON->new; |
68 my $j = $json->encode(\%paramshash); |
68 my $j = $json->encode(\%paramshash); |
69 open JSON, '>', $data_path . '/' . $uuidstr . '.json' or die $!; |
69 open JSON, '>', $data_path . '/' . $uuidstr . '.json' or die $!; |
70 print JSON $j; |
70 print JSON $j; |