From 81bc8fa7e0ed9ecc7904dd8de2d5b0dd2f3c5aba Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Thu, 19 Jan 2017 13:41:12 +0100 Subject: [PATCH 1/1] remove old test.pl code (does not work anyways). --- test.pl | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100755 test.pl diff --git a/test.pl b/test.pl deleted file mode 100755 index 937ec1b..0000000 --- a/test.pl +++ /dev/null @@ -1,22 +0,0 @@ -#!/usr/bin/perl -w - -use strict; -use PVE::AccessControl; - -# create ticket using username and password -#my $ticket = PVE::AccessControl::create_ticket(undef, $username, $password); - -# create ticket using ident auth -my $login = getpwuid($<); -my $username = ($< == 0) ? 'root' : "$login\@localhost"; -my $ticket = PVE::AccessControl::create_ticket(undef, $username); -print "got ticket using ident auth: $ticket\n"; - -for (my $i = 0; $i < 1; $i++) { - $ticket = PVE::AccessControl::create_ticket($ticket, $username); - print "renewed ticket: $ticket\n"; -} - -my $user = 'testuser'; - -PVE::AccessControl::add_user($ticket, $user, 'testpw'); -- 2.39.2