src/tests/reauth.pl

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use OpenAFS::Dirpath;
   5 use OpenAFS::Auth;
   6 use Getopt::Long;
   7
   8 # options
   9 my $debug = 0;
  10 my $cellname = 'testcell';
  11 my $admin = 'admin';
  12 my $kerberos_type = 'MIT';
  13 my $kerberos_realm = 'TESTCELL';
  14 my $kerberos_keytab = "$openafsdirpath->{'afsconfdir'}/krb5.keytab";
  15
  16 GetOptions (
  17        "debug!" => \$debug,
  18        "cellname=s" => \$cellname,
  19        "admin=s" => \$admin,
  20        "kerberos-type=s" => \$kerberos_type,
  21        "kerberos-realm=s" => \$kerberos_realm,
  22        "kerberos-keytab=s" => \$kerberos_keytab,
  23        );
  24
  25 my $auth = OpenAFS::Auth::create(
  26       'debug'=>$debug,
  27       'type'=>$kerberos_type,
  28       'cell'=>$cellname,
  29       'realm'=>$kerberos_realm,
  30       'keytab'=>$kerberos_keytab,
  31       );
  32
  33 # Run as the administrator.
  34 $auth->authorize($admin);