Commit | Line | Data |
---|---|---|
1479465f GJ |
1 | #!/bin/sh |
2 | # | |
3 | # This program is free software; you can redistribute it and/or modify | |
4 | # it under the terms of the GNU General Public License as published by | |
5 | # the Free Software Foundation; either version 2 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
8 | # This program is distributed in the hope that it will be useful, | |
9 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
11 | # GNU General Public License for more details. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program. If not, see <https://www.gnu.org/licenses/>. | |
15 | ||
16 | set -e | |
17 | vardir="$1" | |
18 | method=$2 | |
19 | option=$3 | |
20 | ||
21 | cd "$vardir/methods/disk" | |
22 | tp=/var/run/ddm$$ | |
23 | ||
24 | iarch=`dpkg --admindir $vardir --print-architecture` | |
25 | ||
26 | xit=1 | |
27 | trap ' | |
28 | rm -f $tp.? | |
29 | if [ -n "$umount" ] | |
30 | then | |
31 | umount "$umount" >/dev/null 2>&1 | |
32 | fi | |
33 | exit $xit | |
34 | ' 0 | |
35 | ||
36 | if ls -d "$tp.?" >/dev/null 2>&1 | |
37 | then | |
38 | rm $tp.? | |
39 | fi | |
40 | ||
41 | yesno () { | |
42 | while true | |
43 | do | |
44 | echo -n "$2 [$1] " | |
45 | read response | |
46 | if [ -z "$response" ] | |
47 | then | |
48 | response="$1" | |
49 | fi | |
50 | case "$response" in | |
51 | [Nn]*) yesno=no ; return ;; | |
52 | [Yy]*) yesno=yes ; return ;; | |
53 | esac | |
54 | done | |
55 | } | |
56 | ||
57 | print_partition_table() | |
58 | { | |
59 | device="$1" | |
60 | ||
61 | printf "p\nq\n" | fdisk "$device" 2>/dev/null | |
62 | } | |
63 | ||
64 | getblockdev () { | |
65 | mountpoint="$vardir/methods/mnt" | |
66 | if [ -z "$defaultdevice" ] | |
67 | then | |
68 | defaultdevice="$newdefaultdevice" | |
69 | elif [ "$defaultdevice" != "$newdefaultdevice" ] | |
70 | then | |
71 | echo \ | |
72 | "Last time you specified installation from $defaultdevice." | |
73 | fi | |
74 | promptstring="$1" | |
75 | while [ -z "$blockdevice" ] | |
76 | do | |
77 | echo -n "$promptstring [$defaultdevice]: " | |
78 | read response | |
79 | if [ -z "$response" ] | |
80 | then | |
81 | response="$defaultdevice" | |
82 | fi | |
83 | if ! [ -b "$response" ] | |
84 | then | |
85 | echo "$response is not a block device."; continue | |
86 | fi | |
87 | tryblockdevice="$response" | |
88 | if [ $option = cdrom ] | |
89 | then | |
90 | fstype=iso9660 | |
91 | elif [ $option = harddisk ] | |
92 | then | |
93 | blockbase="`echo \"$tryblockdevice\" | sed -e 's/[0-9]\{1,\}$//'`" | |
94 | set +e | |
95 | print_partition_table "$blockbase" >$tp.f | |
96 | set -e | |
97 | proposeddevice="$tryblockdevice" perl -ne ' | |
98 | next unless /^ *Device +Boot +Start +End +Blocks +Id +System *$/i .. !/\S/; | |
99 | next unless s:^/\S+::p && ${^MATCH} eq $ENV{proposeddevice}; | |
100 | next unless s/^ +(\* +)?\d+ +\d+ +\d+\+? +//; | |
101 | next unless m/^([0-9a-f]{1,2}) /i; | |
102 | %types= ( "1","msdos", "4","msdos", "6","msdos", "7","hpfs", "80","minix", | |
103 | "81","minix", "83","ext2" ); | |
104 | print $types{$1}; exit(0); ' <$tp.f >$tp.m | |
105 | defaultfstype="`cat $tp.m`" | |
106 | if [ -n "$defaultfstype" ] | |
107 | then | |
108 | cat <<END | |
109 | The partition table for $blockbase claims that $tryblockdevice | |
110 | contains filesystem type $defaultfstype. | |
111 | END | |
112 | if ! grep " $defaultfstype$" /proc/filesystems >/dev/null | |
113 | then | |
114 | echo \ | |
115 | "Your kernel does not appear to support that filesystem type." | |
116 | defaultfstype="" | |
117 | fi | |
118 | fi | |
119 | echo -n "Supported filesystems: " | |
120 | sed -e 's/^.* / /' /proc/filesystems | tr '\n' ' ' | |
121 | echo -n " | |
122 | Enter filesystem type (for $tryblockdevice) [$defaultfstype]: " | |
123 | read fstype | |
124 | if [ -z "$fstype" ] | |
125 | then | |
126 | fstype="$defaultfstype" | |
127 | fi | |
128 | fi | |
129 | umount="$mountpoint" | |
130 | if mount -rt "$fstype" -o nosuid,nodev "$tryblockdevice" "$mountpoint" | |
131 | then | |
132 | echo | |
133 | blockdevice="$tryblockdevice" | |
134 | else | |
135 | umount="" | |
136 | echo \ | |
137 | "Unable to mount $tryblockdevice on $mountpoint, type $fstype." | |
138 | fi | |
139 | done | |
140 | } | |
141 | ||
142 | outputparam () { | |
143 | echo "$2" | sed -e "s/'/'\\\\''/; s/^/$1='/; s/$/'/" >&3 | |
144 | } | |
145 | ||
146 | intrkey="`stty -a | sed -n 's/.*intr = \([^;]*\);.*/\1/p'`" | |
147 | echo " | |
148 | If you make a mistake, use the interrupt key ($intrkey) to abort. | |
149 | " | |
150 | ||
151 | # State variables, “best first” | |
152 | # {main,ctb,nf,nus,lcl}_{packages,binary} | |
153 | # Empty before we've found them or if they're not available, | |
154 | # set to the relevant bit under mountpoint otherwise. | |
155 | # hierbase | |
156 | # A directory containing a Debian FTP site mirror tree for ONE distribution. | |
157 | # eg /pub/debian/dists/stable | |
158 | # mountpoint | |
159 | # The mountpoint for the filesystem containing the stuff | |
160 | # empty or unset if we don't know yet, or if we haven't mounted anything; | |
161 | # may also be empty if ‘directory’ was set. | |
162 | # blockdevice | |
163 | # The actual block device to mount. | |
164 | # fstype | |
165 | # The filesystem type to use. | |
166 | # defaultdevice | |
167 | # The default block device to mount. | |
168 | ||
169 | if [ -f shvar.$option ] | |
170 | then | |
171 | . ./shvar.$option | |
172 | defaultdevice="$p_blockdev" | |
173 | defaultnfsserver="$p_nfsserver" | |
174 | defaultnfsrempath="$p_nfsrempath" | |
175 | fi | |
176 | ||
177 | if [ $option = cdrom ] | |
178 | then | |
179 | mount >$tp.m | |
180 | sed -n 's/ ([^)]*)$//; s/^[^ ]* on //; s/ type iso9660$//p' <$tp.m >$tp.l | |
181 | ncdroms=`wc -l <$tp.l` | |
182 | if [ $ncdroms -gt 1 ] | |
183 | then | |
184 | response="" | |
185 | while [ -z "$response" ] | |
186 | do | |
187 | echo \ | |
188 | 'Several CD-ROMs (or other ISO9660 filesystems) are mounted:' | |
189 | grep 'type iso9660 ([^)]*)$' <$tp.m | nl | |
190 | echo -n \ | |
191 | "Is it any of these ? Type a number, or 'n' for none. " | |
192 | read response | |
193 | response="`echo \"$response\" | sed -e 's/[ ]*$//'`" | |
194 | if expr "$response" : '[0-9][0-9]*$' >/dev/null && \ | |
195 | [ $response -ge 1 ] && [ $response -le $ncdroms ] | |
196 | then | |
197 | mountpoint="`sed -n $response'p' <$tp.l`" | |
198 | echo | |
199 | elif expr "$response" : '[Nn]' >/dev/null | |
200 | then | |
201 | mountpoint="" | |
202 | else | |
203 | response="" | |
204 | fi | |
205 | done | |
206 | elif [ $ncdroms = 1 ] | |
207 | then | |
208 | mountpoint="`cat $tp.l`" | |
209 | perl -ne 'print if s/ type iso9660 \([^)]*\)$// && s/ on .*$//;' \ | |
210 | <$tp.m >$tp.d | |
211 | blockdevice="`cat $tp.d`" | |
212 | yesno yes \ | |
213 | "I see a CD-ROM: $blockdevice, mounted on $mountpoint. Is it the right one ?" | |
214 | if [ $yesno = no ] | |
215 | then | |
216 | echo 'Unmounting it ...' | |
217 | umount="$mountpoint" | |
218 | while true | |
219 | do | |
220 | echo -n \ | |
221 | 'Please insert the right disc, and hit return: ' | |
222 | read response | |
223 | if mount -rt iso9660 -o nosuid,nodev \ | |
224 | "$blockdevice" "$mountpoint" | |
225 | then | |
226 | echo | |
227 | break | |
228 | fi | |
229 | done | |
230 | fi | |
231 | fi | |
232 | if [ -z "$mountpoint" ] | |
233 | then | |
234 | if [ -b /dev/cdrom ] | |
235 | then | |
236 | echo \ | |
237 | 'I see that /dev/cdrom exists and is a block device.' | |
238 | newdefaultdevice=/dev/cdrom | |
239 | fi | |
240 | getblockdev 'Insert the CD-ROM and enter the block device name' | |
241 | fi | |
242 | fi | |
243 | ||
244 | if [ $option = nfs ] | |
245 | then | |
246 | mountpoint="$vardir/methods/mnt" | |
247 | while [ -z "$nfsserver" ] | |
248 | do | |
249 | echo -n \ | |
250 | "What is the name of the NFS server ? [$defaultnfsserver] " | |
251 | read response | |
252 | if [ -z "$response" ] && [ -n "$defaultnfsserver" ] | |
253 | then | |
254 | response="$defaultnfsserver" | |
255 | fi | |
256 | if [ -z "$response" ]; then continue; fi | |
257 | if [ -x "`which rpcinfo`" ] | |
258 | then | |
259 | if rpcinfo -u "$response" mountd | grep -q 'ready' | |
260 | then | |
261 | nfsserver="$response" | |
262 | else | |
263 | echo "$response appears not to be an NFS server." | |
264 | fi | |
265 | elif [ -x "`which ping`" ] | |
266 | then | |
267 | if ping -q -c 1 "$response" | grep -q ', 1 packets received' | |
268 | then | |
269 | nfsserver="$response" | |
270 | else | |
271 | echo "$response appears to be down or nonexistent." | |
272 | fi | |
273 | else | |
274 | echo \ | |
275 | "(I can't check that now because there is no rpcinfo or ping.)" | |
276 | nfsserver="$response" | |
277 | fi | |
278 | done | |
279 | while [ -z "$nfsrempath" ] | |
280 | do | |
281 | echo -n " | |
282 | What is the pathname on the NFS server of the filesystem with | |
283 | the Debian files? [$defaultnfsrempath] " | |
284 | read response | |
285 | if [ -z "$response" ] && [ -n "$defaultnfsrempath" ] | |
286 | then | |
287 | response="$defaultnfsrempath" | |
288 | else | |
289 | response="`echo \"$response\" | sed -e 's:/$::; s:^/*:/:'`" | |
290 | fi | |
291 | umount="$mountpoint" | |
292 | if mount -rt nfs -o nosuid,nodev "$nfsserver:$response" "$mountpoint" | |
293 | then | |
294 | echo | |
295 | nfsrempath="$response" | |
296 | else | |
297 | umount="" | |
298 | echo \ | |
299 | "Unable to mount NFS filesystem $nfsserver:$response." | |
300 | fi | |
301 | done | |
302 | nfs="$nfsserver:$nfsrempath" | |
303 | fi | |
304 | ||
305 | if [ $option = harddisk ] | |
306 | then | |
307 | set +e | |
308 | print_partition_table /dev/hda >$tp.f | |
309 | if [ $? != 0 ] | |
310 | then | |
311 | print_partition_table /dev/sda >$tp.f | |
312 | fi | |
313 | set -e | |
314 | perl -ne ' | |
315 | next unless /^ *Device +Boot +Start +End +Blocks +Id +System *$/i .. !/\S/; | |
316 | next unless / [146] +DOS \d+-bit \S+$/; | |
317 | next unless m:^/\S+:p; | |
318 | print ${^MATCH}; ' <$tp.f >$tp.d | |
319 | newdefaultdevice="`cat $tp.d`" | |
320 | echo " | |
321 | I need to know which disk partition contains the distribution files; | |
322 | disk partitions are specified by the block device name in Linux." | |
323 | if [ -n "$newdefaultdevice" ] | |
324 | then | |
325 | echo \ | |
326 | "By the way, $newdefaultdevice looks like a DOS partition." | |
327 | fi | |
328 | getblockdev "Enter the partition's block device name" | |
329 | fi | |
330 | ||
331 | if [ -n "$mountpoint" ] | |
332 | then | |
333 | # We must have $mountpoint | |
334 | if [ $option = cdrom ] | |
335 | then | |
336 | echo \ | |
337 | 'All directory names should be entered relative to the root of the CD-ROM. | |
338 | ' | |
339 | elif [ $option = nfs ] | |
340 | then | |
341 | echo \ | |
342 | "All directory names should be entered relative to the root of the NFS | |
343 | filesystem, ie relative to $nfsrempath on the server. | |
344 | " | |
345 | else | |
346 | echo \ | |
347 | "All directory names should be entered relative to the root of the | |
348 | $fstype filesystem on $blockdevice. | |
349 | " | |
350 | fi | |
351 | fi | |
352 | ||
353 | while true | |
354 | do | |
355 | if [ $option = cdrom ] | |
356 | then | |
357 | echo \ | |
358 | "I would like to know where on the CD-ROM the top level of the Debian | |
359 | distribution is (eg. 'dists/stable') - this directory usually contains the | |
360 | Packages-Master file. | |
361 | ||
362 | If the CD-ROM is badly organised and doesn't have a straightforward copy of | |
363 | the distribution you may answer 'none' and we'll go through the parts | |
364 | I need individually." | |
365 | else | |
366 | echo \ | |
367 | "In order to make it easy for me to find the relevant files I'd ideally | |
368 | like to install from a straightforward copy of the Debian distribution. | |
369 | To use this I'll need to know where the top level of that copy of the | |
370 | distribution is (eg. 'debian/dists/stable') - this directory usually | |
371 | contains the Packages-Master file. | |
372 | ||
373 | If you do not have a straightforward copy of the distribution available | |
374 | just answer 'none' and we'll go through the parts I need individually." | |
375 | fi | |
376 | defhierbase=none | |
377 | # maybe ask for debian/dists and then show and ask for available dists | |
378 | # eg. {stable,frozen,unstable,bo,hamm,slink} | |
379 | if [ -n "$p_hierbase" ] | |
380 | then | |
381 | if [ -d "$mountpoint/$p_hierbase/main/binary-$iarch" ] | |
382 | then | |
383 | echo " | |
384 | Last time you said '$p_hierbase', and that looks plausible." | |
385 | defhierbase="$p_hierbase" | |
386 | else | |
387 | echo " | |
388 | Last time you said '$p_hierbase', but that doesn't look plausible, | |
389 | since '$p_hierbase/main/binary-$iarch' doesn't seem to exist." | |
390 | fi | |
391 | fi | |
392 | if [ none = "$defhierbase" ] | |
393 | then | |
394 | if [ -d "$mountpoint/debian/dists/stable/main/binary-$iarch" ] | |
395 | then | |
396 | echo " | |
397 | '/debian/dists/stable' exists and looks plausible, so that's the default." | |
398 | defhierbase=/debian/dists/stable | |
399 | elif [ -d "$mountpoint/dists/stable/main/binary-$iarch" ] | |
400 | then | |
401 | echo " | |
402 | '/dists/stable' exists and looks plausible, so that's the default." | |
403 | defhierbase=/dists/stable | |
404 | fi | |
405 | fi | |
406 | echo -n \ | |
407 | "Distribution top level ? [$defhierbase] " | |
408 | read response | |
409 | if [ -z "$response" ] | |
410 | then | |
411 | response="$defhierbase" | |
412 | fi | |
413 | if [ none = "$response" ] | |
414 | then | |
415 | hierbase="" | |
416 | break | |
417 | elif [ -d "$mountpoint/$response/main/binary-$iarch" ] | |
418 | then | |
419 | hierbase="`echo \"$response\" | sed -e 's:/*$::; s:^/*:/:'`" | |
420 | break | |
421 | fi | |
422 | echo \ | |
423 | "$response/main/binary-$iarch does not exist. | |
424 | " | |
425 | done | |
426 | ||
427 | ||
428 | case "$hierbase" in | |
429 | /* ) ;; | |
430 | '' ) ;; | |
431 | * ) hierbase="/$hierbase" ;; | |
432 | esac | |
433 | ||
434 | check_binary () { | |
435 | # args: area-in-messages directory | |
436 | # eg: main "$hierbase/main/binary-$iarch" | |
437 | # checks whether $2 contains *.deb | |
438 | if ! [ -d "$mountpoint$2/" ] | |
439 | then | |
440 | echo "'$2' does not exist." | |
441 | return | |
442 | fi | |
443 | ||
444 | if ! ( find -L "$mountpoint$2/" -name '*.deb' -print \ | |
445 | | head -n 1 ) 2>/dev/null | grep . >/dev/null | |
446 | then | |
447 | echo "'$2' does not contain any *.deb packages. Hmmpf." | |
448 | return | |
449 | fi | |
450 | echo "Using '$2' as $1 binary dir." | |
451 | this_binary="$2" | |
452 | } | |
453 | ||
454 | find_area () { | |
455 | # args: area-in-messages area-in-vars subdirectory-in-hier | |
456 | # last-time-binary last-time-packages | |
457 | # eg: main main main | |
458 | # "$p_main_binary" "$p_main_packages" | |
459 | ||
460 | this_binary='' | |
461 | this_packages='' | |
462 | if [ -n "$hierbase" ] | |
463 | then | |
464 | check_binary $1 "$hierbase/$3/binary-$iarch" | |
465 | fi | |
466 | ||
467 | if [ $option = cdrom ] && [ $2 = nf ] && [ -z "$this_binary" ] | |
468 | then | |
469 | echo " | |
470 | Note: most CD-ROM distributions of Debian do not include programs | |
471 | available in the 'non-free' directory of the distribution site. | |
472 | This is because these programs have copyrights that prevent | |
473 | distribution for profit on a CD-ROM - ie they are not free software. | |
474 | If you wish to install these programs you'll have to get them from an | |
475 | alternative source." | |
476 | elif [ $2 = lcl ] && [ -z "$this_binary" ] | |
477 | then | |
478 | echo " | |
479 | Note: By default there is no 'local' directory. It is intended for | |
480 | packages you made yourself." | |
481 | fi | |
482 | while [ -z "$this_binary" ] | |
483 | do | |
484 | defaultbinary="$4" | |
485 | echo " | |
486 | Which directory contains the *.deb packages from the $1 distribution | |
487 | area (this directory is named '$3/binary-$iarch' on the distribution site) ? | |
488 | Say 'none' if this area is not available." | |
489 | if [ $2 != main ] && [ -z "$defaultbinary" ] | |
490 | then | |
491 | defaultbinary=none | |
492 | fi | |
493 | echo -n \ | |
494 | "Enter _$1_ binary dir. [$4] | |
495 | ? " | |
496 | read response | |
497 | if [ -z "$response" ] && [ -n "$defaultbinary" ] | |
498 | then | |
499 | response="$defaultbinary" | |
500 | fi | |
501 | if [ none = "$response" ] | |
502 | then | |
503 | break | |
504 | fi | |
505 | case "$response" in | |
506 | '' | none) continue ;; | |
507 | esac | |
508 | check_binary $1 "`echo \"$response\" | sed -e 's:/$::; s:^/*:/:'`" | |
509 | done | |
510 | if [ -n "$this_binary" ] | |
511 | then | |
512 | for f in Packages.gz packages.gz Packages packages | |
513 | do | |
514 | if [ -f "$mountpoint/$this_binary/$f" ] | |
515 | then | |
516 | echo "Using '$this_binary/$f' for $1." | |
517 | this_packages="$this_binary/$f" | |
518 | break | |
519 | fi | |
520 | done | |
521 | while [ -z "$this_packages" ] | |
522 | do | |
523 | echo -n " | |
524 | I can't find the $1 'Packages' file. The information in the | |
525 | 'Packages' file is important for package selection during new | |
526 | installations, and is very useful for upgrades. | |
527 | ||
528 | If you overlooked it when downloading you should do get it now and | |
529 | return to this installation procedure when you have done so: you will | |
530 | find one Packages file and one Packages.gz file -- either will do -- | |
531 | in the 'binary-$iarch' subdirectory of each area on the FTP sites and | |
532 | CD-ROMs. Alternatively (and this will be rather slow) I can scan the | |
533 | packages in the distribution area - say 'scan' if you want me to do so. | |
534 | ||
535 | You need a separate Packages file from each of the distribution areas | |
536 | you wish to install. | |
537 | ||
538 | Where is the _$1_ 'Packages' file (if none is available, say 'none') | |
539 | [$5] | |
540 | ? " | |
541 | read response | |
542 | if [ -z "$response" ] && [ -n "$5" ] | |
543 | then | |
544 | response="$5" | |
545 | fi | |
546 | case "$response" in | |
547 | '') continue ;; | |
548 | none) break ;; | |
549 | scan) this_packages=scan ;; | |
550 | /*) this_packages="$response" ;; | |
551 | *) this_packages="/$response" ;; | |
552 | esac | |
553 | done | |
554 | fi | |
555 | eval $2'_binary="$this_binary"' | |
556 | eval $2'_packages="$this_packages"' | |
557 | } | |
558 | ||
559 | find_area main main main "$p_main_binary" "$p_main_packages" | |
560 | find_area contrib ctb contrib "$p_ctb_binary" "$p_ctb_packages" | |
561 | find_area non-free nf non-free "$p_nf_binary" "$p_nf_packages" | |
562 | find_area non-US nus non-US "$p_nus_binary" "$p_nus_packages" | |
563 | find_area local lcl local "$p_lcl_binary" "$p_lcl_packages" | |
564 | ||
565 | echo -n ' | |
566 | Hit RETURN to continue. ' | |
567 | read response | |
568 | ||
569 | exec 3>shvar.$option.new | |
570 | ||
571 | outputparam p_blockdev "$blockdevice" | |
572 | outputparam p_fstype "$fstype" | |
573 | outputparam p_mountpoint "$mountpoint" | |
574 | outputparam p_nfsserver "$nfsserver" | |
575 | outputparam p_nfsrempath "$nfsrempath" | |
576 | outputparam p_nfs "$nfs" | |
577 | outputparam p_hierbase "$hierbase" | |
578 | ||
579 | outputparam p_main_packages "$main_packages" | |
580 | outputparam p_main_binary "$main_binary" | |
581 | outputparam p_ctb_packages "$ctb_packages" | |
582 | outputparam p_ctb_binary "$ctb_binary" | |
583 | outputparam p_nf_packages "$nf_packages" | |
584 | outputparam p_nf_binary "$nf_binary" | |
585 | outputparam p_nus_packages "$nus_packages" | |
586 | outputparam p_nus_binary "$nus_binary" | |
587 | outputparam p_lcl_packages "$lcl_packages" | |
588 | outputparam p_lcl_binary "$lcl_binary" | |
589 | ||
590 | mv shvar.$option.new shvar.$option | |
591 | ||
592 | xit=0 |