Fix Perl API

Author: natacha-beck

perl/CbrainAPI.pm

@@ -556,8 +556,7 @@ sub index_data_providers {
   $self->prep_req(GET => "/data_providers");
   if ($filters && ref($filters) eq "HASH") {
       $self->add_params($filters);
-      $self->add_params({"update_filter" => "filter_hash"});
-      $self->add_params({"clear_filter"  => "filter_hash"});
+      $self->add_params({"_simple_filters" => "1"});
   }
 
   $self->request();
@@ -738,8 +737,7 @@ sub index_userfiles {
   $self->prep_req(GET => "/userfiles");
   if ($filters && ref($filters) eq "HASH") {
       $self->add_params($filters);
-      $self->add_params({"update_filter" => "filter_hash"});
-      $self->add_params({"clear_filter"  => "filter_hash"});
+      $self->add_params({"_simple_filters" => "1"});
   }
 
   $self->request();
@@ -1235,8 +1233,7 @@ sub index_bourreaux {
       $self->add_params($filters);
       $self->add_params("type" => "Bourreau") if !defined($filters->{"type"});
 
-      $self->add_params({"update_filter" => "filter_hash"});
-      $self->add_params({"clear_filter"  => "filter_hash"});
+      $self->add_params({"_simple_filters" => "1"});
   }
 
   $self->request();
@@ -1412,8 +1409,7 @@ sub index_users {
   $self->prep_req(GET => "/users");
   if ($filters && ref($filters) eq "HASH") {
       $self->add_params($filters);
-      $self->add_params({"update_filter" => "filter_hash"});
-      $self->add_params({"clear_filter"  => "filter_hash"});
+      $self->add_params({"_simple_filters" => "1"});
   }
 
   $self->request();
@@ -1593,8 +1589,7 @@ sub index_tasks {
   $self->prep_req(GET => "/tasks");
   if ($filters && ref($filters) eq "HASH") {
       $self->add_params($filters);
-      $self->add_params({"update_filter" => "filter_hash"});
-      $self->add_params({"clear_filter"  => "filter_hash"});
+      $self->add_params({"_simple_filters" => "1"});
   }
 
   $self->request();

perl/tests/301-show-userfile.pl

@@ -13,7 +13,7 @@
 
 die "Value returned not an hash.\n" unless defined($file_info) && ref($file_info) eq "HASH";
 die "You have no information for your userfile\n" if scalar(%$file_info) eq "0";
-die "You have no entry for log"                   unless exists $file_info->{"log"};
+die "You have no entry for userfile_log"          unless exists $file_info->{"userfile_log"};
 die "You have no entry for syncstatus"            unless exists $file_info->{"remote_sync_status"};
 die "You have no entry for parent_id"             unless exists $file_info->{"parent_id"};
 die "You have no entry for children_ids"          unless exists $file_info->{"children_ids"};

perl/tests/302-create-userfile.pl

@@ -33,7 +33,7 @@
 our $userfile_name_302 = "api_mytest1.$$.txt";
 my  $full_path         = "$orig_dp_dir/$userfile_name_302";
 our $one_line_302      = "This is a test of file creation! $$\n";
-my  $long_text         = $one_line_302 x 200;
+my  $long_text         = $one_line_302 x 2000;
 
 open  (MYFILE, ">>$full_path");
 print  MYFILE "$long_text";

perl/tests/303-content-userfile.pl

@@ -5,7 +5,7 @@
 
 die "SKIPPED: You have no userfile to handle"             unless defined($userfile_id_302);
 die "SKIPPED: You have no information about file content" unless defined($one_line_302);
-die "SKIPPED: Do no have size of the originale file"      unless defined($userfile_size_302);
+die "SKIPPED: Do not have size of the original file"      unless defined($userfile_size_302);
 
 ##################################
 # Stream file (content_userfile) #

perl/tests/305-download-userfiles.pl

@@ -8,8 +8,8 @@
 
 die "SKIPPED: You have no userfile to handle"             unless defined($userfile_id_302);
 die "SKIPPED: You have no information about file content" unless defined($one_line_302);
-die "SKIPPED: Do no have size of the originale file"      unless defined($userfile_size_302);
-die "SKIPPED: Do no have userfiles ids"                   unless defined($userfile_ids);
+die "SKIPPED: Do not have size of the original file"       unless defined($userfile_size_302);
+die "SKIPPED: Do not have userfiles ids"                   unless defined($userfile_ids);
 
 ######################################
 # Download file (download_userfiles) #

perl/tests/504-disk_cache_report-bourreau.pl

@@ -13,7 +13,7 @@
 
 die "Value returned not an hash.\n" unless defined($bourreau_disk_cache_report_info) && ref($bourreau_disk_cache_report_info) eq "HASH";
 my $admin_id = $admin->session_status();
-die "Value returned don't contain expected value.\n" unless $bourreau_disk_cache_report_info->{"${admin_id}"}->{"number_entries"};
+die "Value returned don't contain expected value.\n" unless $bourreau_disk_cache_report_info->{"${admin_id}"}->{"number_entries"} =~ m/^\d+$/;
 
 
 1;