remove old test.pl code (does not work anyways).
authorDietmar Maurer <dietmar@proxmox.com>
Thu, 19 Jan 2017 12:41:12 +0000 (13:41 +0100)
committerDietmar Maurer <dietmar@proxmox.com>
Thu, 19 Jan 2017 12:41:12 +0000 (13:41 +0100)
test.pl [deleted file]

diff --git a/test.pl b/test.pl
deleted file mode 100755 (executable)
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');