1 /* $NetBSD: installboot.c,v 1.6 2012/10/14 16:20:04 tsutsui Exp $ */
2
3 /*
4 * Copyright (c) 2001 Minoura Makoto
5 * All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 *
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26 * SUCH DAMAGE.
27 */
28
29 #include <stdio.h>
30 #include <stdlib.h>
31 #include <string.h>
32 #include <unistd.h>
33 #include <fcntl.h>
34 #include <paths.h>
35 #include <err.h>
36 #include <sys/param.h>
37 #include <sys/disklabel.h>
38 #include <sys/ioctl.h>
39 #include <sys/stat.h>
40 #include <ufs/ufs/dinode.h>
41 #include <ufs/ffs/fs.h>
42
43 #include "dkcksum.h"
44
45 #define MAXBBSIZE BBSIZE
46 #define LABELBYTEOFFSET (LABELSECTOR*512+LABELOFFSET)
47
48 int nflag = 0, vflag = 0, fflag = 0, merging = 0;
49 int floppy = 0;
50 char rawname[PATH_MAX];
51 off_t bboffset = 0;
52 size_t bootprogsize;
53 size_t blocksize;
54 const char *progname;
55 const char *bootprog;
56 char *target;
57 char template[] = _PATH_TMP "/installbootXXXXXX";
58 u_int8_t bootblock[MAXBBSIZE];
59 struct disklabel label;
60
61 void usage(void) __attribute((__noreturn__));
62 int checkbootprog(const char *);
63 int checktargetdev(const char *);
64 int checkparttype(const char *, int);
65
66 void
usage(void)67 usage(void)
68 {
69 fprintf(stderr, "usage: %s [-nvf] /usr/mdec/xxboot_ufs /dev/rxx?a\n",
70 progname);
71 exit(1);
72 /* NOTREACHED */
73 }
74
75 int
checkbootprog(const char * name)76 checkbootprog(const char *name)
77 {
78 struct stat st;
79
80 if (access(name, R_OK) < 0)
81 err(1, "%s", name);
82 if (stat(name, &st) < 0)
83 err(1, "%s", name);
84 bootprogsize = st.st_size;
85
86 return 0;
87 }
88
89 int
checktargetdev(const char * name)90 checktargetdev(const char *name)
91 {
92 struct stat st;
93
94 if (access(name, W_OK) < 0)
95 err(1, "%s", name);
96 if (stat(name, &st) < 0)
97 err(1, "%s", name);
98 if (!S_ISCHR(st.st_mode))
99 errx(1, "%s: not a character special device", name);
100 if (DISKPART(st.st_rdev) > MAXPARTITIONS)
101 errx(1, "%s: invalid device", name);
102 strcpy(rawname, name);
103 if (strncmp(name + strlen(name) - 4, "fd", 2) == 0)
104 floppy = 1;
105 else
106 rawname[strlen(name) - 1] = RAW_PART+'a';
107 if (!floppy && DISKPART(st.st_rdev) == RAW_PART)
108 errx(1, "%s is the raw device", name);
109
110 return 0;
111 }
112
113 int
checkparttype(const char * name,int force)114 checkparttype(const char *name, int force)
115 {
116 struct stat st;
117 int fd, part;
118
119 fd = open(rawname, O_RDONLY | O_EXLOCK);
120 if (fd < 0)
121 err(1, "opening %s", name);
122 if (stat(name, &st) < 0)
123 err(1, "%s", name);
124 if (!S_ISCHR(st.st_mode))
125 errx(1, "%s: not a character special device", name);
126 part = DISKPART(st.st_rdev);
127 if (ioctl(fd, DIOCGDINFO, &label) < 0)
128 err(1, "%s: reading disklabel", name);
129 if (part >= label.d_npartitions)
130 errx(1, "%s: invalid partition", name);
131 blocksize = label.d_secsize;
132 if (blocksize < 512)
133 blocksize = 512;
134 if (blocksize > MAXBBSIZE)
135 errx(1, "%s: blocksize too large", name);
136 if (read(fd, bootblock, blocksize) != blocksize)
137 errx(1, "%s: reading the mark", name);
138 close(fd);
139 if (strncmp((const char *)bootblock, "X68SCSI1", 8) != 0)
140 floppy = 1; /* XXX: or unformated */
141
142 if (!force && !floppy) {
143 if (label.d_partitions[part].p_fstype != FS_BSDFFS
144 && label.d_partitions[part].p_fstype != FS_BSDLFS)
145 errx(1, "%s: invalid partition type", name);
146 if ((label.d_partitions[part].p_offset * blocksize < 32768) &&
147 label.d_partitions[part].p_offset != 0)
148 errx(1, "%s: cannot make the partition bootable",
149 name);
150 }
151 if (floppy)
152 merging = 1;
153 else if (label.d_partitions[part].p_offset == 0) {
154 merging = 1;
155 bboffset = 1024; /* adjusted below */
156 }
157 if (merging) {
158 struct disklabel *lp;
159
160 lp = (struct disklabel *) &bootblock[LABELBYTEOFFSET];
161 memcpy(&label, lp, sizeof(struct disklabel));
162 if (lp->d_npartitions > MAXPARTITIONS ||
163 dkcksum(lp) != 0)
164 /* there is no valid label */
165 memset(&label, 0, sizeof(struct disklabel));
166 }
167
168 return 0;
169 }
170
171 int
main(int argc,char * argv[])172 main(int argc, char *argv[])
173 {
174 int c;
175 int fd;
176
177 progname = argv[0];
178
179 while ((c = getopt(argc, argv, "nvf")) != -1) {
180 switch (c) {
181 case 'n':
182 nflag = 1;
183 break;
184 case 'v':
185 vflag = 1;
186 break;
187 case 'f':
188 fflag = 1;
189 break;
190 default:
191 usage();
192 /* NOTREACHED */
193 }
194 }
195 argc -= optind;
196 argv += optind;
197
198 if (argc != 2)
199 usage();
200 bootprog = argv[0];
201 target = argv[1];
202
203 if (checkbootprog(bootprog) < 0)
204 errx(1, "aborting");
205 if (checktargetdev(target) < 0)
206 errx(1, "aborting");
207
208 if (checkparttype(target, fflag))
209 errx(1, "aborting");
210 if (merging && blocksize > bboffset && !floppy)
211 bboffset = blocksize;
212 if (bootprogsize > MAXBBSIZE - bboffset)
213 errx(1, "%s: boot block too big", bootprog);
214
215 /* Read the boot program */
216 fd = open(bootprog, O_RDONLY);
217 if (fd < 0)
218 err(1, "opening %s", bootprog);
219 if (read(fd, bootblock + bboffset, bootprogsize) != bootprogsize)
220 err(1, "reading %s", bootprog);
221 close(fd);
222 if (merging)
223 memcpy(bootblock + LABELBYTEOFFSET, &label, sizeof(label));
224
225 /* Write the boot block (+ disklabel if necessary) */
226 if (nflag) {
227 target = template;
228
229 fd = mkstemp(target);
230 if (fd < 0)
231 err(1, "opening the output file");
232 } else {
233 int writable = 1;
234
235 fd = open(target, O_WRONLY);
236 if (fd < 0)
237 err(1, "opening the disk");
238 if (merging && ioctl(fd, DIOCWLABEL, &writable) < 0)
239 err(1, "opening the disk");
240 }
241 bootprogsize = howmany(bootprogsize+bboffset, blocksize) * blocksize;
242 if (write(fd, bootblock, bootprogsize) != bootprogsize) {
243 warn("writing the label");
244 if (!nflag && merging) {
245 int writable = 0;
246 ioctl(fd, DIOCWLABEL, &writable);
247 }
248 exit(1);
249 }
250
251 if (!nflag && merging) {
252 int writable = 0;
253 ioctl(fd, DIOCWLABEL, &writable);
254 }
255 close(fd);
256
257 if (nflag)
258 fprintf(stderr, "The bootblock is kept in %s\n", target);
259 else
260 fprintf(stderr, "Do not forget to copy /usr/mdec/boot"
261 " to the root directory of %s.\n", target);
262
263 return 0;
264 }
265