src/test/dump-perm.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use Data::Dumper;
   7 use Getopt::Long;
   8
   9 use PVE::RPCEnvironment;
  10
  11 # example:
  12 # dump-perm.pl -f myuser.cfg root /
  13
  14 my $opt_file;
  15 if (!GetOptions ("file=s"   => \$opt_file)) {
  16     exit (-1);
  17 }
  18
  19 my $username = shift;
  20 my $path = shift;
  21
  22 if (!($username && $path)) {
  23     print "usage: $0 <username> <path>\n";
  24     exit (-1);
  25 }
  26
  27 my $cfg;
  28
  29 my $rpcenv = PVE::RPCEnvironment->init('cli');
  30 if ($opt_file) {
  31     $rpcenv->init_request(userconfig => $opt_file);
  32 } else {
  33     $rpcenv->init_request();
  34 }
  35
  36 my $perm = $rpcenv->permissions($username, $path);
  37
  38 print "permission for user '$username' on '$path':\n";
  39 print join(',', keys %$perm) . "\n";
  40
  41 exit (0);