Skip to content
Snippets Groups Projects
Select Git revision
  • 9a05dea2c12b2afd51627b9008f4e5c1ac6dde97
  • master default protected
  • release-1.10 protected
  • release-1.9 protected
  • dev protected
  • replication_test
  • 551-init-broker-service-permissions
  • 549-test-oai-pmh
  • 545-saving-multiple-times-breaks-pid-metadata
  • 499-standalone-compute-service-2
  • 539-load-tests
  • hotfix/helm-chart
  • luca_ba_new_interface
  • 534-bug-when-adding-access-to-user-that-is-not-registered-at-dashboard-service
  • release-1.8 protected
  • 533-integrate-semantic-recommendation
  • feature/openshift
  • 518-spark-doesn-t-map-the-headers-correct
  • 485-fixity-checks
  • 530-various-schema-problems-with-subsets
  • release-1.7 protected
  • v1.10.1 protected
  • v1.10.0-rc13 protected
  • v1.10.0-rc12 protected
  • v1.10.0-rc11 protected
  • v1.10.0-rc10 protected
  • v1.10.0-rc9 protected
  • v1.10.0-rc8 protected
  • v1.10.0-rc7 protected
  • v1.10.0-rc6 protected
  • v1.10.0-rc5 protected
  • v1.10.0-rc4 protected
  • v1.10.0-rc3 protected
  • v1.10.0-rc2 protected
  • v1.10.0rc1 protected
  • v1.10.0rc0 protected
  • v1.10.0 protected
  • v1.9.3 protected
  • v1.9.2 protected
  • v1.9.2-rc0 protected
  • v1.9.1 protected
41 results

generate-rabbitmq-pw.sh

Blame
  • Util.pm 617 B
    
    package TA::Util;
    
    use strict;
    
    use JSON;
    
    =head2 _file_slurp ($filename, $format)
    
    read contents of that file and 
    
    =cut
    
    sub slurp_file
    {
      my $fnm= shift;
      my $format= shift || 'lines';
    
      open (FI, $fnm) or return undef;
      my @lines= <FI>;
      close (FI);
    
      if ($format eq 'array')
      {
        return @lines;
      }
      elsif ($format eq 'arrayref')
      {
        return \@lines;
      }
      elsif ($format eq 'string')
      {
        return join ('', @lines);
      }
      elsif ($format eq 'json')
      {
        my $str= join ('', @lines);
        return decode_json ($str);
      }
     
      print STDERR "unknown slurp format '$format'\n";
      return undef;
    }
    
    1;