test-suite-create-cachedir-20020117
[openafs.git] / 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