src/tests/run-suite.pl

   1 #!/usr/bin/env perl
   2 # Copyright (C) 2000 by Sam Hartman
   3 # This file may be copied either under the terms of the GNU GPL or the IBM Public License
   4 # either version 2 or later of the GPL or version 1.0 or later of the IPL.
   5
   6 use Term::ReadLine;
   7 use strict;
   8 use OpenAFS::ConfigUtils;
   9 use OpenAFS::Dirpath;
  10 use OpenAFS::OS;
  11 use OpenAFS::Auth;
  12 use Getopt::Long;
  13 use vars qw($admin $server $cellname $cachesize $part
  14           $shutdown_needed $csdb);
  15 my $rl = new Term::ReadLine('run-suite');
  16
  17 =head1  NAME
  18
  19    run-suite - Set up AFS cell and test.
  20
  21 =head1 SYNOPSIS
  22
  23 B<run-suite> [B<--cellname> cellname] [B<--cachesize> size]
  24
  25 =head1 DESCRIPTION
  26
  27
  28 This script sets up an AFS cell, then runs a suite of tests against the
  29 cell to verify the build.
  30
  31 The B<cellname> option specifies the name of the cell.
  32
  33 The B<cachesize> option specifies the size of the AFS cache.
  34
  35 =cut
  36
  37 # main script
  38
  39 # mkvol(volume, mount)
  40 sub mkvol($$) {
  41     my ($vol, $mnt) = @_;
  42     run("$openafsdirpath->{'afssrvsbindir'}/vos create $server $part $vol -localauth");
  43     unwind("$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part $vol -localauth");
  44     run("$openafsdirpath->{'afssrvbindir'}/fs mkm $mnt $vol ");
  45     run("$openafsdirpath->{'afssrvbindir'}/fs sa $mnt system:anyuser rl");
  46 }
  47
  48 GetOptions (
  49            "cellname=s" => \$cellname,
  50            "cachesize=s" => \$cachesize,
  51            "partition=s" => \$part,
  52            "admin=s" => \$admin);
  53
  54 if ($> != 0) {
  55   die "This script should almost always be run as root.\n";
  56 }
  57
  58 open(MOUNT, "mount |") or die "Failed to run mount: $!\n";
  59 while(<MOUNT>) {
  60   if(m:^AFS:) {
  61     print "The AFS client is currently running on this workstation.\n";
  62     print "Please restart this script after running $openafsinitcmd->{'client-stop'}\n";
  63     exit(1);
  64   }
  65   if(m:^/afs on AFS:) {
  66     print "The AFS client is currently running on this workstation.\n";
  67     print "Please restart this script after running $openafsinitcmd->{'client-stop'}\n";
  68     exit(1);
  69   }
  70 }
  71 close MOUNT;
  72
  73 unless ( -f "$openafsdirpath->{'afsconfdir'}/KeyFile") {
  74   print "You do not have an AFS keyfile.  Please create this using asetkey from openafs-krb5 or
  75 the bos addkey command";
  76   exit(1);
  77 }
  78
  79 print "If the fileserver is not running, this may hang for 30 seconds.\n";
  80 run("$openafsinitcmd->{'filesrv-stop'}");
  81 $server = `hostname`;
  82 chomp $server;
  83 $admin = "admin" unless $admin;
  84 $admin =~ s:/:.:g;
  85 if($admin =~ /@/) {
  86 die "The administrative user must be in the same realm as the cell and no realm may be specified.\n";
  87 }
  88
  89 $cellname = $rl->readline("What cellname should be used? ") unless $cellname;
  90 die "Please specify a cellname\n" unless $cellname;
  91
  92 unlink "$openafsdirpath->{'viceetcdir'}/CellServDB";
  93 unlink "$openafsdirpath->{'viceetcdir'}/ThisCell";
  94
  95 my $lcell = "${cellname}";
  96
  97 #let bosserver create symlinks
  98 run("$openafsinitcmd->{'filesrv-start'}");
  99 unwind("$openafsinitcmd->{'filesrv-stop'}");
 100 $shutdown_needed = 1;
 101 run ("$openafsdirpath->{'afssrvbindir'}/bos setcellname $server $lcell -localauth ||true");
 102 run ("$openafsdirpath->{'afssrvbindir'}/bos addhost $server $server -localauth ||true");
 103 run("$openafsdirpath->{'afssrvbindir'}/bos adduser $server $admin -localauth");
 104 unwind("$openafsdirpath->{'afssrvbindir'}/bos removeuser $server $admin -localauth");
 105 if ( -f "$openafsdirpath->{'afsdbdir'}/prdb.DB0" ) {
 106   die "Protection database already exists; cell already partially created\n";
 107  }
 108 open(PRDB, "|$openafsdirpath->{'afssrvsbindir'}/pt_util -p $openafsdirpath->{'afsdbdir'}/prdb.DB0 -w ")
 109 or die "Unable to start pt_util: $!\n";
 110 print PRDB "$admin 128/20 1 -204 -204\n";
 111 print PRDB "system:administrators 130/20 -204 -204 -204\n";
 112 print PRDB" $admin 1\n";
 113 close PRDB;
 114 unwind( "rm $openafsdirpath->{'afsdbdir'}/prdb* ");
 115 # Start up ptserver and vlserver
 116 run("$openafsdirpath->{'afssrvbindir'}/bos create $server ptserver simple $openafsdirpath->{'afssrvlibexecdir'}/ptserver -localauth");
 117 unwind("$openafsdirpath->{'afssrvbindir'}/bos delete $server ptserver -localauth");
 118 unwind("$openafsdirpath->{'afssrvbindir'}/bos stop $server ptserver -localauth -wait");
 119
 120 run("$openafsdirpath->{'afssrvbindir'}/bos create $server vlserver simple $openafsdirpath->{'afssrvlibexecdir'}/vlserver -localauth");
 121 unwind("$openafsdirpath->{'afssrvbindir'}/bos delete $server vlserver -localauth");
 122 unwind("$openafsdirpath->{'afssrvbindir'}/bos stop $server vlserver -localauth -wait");
 123
 124 run( "$openafsdirpath->{'afssrvbindir'}/bos create $server fs fs ".
 125      "-cmd $openafsdirpath->{'afssrvlibexecdir'}/fileserver ".
 126      "-cmd $openafsdirpath->{'afssrvlibexecdir'}/volserver ".
 127      "-cmd $openafsdirpath->{'afssrvlibexecdir'}/salvager -localauth");
 128 unwind( "$openafsdirpath->{'afssrvbindir'}/bos delete $server fs -localauth ");
 129 unwind( "$openafsdirpath->{'afssrvbindir'}/bos stop $server fs -localauth -wait");
 130 run("$openafsdirpath->{'afssrvbindir'}/bos restart $server -all -bosserver -localauth");
 131
 132 print "Waiting for database elections: ";
 133 sleep(90);
 134 print "done.\n";
 135 # Past this point we want to control when bos shutdown happens
 136 $shutdown_needed = 0;
 137 unwind( "$openafsdirpath->{'afssrvbindir'}/bos shutdown $server -localauth ");
 138 run("$openafsdirpath->{'afssrvsbindir'}/vos create $server a root.afs -localauth");
 139 # bring up client
 140
 141 $cachesize = $rl->readline("What size cache (in 1k blocks)? ") unless $cachesize;
 142 die "Please specify a cache size\n" unless $cachesize;
 143
 144 mkdir "/usr/vice/cache", 0700;
 145
 146 run("echo /afs:/usr/vice/cache:${cachesize} >$openafsdirpath->{'viceetcdir'}/cacheinfo");
 147 run("$openafsinitcmd->{'client-forcestart'}");
 148 my $afs_running = 0;
 149 open(MOUNT, "mount |") or die "Failed to run mount: $!\n";
 150 while(<MOUNT>) {
 151 if(m:^AFS:) {
 152        $afs_running = 1;
 153 }
 154        }
 155 unless ($afs_running) {
 156 print "*** The AFS client failed to start.\n";
 157 print  "Please fix whatever problem kept it from running.\n";
 158        exit(1);
 159 }
 160 unwind("$openafsinitcmd->{'client-stop'}");
 161
 162 $part = "a" unless $part;
 163
 164 &OpenAFS::Auth::authadmin();
 165
 166 run("$openafsdirpath->{'afssrvbindir'}/fs sa /afs system:anyuser rl");
 167
 168 run("$openafsdirpath->{'afssrvsbindir'}/vos create $server $part root.cell -localauth");
 169 unwind("$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part root.cell -localauth");
 170 # We make root.cell s:anyuser readable after we mount in the next
 171 # loop.
 172 open(CELLSERVDB, "$openafsdirpath->{'viceetcdir'}/CellServDB")
 173     or die "Unable to open $openafsdirpath->{'viceetcdir'}/CellServDB: $!\n";
 174 while(<CELLSERVDB>) {
 175     chomp;
 176     if (/^>\s*([a-z0-9_\-.]+)/ ) {
 177        run("$openafsdirpath->{'afssrvbindir'}/fs mkm /afs/$1 root.cell -cell $1 -fast");
 178        unwind ("$openafsdirpath->{'afssrvbindir'}/fs rmm /afs/$1");
 179    }
 180 }
 181
 182 run("$openafsdirpath->{'afssrvbindir'}/fs sa /afs/$lcell system:anyuser rl");
 183 run ("$openafsdirpath->{'afssrvbindir'}/fs mkm /afs/.$lcell root.cell -cell $lcell -rw");
 184 unwind ("$openafsdirpath->{'afssrvbindir'}/fs rmm /afs/.$lcell");
 185 run("$openafsdirpath->{'afssrvbindir'}/fs mkm /afs/.root.afs root.afs -rw");
 186 unwind ("$openafsdirpath->{'afssrvbindir'}/fs rmm /afs/.root.afs");
 187
 188 mkvol( "user", "/afs/$lcell/user" );
 189 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part user -localauth ");
 190
 191 mkvol( "service", "/afs/$lcell/service" );
 192 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part service -localauth ");
 193
 194 mkvol( "rep", "/afs/$lcell/.replicated" );
 195 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part rep -localauth ");
 196 run( "$openafsdirpath->{'afssrvbindir'}/fs mkm /afs/$lcell/replicated rep.readonly " );
 197
 198 run( "$openafsdirpath->{'afssrvsbindir'}/vos addsite $server $part rep -localauth" );
 199 run( "$openafsdirpath->{'afssrvsbindir'}/vos release rep -localauth" );
 200 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part rep.readonly -localauth ");
 201
 202 mkvol( "unrep", "/afs/$lcell/unreplicated" );
 203 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part unrep -localauth ");
 204
 205 $lcell =~ /^([^.]*)/;
 206 my $cellpart = $1;
 207 run("ln -s /afs/$lcell /afs/$cellpart");
 208 unwind ("rm /afs/$cellpart");
 209 run( "ln -s /afs/.$lcell /afs/.$cellpart" );
 210 unwind ("rm /afs/.$cellpart");
 211
 212 run( "$openafsdirpath->{'afssrvsbindir'}/vos addsite $server $part root.afs -localauth" );
 213 run( "$openafsdirpath->{'afssrvsbindir'}/vos addsite $server $part root.cell -localauth" );
 214 run( "$openafsdirpath->{'afssrvsbindir'}/vos release root.afs -localauth" );
 215 run( "$openafsdirpath->{'afssrvsbindir'}/vos release root.cell -localauth" );
 216 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part root.cell.readonly -localauth ");
 217 unwind( "$openafsdirpath->{'afssrvsbindir'}/vos remove $server $part root.afs.readonly -localauth ");
 218
 219 run("$openafsinitcmd->{'client-restart'}");
 220
 221 system ("pagsh -c './test-front.sh $lcell'");
 222
 223 @unwinds = ();
 224 END {
 225 # If we fail before all the instances are created, we need to perform
 226 # our own bos shutdown
 227     system("$openafsdirpath->{'afssrvbindir'}/bos shutdown $server -localauth") if $shutdown_needed;
 228   run(pop @unwinds) while @unwinds;
 229   }
 230