data/test/scripts/test-verify-token.pl

   1 #!/usr/bin/perl
   2
   3 use lib '../../';
   4
   5 use strict;
   6 use warnings;
   7
   8 use Data::Dumper;
   9
  10 use PVE::Tools;
  11 use PVE::Cluster;
  12
  13 ## For quick test you can add arbitrary fake tokens to token.cfg:
  14 # echo 'root@pam 1234512345XXXXX' >> /etc/pve/priv/token.cfg
  15
  16 my $token = shift // '1234512345XXXXX';
  17 my $userid = shift // 'root@pam';
  18
  19 my $res = PVE::Cluster::verify_token($userid, $token);
  20
  21 print "token '$userid $token' ". ($res ? '' : "not " ) ."found\n";