src/tests/reauth.pl

   1 #!/usr/bin/env perl
   2 use Term::ReadLine;
   3 use strict;
   4 use OpenAFS::ConfigUtils;
   5 use OpenAFS::Dirpath;
   6 use OpenAFS::OS;
   7 use OpenAFS::Auth;
   8 use Getopt::Long;
   9 use vars qw($admin $server $cellname $cachesize $part
  10           $requirements_met  $shutdown_needed $csdb);
  11
  12 &OpenAFS::Auth::authadmin();