| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings; |
| 5 | |
| 6 | use PVE::CLI::pveum; |
| 7 | |
| 8 | my $prepare = sub { |
| 9 | # autmatically generate the private key if it does not already exists |
| 10 | PVE::Cluster::gen_auth_key(); |
| 11 | }; |
| 12 | |
| 13 | PVE::CLI::pveum->run_cli_handler(prepare => $prepare); |