API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 18th, 2019
100
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 21.75 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl -w
  2.  
  3. # liloconfig - creating a new lilo.conf file
  4. #
  5. #
  6. # Copyright 2011-2015 Joachim Wiedorn <joodevel at joonet.de>
  7. #
  8. # This program is free software; you can redistribute it and/or modify
  9. # it under the terms of the GNU General Public License as published by
  10. # the Free Software Foundation; either version 2 of the License, or
  11. # (at your option) any later version.
  12. #
  13. # This program is distributed in the hope that it will be useful,
  14. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16. # GNU General Public License for more details.
  17. #
  18. # You should have received a copy of the GNU General Public License
  19. # along with this program; if not, write to the Free Software
  20. # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  21. # MA 02110-1301, USA.
  22.  
  23. #---- some modules
  24. use strict;
  25. use warnings;
  26. use Getopt::Std;
  27. use Pod::Usage;
  28. use File::Copy;
  29.  
  30.  
  31. #---- global variables
  32. my $prog = $0;
  33. $prog =~ s#.*/##;
  34. my $version = "0.5";
  35.  
  36. #---- parameter check
  37. # h: help, v: verbose, f: force
  38. our $opt_h = 0;
  39. our $opt_v = 0;
  40. our $opt_f = 0;
  41. our $opt_u = 0;
  42. getopts('hvfu');
  43. # define perldoc usage
  44. pod2usage(1) if $opt_h;
  45.  
  46. #---- other variables
  47. our $liloconf = "/etc/lilo.conf";
  48. our $conftmp_1 = "/tmp/lilotmp1";
  49. our $conftmp_2 = "/tmp/lilotmp2";
  50. our $liloconfold = $liloconf . ".old";
  51. our $liloconfnew = $liloconf . ".new";
  52. our $fstabconf = "/etc/fstab";
  53.  
  54. our $idpath = "/dev/disk/by-id";
  55. our $uuidpath = "/dev/disk/by-uuid";
  56. our $lblpath = "/dev/disk/by-label";
  57. our $template = "/usr/share/doc/lilo/examples/lilo.example.conf.gz";
  58.  
  59. our $rootpart; # found root part
  60. our $root_dev; # /dev/hdX9, /dev/sdX9, /dev/md/*
  61. our $root_id; # UUID, LABEL, ID
  62. our $boot_dev; # /dev/hdX, /dev/sdX, /dev/md
  63. our $boot_id; # DISK-ID
  64.  
  65. #-------------------- main program --------------------
  66.  
  67. sub main {
  68.  
  69. my $exit = 0;
  70.  
  71. if (@ARGV == 1) {
  72. $liloconf = "$ARGV[0]";
  73. $liloconfold = $liloconf . ".old";
  74. $liloconfnew = $liloconf . ".new";
  75. }
  76. if (-f $liloconf and not $opt_f and not $opt_u) {
  77. print $prog .": " . $liloconf .
  78. " already exist! Please force overwriting with '-f' or '-u'.\n";
  79. $exit = 1;
  80. }
  81. else {
  82. $exit = create_lilo_conf();
  83. }
  84. return $exit;
  85. }
  86.  
  87. #-------------------- subroutines --------------------
  88.  
  89. sub create_lilo_conf {
  90.  
  91. my $exit = 1;
  92. my $found1 = 0;
  93. my $found2 = 0;
  94. my $found3 = 0;
  95.  
  96. # read fstab and search for root device
  97. $found1 = read_fstab();
  98.  
  99. ## STEP 1 ##
  100. if ($found1 == 0)
  101. # nothing found, exit by error
  102. { $found2 = 0;}
  103. elsif ($found1 == 1)
  104. # identify root device: root_dev and root_id
  105. { $found2 = convert_root_device(); }
  106. elsif ($found1 == 2)
  107. # nothing found, but exit successfully
  108. { $exit = 0; $found2 = 0;}
  109.  
  110. ## STEP 2 ##
  111. if ($found2 == 0)
  112. # nothing found, exit by error
  113. { $found3 = 0;}
  114. elsif ($found2 == 1)
  115. # convert root device to boot device
  116. { $found3 = convert_boot_device(); }
  117. elsif ($found2 == 2)
  118. # nothing found, but exit successfully
  119. { $exit = 0; $found2 = 3;}
  120.  
  121. ## STEP 3 ##
  122. if ($found3 == 0)
  123. # nothing found, exit by error
  124. { $exit = 1;}
  125. elsif ($found3 == 1) {
  126. if ((-f $liloconf) and not (-w $liloconf)) {
  127. print "E: Have no write permissions to $liloconf !\n";
  128. $exit = 1;
  129. }
  130. else {
  131. # finally write new/updated lilo.conf file
  132. if ($opt_u) { $exit = update_lilo_conf(); }
  133. else { $exit = write_lilo_conf(); }
  134. }
  135. }
  136. elsif ($found3 == 2)
  137. # nothing found, but exit successfully
  138. { $exit = 0;}
  139.  
  140. return $exit;
  141. }
  142.  
  143. sub read_fstab {
  144.  
  145. my $root_part;
  146. my $mountpoint;
  147. my $broken_fstab = 1;
  148. my $base_fstab = 0;
  149. my $found = 1;
  150.  
  151. # check fstab for root device
  152. if (-f $fstabconf) {
  153. # Parsing fstab for the root partition
  154. open(FSTAB, "<$fstabconf") or die "$prog: couldn't open $fstabconf: $!\n";
  155.  
  156. while (<FSTAB>) {
  157. # Search magic string which indicates a base filesystem
  158. $base_fstab = 1 if /^# UNCONFIGURED FSTAB FOR BASE SYSTEM/;
  159. next if /^#/; # ignore comment lines
  160.  
  161. s/^[ \t]+//; # remove space or tab at begin of the line
  162. ($root_part,$mountpoint) = split(/[ \t]+/);
  163. next unless defined $mountpoint; # ignore empty lines too
  164.  
  165. # stop if we found the root device...
  166. if ($mountpoint eq '/') {
  167. $broken_fstab = 0;
  168. last;
  169. }
  170. }
  171. close(FSTAB) or die "$prog: couldn't close $fstabconf: $!\n";
  172. }
  173.  
  174. if ($base_fstab) {
  175. print "E: It seems you want configure the base filesystem \n" .
  176. "and I'm therefore simply going to exit successfully \n" .
  177. "without trying to actually configure LILO properly. \n";
  178. $found = 2;
  179. }
  180. if ($broken_fstab) {
  181. print "E: It seems the file /etc/fstab is not properly \n" .
  182. "configured: no root partition '/' found! \n";
  183. $found = 0;
  184. }
  185. # save the found root device
  186. $rootpart = $root_part;
  187.  
  188. return $found;
  189. }
  190.  
  191. sub convert_root_device {
  192.  
  193. my $found = 1;
  194. my $root_disk = '';
  195. my $root_link;
  196. # global variables: $root_dev, $root_id
  197.  
  198. if ($rootpart =~ /\/dev\//) {
  199. $root_disk = $rootpart;
  200.  
  201. if (-b $root_disk) {
  202. $root_dev = $root_disk;
  203. if($opt_v) { print "Convert root option $root_disk into UUID\n"; }
  204. $root_id = find_id_link($root_disk,$uuidpath);
  205.  
  206. if (not -l "$uuidpath/$root_id") {
  207. if($opt_v) { print "W: could not find UUID for $root_disk!\n"; }
  208. # than we will use root_dev in lilo.conf
  209. }
  210. else {
  211. # finally add uuid label
  212. $root_id = "UUID=" . $root_id;
  213. }
  214. }
  215. else {
  216. if($opt_v) { print "E: cannot check $root_disk: device does not exist!\n"; }
  217. $found = 0;
  218. }
  219. }
  220. elsif ($rootpart =~ /^UUID/ or $rootpart =~ /^LABEL/) {
  221. $root_link = $rootpart;
  222. $root_link =~ s{\"}{}g;
  223. $root_link =~ s{^LABEL=}{/dev/disk/by-label/};
  224. $root_link =~ s{^UUID=}{/dev/disk/by-uuid/};
  225.  
  226. if (-l $root_link) {
  227. $root_id = $rootpart;
  228. $root_disk = readlink($root_link);
  229. $root_disk =~ s{\.\./\.\./}{/dev/};
  230.  
  231. if (-b $root_disk) { $root_dev = $root_disk; }
  232. else {
  233. if($opt_v) { print "E: cannot check $root_link: link does not exist!\n"; }
  234. $found = 0;
  235. }
  236. }
  237. else {
  238. print "E: cannot check $root_link: link does not exist!\n";
  239. $found = 0;
  240. }
  241. }
  242. else {
  243. print "E: cannot use uncommon $rootpart found as root device!\n";
  244. $found = 0;
  245. }
  246.  
  247. return $found;
  248. }
  249.  
  250. sub find_id_link {
  251.  
  252. my $olddev = $_[0];
  253. my $path_id = $_[1];
  254. my @sellinks;
  255. my $_idlink;
  256. my $_actlink;
  257. my $newdevid = '';
  258.  
  259. opendir(MYDH, "$path_id") or die("cannot open $path_id: $! \n");
  260. @sellinks = grep(!/\-part\d\d?$/, grep(!/^\.\.?$/, readdir(MYDH)));
  261. @sellinks = sort(@sellinks);
  262. closedir(MYDH);
  263.  
  264. foreach $_idlink (@sellinks) {
  265. chomp $_idlink;
  266. if(not $_idlink =~ /^usb/ and length($_idlink) > 10) {
  267. $_actlink = readlink("$path_id/$_idlink");
  268. $_actlink =~ s{\.\./\.\./}{/dev/};
  269. if($opt_v) { print "** try: $_actlink => $_idlink \n"; }
  270.  
  271. # stop if we find the right link...
  272. if($_actlink eq $olddev) {
  273. $newdevid = $_idlink;
  274. if($opt_v) { print "** convert: $_actlink => $path_id/$_idlink \n\n"; }
  275. last;
  276. }
  277. }
  278. }
  279.  
  280. if(not $newdevid) {
  281. if($opt_v) { print "W: $olddev not converted: link not useful\n\n"; }
  282. }
  283.  
  284. return ($newdevid);
  285. }
  286.  
  287. sub convert_boot_device {
  288.  
  289. my $found = 1;
  290. my $boot_disk = '';
  291. my $boot_link;
  292. # global variables: $boot_dev, $boot_id
  293.  
  294. if (-b $root_dev) {
  295. if ($root_dev =~ /\/dev\/md/) {
  296. # search if the found partition is a raid volume
  297. $boot_disk = check_raid($root_dev);
  298. }
  299. else {
  300. # find the right block device name
  301. $boot_disk = $root_dev;
  302. $boot_disk =~ s/\d+$//;
  303. }
  304.  
  305. if (-b $boot_disk) {
  306. # set global variable boot_dev
  307. $boot_dev = $boot_disk;
  308. }
  309. else {
  310. print "E: boot device $boot_disk does not exist! \n";
  311. $found = 0;
  312. }
  313. }
  314. else {
  315. print "E: could not find root device $root_dev! \n";
  316. $found = 0;
  317. }
  318.  
  319. if ($found) {
  320. if($opt_v) { print "Convert boot option $boot_disk into DISK ID\n"; }
  321. $boot_id = $idpath . "/" . find_id_link($boot_disk,$idpath);
  322.  
  323. if(not -l "$boot_id") {
  324. if($opt_v) { print "W: could not find DISK ID for $boot_disk!\n"; }
  325. # not so important. Then using boot_dev in lilo.conf
  326. }
  327. }
  328.  
  329. return $found;
  330. }
  331.  
  332. sub check_raid {
  333.  
  334. my $part = $_[0];
  335. my $mdname;
  336. my $md;
  337. my @devices;
  338.  
  339. # check if the found partition is a raid volume
  340. if($part =~ /\/dev\/md/)
  341. {
  342. $mdname = $part;
  343. $mdname =~ s/\/dev\///;
  344. $mdname =~ s/\///;
  345. $md = `grep $mdname /proc/mdstat`;
  346.  
  347. @devices = split(" ", $md);
  348. @devices = sort(@devices[4..$#devices]);
  349. $part = "/dev/" . $devices[0];
  350. $part =~ s/\[.*$//;
  351. }
  352.  
  353. return $part;
  354. }
  355.  
  356. sub write_lilo_conf {
  357.  
  358. my @status;
  359. my $exit = copy_template();
  360.  
  361. if (not $exit) {
  362. # create lilo.conf.new
  363. write_bootroot_option();
  364. if ( not write_image_config() ) {
  365. if ( not write_imagelinks_config() ) {
  366. print "E: Cannot find any images or image symlinks!\n";
  367. $exit = 1;
  368. }
  369. }
  370. }
  371.  
  372. if (-f $liloconf and not -f $liloconfold) {
  373. # move old lilo.conf to lilo.conf.old
  374. @status = stat($liloconf);
  375. move ($liloconf, $liloconfold) or die "Cannot rename file: $!\n";
  376. utime ($status[9],$status[9],$liloconfold);
  377. chmod (0600,$liloconfold);
  378. print "Old file moved to: $liloconfold \n";
  379. }
  380. if (-f $liloconfnew) {
  381. move ($liloconfnew, $liloconf) or die "Cannot move file: $!\n";
  382. chmod (0600,$liloconf);
  383. print "New file created as: $liloconf \n";
  384. print "Now you must execute '/sbin/lilo' to " .
  385. "activate this new configuation!\n\n";
  386. }
  387. else {
  388. print "E: Cannot find temporary file $conftmp_1!\n";
  389. $exit = 1;
  390. }
  391.  
  392. return $exit;
  393. }
  394.  
  395. sub copy_template {
  396.  
  397. my $endreached = 0;
  398. my $exit = 0;
  399.  
  400. # copy template config
  401. if (-f $template) {
  402. system("gzip -d -c $template >$conftmp_1") if ($template =~ /\.gz$/);
  403. system("cat $template >$conftmp_1") if ($template =~ /\.conf$/);
  404.  
  405. open(CONFTMP1, "<$conftmp_1") or die "$prog: couldn't open $conftmp_1: $!\n";
  406. open(CONFTMP2, ">$conftmp_2") or die "$prog: couldn't open $conftmp_2: $!\n";
  407.  
  408. while (<CONFTMP1>) {
  409. if (/first\ example/) {
  410. $endreached = 1;
  411. }
  412. unless ($endreached) {
  413. print CONFTMP2 $_;
  414. }
  415. }
  416. close(CONFTMP1) or die "$prog: couldn't close $conftmp_1: $!\n";;
  417. close(CONFTMP2) or die "$prog: couldn't close $conftmp_2: $!\n";;
  418. }
  419. else {
  420. open(CONFTMP2, ">$conftmp_2") or die "$prog: couldn't open $conftmp_2: $!\n";
  421. print CONFTMP2 "# /etc/lilo.conf
  422.  
  423. ### LILO global section ###
  424.  
  425. #large-memory
  426. lba32
  427. boot = /dev/sda
  428. root = /dev/sda1
  429. map = /boot/map
  430. install = menu
  431. menu-scheme = Wb:Yr:Wb:Wb
  432. prompt
  433. timeout = 100
  434. vga = normal
  435. #default = Linux
  436.  
  437. ### LILO per-image section ###
  438.  
  439. ";
  440. close(CONFTMP2) or die "$prog: couldn't close $conftmp_2: $!\n";;
  441. }
  442.  
  443. return $exit;
  444. }
  445.  
  446. sub update_lilo_conf {
  447.  
  448. my @status;
  449. my $exit = 0;
  450.  
  451. if (-f $liloconf) {
  452. # copy old config
  453. system("cat $liloconf >$conftmp_2");
  454.  
  455. # create lilo.conf.new
  456. update_bootroot_option();
  457. }
  458.  
  459. if (-f $liloconf and not -f $liloconfold) {
  460. # move old lilo.conf to lilo.conf.old
  461. @status = stat($liloconf);
  462. move ($liloconf, $liloconfold) or die "Cannot rename file: $!\n";
  463. utime ($status[9],$status[9],$liloconfold);
  464. chmod (0600,$liloconfold);
  465. print "Old file moved to: $liloconfold \n";
  466. }
  467. if (-f $liloconfnew) {
  468. move ($liloconfnew, $liloconf) or die "Cannot move file: $!\n";
  469. chmod (0600,$liloconf);
  470. print "New file created as: $liloconf \n";
  471. print "Now you must execute '/sbin/lilo' to " .
  472. "activate this new configuation!\n\n";
  473. }
  474. else {
  475. print "E: Cannot find temporary file $conftmp_1!\n";
  476. $exit = 1;
  477. }
  478.  
  479. return $exit;
  480. }
  481.  
  482. sub write_bootroot_option {
  483.  
  484. my $oldline = '';
  485. my $newline = '';
  486. my $ok = 0;
  487.  
  488. open(MYFH_NEW, "> $liloconfnew") or die "Cannot open file: $!";
  489. open(MYFH_TMP, "< $conftmp_2") or die "Cannot read file: $!";
  490.  
  491. while (<MYFH_TMP>) {
  492. # line read from MYFH_TMP
  493. $oldline = $_;
  494.  
  495. # lines beginning direct with boot option
  496. if (/^boot/ and $ok == 0) {
  497. if ($boot_id) {
  498. $newline = "#boot = " . $boot_dev . "\n";
  499. print MYFH_NEW $newline;
  500. if($opt_v) { print $newline; }
  501. $newline = "boot = " . $boot_id . "\n";
  502. }
  503. else {
  504. $newline = "boot = " . $boot_dev . "\n";
  505. }
  506. print MYFH_NEW $newline;
  507. if($opt_v) { print $newline; print "\n";}
  508. # convert only one time
  509. $ok = 1;
  510. }
  511. # lines beginning direct with root option
  512. elsif (/^root\ =/) {
  513. if ($root_id) {
  514. $newline = '#root = ' . $root_dev . "\n";
  515. print MYFH_NEW $newline;
  516. if($opt_v) { print $newline; }
  517. $newline = 'root = "' . $root_id . '"' . "\n";
  518. }
  519. else {
  520. $newline = 'root = ' . $root_dev . "\n";
  521. }
  522. print MYFH_NEW $newline;
  523. if($opt_v) { print $newline; print "\n";}
  524. }
  525. # print the rest into file, but not old commented root lines
  526. elsif ( not (/^\#boot\ =/ or /^\#root\ =/) ) {
  527. print MYFH_NEW $oldline;
  528. }
  529. }
  530.  
  531. close(MYFH_TMP);
  532. close(MYFH_NEW);
  533. }
  534.  
  535. sub update_bootroot_option {
  536.  
  537. my $oldline = '';
  538. my $newline = '';
  539. my $ok = 0;
  540.  
  541. open(MYFH_NEW, "> $liloconfnew") or die "Cannot open file: $!";
  542. open(MYFH_TMP, "< $conftmp_2") or die "Cannot read file: $!";
  543.  
  544. while (<MYFH_TMP>) {
  545. # read (old) line from MYFH_TMP
  546. $oldline = $_;
  547.  
  548. # lines beginning direct with boot option
  549. if (/^boot/ and $ok == 0) {
  550. if ($boot_id) {
  551. $newline = "#boot = " . $boot_dev . "\n";
  552. print MYFH_NEW $newline;
  553. if($opt_v) { print $newline; }
  554. $newline = "boot = " . $boot_id . "\n";
  555. }
  556. else {
  557. $newline = "boot = " . $boot_dev . "\n";
  558. }
  559. print MYFH_NEW $newline;
  560. if($opt_v) { print $newline; print "\n";}
  561. # convert only one time
  562. $ok = 1;
  563. }
  564. # lines beginning direct with root option
  565. elsif (/^root\ =/) {
  566. if ($root_id) {
  567. $newline = '#root = ' . $root_dev . "\n";
  568. print MYFH_NEW $newline;
  569. if($opt_v) { print $newline; }
  570. $newline = 'root = "' . $root_id . '"' . "\n";
  571. }
  572. else {
  573. $newline = 'root = ' . $root_dev . "\n";
  574. }
  575. print MYFH_NEW $newline;
  576. if($opt_v) { print $newline; print "\n";}
  577. }
  578. # lines beginning with one tabulator or with two - eight spaces
  579. elsif (/^\troot\ =/ or /^\ {2,8}root\ =/) {
  580. if ($root_id) {
  581. $newline = "\t" . '#root = ' . $root_dev . "\n";
  582. print MYFH_NEW $newline;
  583. if($opt_v) { print $newline; }
  584. $newline = "\t" . 'root = "' . $root_id . '"' . "\n";
  585. }
  586. else {
  587. $newline = "\t" . 'root = ' . $root_dev . "\n";
  588. }
  589. print MYFH_NEW $newline;
  590. if($opt_v) { print $newline; print "\n";}
  591. }
  592. # print the rest into file, but not old commented root lines
  593. elsif ( not (/^\#boot\ =/ or /^\#root\ =/ or /^\t\#root\ =/ or /^\ {2,8}\#root\ =/) ) {
  594. print MYFH_NEW $oldline;
  595. }
  596. }
  597.  
  598. close(MYFH_TMP);
  599. close(MYFH_NEW);
  600. }
  601.  
  602. sub write_image_config {
  603.  
  604. my $image;
  605. my $initrd;
  606. my $initrd2;
  607. my $nr;
  608. my $nr2;
  609.  
  610. # append to new lilo.conf
  611. open(MYFH_NEW, ">> $liloconfnew") or die "Cannot open file: $!";
  612.  
  613. # search for kernel image files
  614. my @vmlinuz = readpipe("/bin/ls -t -1 /boot/vmlinuz* 2>/dev/null");
  615.  
  616. # create some lines for each kernel image
  617. $nr = 0;
  618. foreach $image (@vmlinuz) {
  619. # search for kernel initrd file
  620. chomp $image;
  621. $initrd = $image;
  622. $initrd =~ s/vmlinuz/initrd\.img/;
  623. $initrd2 = $initrd;
  624. $initrd2 =~ s/\.img//;
  625. $nr2 = $nr + 1;
  626.  
  627. print MYFH_NEW 'image = ' . $image . "\n";
  628. if($opt_v) { print 'image = ' . $image . "\n"; }
  629.  
  630. if ($nr == 0) {
  631. print MYFH_NEW "\t" . 'label = "Linux"' . "\n";
  632. if($opt_v) { print "\t" . 'label = "Linux"' . "\n"; }
  633. }
  634. elsif ($nr == 1) {
  635. print MYFH_NEW "\t" . 'label = "Linux Old"' . "\n";
  636. if($opt_v) { print "\t" . 'label = "Linux Old"' . "\n"; }
  637. }
  638.  
  639. print MYFH_NEW "\t" . 'read-only' . "\n";
  640. if($opt_v) { print "\t" . 'read-only' . "\n"; }
  641. print MYFH_NEW "#\t" . 'restricted' . "\n";
  642. if($opt_v) { print "#\t" . 'restricted' . "\n"; }
  643. print MYFH_NEW "#\t" . 'alias = ' . "$nr2" . "\n";
  644. if($opt_v) { print "#\t" . 'alias = ' . "$nr2" . "\n"; }
  645. print MYFH_NEW "#\t" . 'optional' . "\n";
  646. if($opt_v) { print "#\t" . 'optional' . "\n"; }
  647.  
  648. if (-e $initrd) {
  649. print MYFH_NEW "\t" . 'initrd = ' . $initrd . "\n";
  650. if($opt_v) { print "\t" . 'initrd = ' . $initrd . "\n"; }
  651. }
  652. elsif (-e $initrd2) {
  653. print MYFH_NEW "\t" . 'initrd = ' . $initrd2 . "\n";
  654. if($opt_v) { print "\t" . 'initrd = ' . $initrd2 . "\n"; }
  655. }
  656. else {
  657. if($opt_v) { print "W: initrd $initrd could not be found!\n" }
  658. }
  659.  
  660. print MYFH_NEW "\n";
  661. if($opt_v) { print "\n"; }
  662.  
  663. $nr++;
  664. last if ($nr > 1);
  665. }
  666.  
  667. close(MYFH_NEW);
  668.  
  669. if ($nr == 0) {
  670. print "No images '/boot/vmlinuz*' found!\n";
  671. if($opt_v) { print "\n"; }
  672. }
  673. elsif( not $opt_v ) {
  674. print "$nr images '/boot/vmlinuz*' found.\n";
  675. }
  676. return ($nr > 0); # if =0 this is an error
  677. }
  678.  
  679. sub write_imagelinks_config {
  680.  
  681. my $image;
  682. my $initrd;
  683. my $nr;
  684. my $nr2;
  685.  
  686. # append to new lilo.conf
  687. open(MYFH_NEW, ">> $liloconfnew") or die "Cannot open file: $!";
  688.  
  689. # search for kernel image files
  690. my @vmlinuz = readpipe("/bin/ls -t -1 /vmlinuz /vmlinuz.old 2>/dev/null");
  691.  
  692. # create some lines for each kernel image
  693. $nr = 0;
  694. foreach $image (@vmlinuz) {
  695. # search for kernel initrd file
  696. chomp $image;
  697. $initrd = $image;
  698. $initrd =~ s/vmlinuz/initrd\.img/;
  699. $nr2 = $nr + 1;
  700.  
  701. print MYFH_NEW 'image = ' . $image . "\n";
  702. if($opt_v) { print 'image = ' . $image . "\n"; }
  703.  
  704. if ($nr == 0) {
  705. print MYFH_NEW "\t" . 'label = "Linux"' . "\n";
  706. if($opt_v) { print "\t" . 'label = "Linux"' . "\n"; }
  707. }
  708. elsif ($nr == 1) {
  709. print MYFH_NEW "\t" . 'label = "Linux Old"' . "\n";
  710. if($opt_v) { print "\t" . 'label = "Linux Old"' . "\n"; }
  711. }
  712.  
  713. if ($root_id) {
  714. print MYFH_NEW "\t" . '#root = ' . $root_dev . "\n";
  715. if($opt_v) { print "\t" . '#root = ' . $root_dev . "\n"; }
  716. print MYFH_NEW "\t" . 'root = "' . $root_id . '"' . "\n";
  717. if($opt_v) { print "\t" . 'root = "' . $root_id . '"' . "\n"; }
  718. }
  719. else {
  720. print MYFH_NEW "\t" . 'root = ' . $root_dev . "\n";
  721. if($opt_v) { print "\t" . 'root = ' . $root_dev . "\n"; }
  722. }
  723.  
  724. print MYFH_NEW "\t" . 'read-only' . "\n";
  725. if($opt_v) { print "\t" . 'read-only' . "\n"; }
  726. print MYFH_NEW "#\t" . 'restricted' . "\n";
  727. if($opt_v) { print "#\t" . 'restricted' . "\n"; }
  728. print MYFH_NEW "#\t" . 'alias = ' . "$nr2" . "\n";
  729. if($opt_v) { print "#\t" . 'alias = ' . "$nr2" . "\n"; }
  730. print MYFH_NEW "#\t" . 'optional' . "\n";
  731. if($opt_v) { print "#\t" . 'optional' . "\n"; }
  732.  
  733. if (-e $initrd) {
  734. print MYFH_NEW "\t" . 'initrd = ' . $initrd . "\n";
  735. if($opt_v) { print "\t" . 'initrd = ' . $initrd . "\n"; }
  736. }
  737. else {
  738. if($opt_v) { print "W: initrd $initrd could not be found!\n" }
  739. }
  740.  
  741. print MYFH_NEW "\n";
  742. if($opt_v) { print "\n"; }
  743.  
  744. $nr++;
  745. last if ($nr > 1);
  746. }
  747.  
  748. close(MYFH_NEW);
  749.  
  750. if ($nr == 0) {
  751. print "No image symlinks '/vmlinuz*' found!\n";
  752. if($opt_v) { print "\n"; }
  753. }
  754. elsif( not $opt_v ) {
  755. print "$nr image symlinks '/vmlinuz*' found.\n";
  756. }
  757. return ($nr > 0); # if =0 this is an error
  758. }
  759.  
  760. main();
  761.  
  762. __END__
  763.  
  764.  
  765. =head1 NAME
  766.  
  767. liloconfig - create new lilo.conf file (with diskid and uuid)
  768.  
  769. =head1 SYNOPSIS
  770.  
  771. B<liloconfig> [B<-h>] [B<-v>] [B<-f>] [B<-u>] [B<lilo.conf>]
  772.  
  773. =head1 DESCRIPTION
  774.  
  775. liloconfig is an simple program for creating a new lilo.conf file.
  776. After creating the new configuration file you must execute '/sbin/lilo'.
  777.  
  778. liloconfig use the lilo.example.conf file as template. In the final
  779. lilo.conf file you find many useful comments for custom changes.
  780.  
  781. Please pay attention about error messages if liloconfig cannot find
  782. any images (/boot/vmlinuz*) oder image symlinks (/vmlinuz, /vmlinu.old).
  783. Then you need to search for images by ourself and make some changes
  784. in the '/etc/lilo.conf' file. Otherwise no bootloader can be installed
  785. with '/sbin/lilo'.
  786.  
  787. =head1 OPTIONS
  788.  
  789. =over 4
  790.  
  791. =item B<-h>
  792.  
  793. Print a brief help.
  794.  
  795. =item B<-v>
  796.  
  797. Print verbose messages.
  798.  
  799. =item B<-f>
  800.  
  801. Force overriding existing lilo.conf.
  802.  
  803. =item B<-u>
  804.  
  805. Force overriding/update of boot line in lilo.conf.
  806.  
  807. =back
  808.  
  809. =head1 EXAMPLES
  810.  
  811. Lines in the configuration file /etc/lilo.conf:
  812.  
  813. ### LILO global section ###
  814.  
  815. #large-memory
  816. lba32
  817. #boot = /dev/sda
  818. boot = /dev/disk/by-id/ata-SAMSUNG_SV1604N_S01FJ10X999999
  819. #root = /dev/sda1
  820. root = "UUID=18843936-00f9-4df0-a373-000d05a5dd44"
  821. map = /boot/map
  822. install = menu
  823. menu-scheme = Wb:Yr:Wb:Wb
  824. prompt
  825. timeout = 100
  826. vga = normal
  827. #password =
  828. #default = Linux
  829.  
  830. ### LILO per-image section ###
  831.  
  832. image = /boot/vmlinuz-3.17-trunk-686
  833. label = "Linux"
  834. #root = /dev/sda1
  835. #root = "UUID=18843936-00f9-4df0-a373-000d05a5dd44"
  836. read-only
  837. # restricted
  838. # alias = 1
  839. # optional
  840. initrd = /boot/initrd.img-3.17-trunk-686
  841.  
  842. image = /boot/vmlinuz-3.14-trunk-686
  843. label = "Linux Old"
  844. #root = /dev/sda1
  845. #root = "UUID=18843936-00f9-4df0-a373-000d05a5dd44"
  846. read-only
  847. # restricted
  848. # alias = 2
  849. # optional
  850. initrd = /boot/initrd.img-3.14-trunk-686
  851.  
  852. =head1 COPYRIGHT and LICENSE
  853.  
  854. Copyright (C) 2011-2015 Joachim Wiedorn
  855.  
  856. This script is free software; you can redistribute it and/or modify
  857. it under the terms of the GNU General Public License as published by
  858. the Free Software Foundation; either version 2 of the License, or
  859. (at your option) any later version.
  860.  
  861. =head1 AUTHOR
  862.  
  863. B<liloconfig> was written by Joachim Wiedorn.
  864.  
  865. This manual page was written by Joachim Wiedorn <joodevel at joonet.de>.
  866.  
  867. =head1 SEE ALSO
  868.  
  869. B<lilo>(8), B<update-lilo>(8), B<lilo-uuid-diskid>(8)
  870.  
  871. =cut
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!