annotate src/system-init.pl @ 29:819e950ac8cc

minor changes.
author Robert McIntyre <rlm@mit.edu>
date Thu, 10 Jan 2013 16:59:50 +0000
parents 5caff062fd36
children 2ea43f89d84f
rev   line source
rlm@29 1 #!/usr/bin/perl
rlm@29 2 use Cwd;
rlm@17 3
rlm@17 4
rlm@17 5 sub create_install_dir{
rlm@17 6 @install_cmd =
rlm@17 7 ("install", "-d", "-m",
rlm@17 8 "775", "-o", "root", "-g",
rlm@17 9 "install", $_[0]);
rlm@17 10 print "@install_cmd\n";
rlm@17 11 system(@install_cmd) and die $!;}
rlm@17 12
rlm@17 13 @install_dirs = qw(
rlm@17 14 /usr/bin
rlm@17 15 /usr/sbin
rlm@17 16 /usr/include
rlm@17 17 /usr/lib
rlm@17 18 /usr/man/man1
rlm@17 19 /usr/man/man2
rlm@17 20 /usr/man/man3
rlm@17 21 /usr/man/man4
rlm@17 22 /usr/man/man5
rlm@17 23 /usr/man/man6
rlm@17 24 /usr/man/man7
rlm@17 25 /usr/man/man8
rlm@17 26 /usr/doc
rlm@17 27 /usr/info
rlm@17 28 /usr/local/man/man1
rlm@17 29 /usr/local/man/man2
rlm@17 30 /usr/local/man/man3
rlm@17 31 /usr/local/man/man4
rlm@17 32 /usr/local/man/man5
rlm@17 33 /usr/local/man/man6
rlm@17 34 /usr/local/man/man7
rlm@17 35 /usr/local/man/man8
rlm@17 36 /usr/local/doc
rlm@17 37 /usr/local/info
rlm@17 38 /usr/share
rlm@17 39 /usr/share/dict
rlm@17 40 /usr/share/doc
rlm@17 41 /usr/share/info
rlm@17 42 /usr/share/locale
rlm@17 43 /usr/share/man/man1
rlm@17 44 /usr/share/man/man2
rlm@17 45 /usr/share/man/man3
rlm@17 46 /usr/share/man/man4
rlm@17 47 /usr/share/man/man5
rlm@17 48 /usr/share/man/man6
rlm@17 49 /usr/share/man/man7
rlm@17 50 /usr/share/man/man8
rlm@17 51 /usr/share/nls
rlm@17 52 /usr/share/misc
rlm@17 53 /usr/share/terminfo
rlm@17 54 /usr/share/zoneinfo
rlm@17 55 /usr/share/i18n
rlm@17 56 /usr/share/aclocal
rlm@17 57 /usr/local/bin
rlm@17 58 /usr/local/etc
rlm@17 59 /usr/local/include
rlm@17 60 /usr/local/lib
rlm@17 61 /usr/local/sbin
rlm@17 62 /usr/local/share
rlm@17 63 /usr/local/share/dict
rlm@17 64 /usr/local/share/doc
rlm@17 65 /usr/local/share/info
rlm@17 66 /usr/local/share/locale
rlm@17 67 /usr/local/share/man/man1
rlm@17 68 /usr/local/share/man/man2
rlm@17 69 /usr/local/share/man/man3
rlm@17 70 /usr/local/share/man/man4
rlm@17 71 /usr/local/share/man/man5
rlm@17 72 /usr/local/share/man/man6
rlm@17 73 /usr/local/share/man/man7
rlm@17 74 /usr/local/share/man/man8
rlm@17 75 /usr/local/share/nls
rlm@17 76 /usr/local/share/misc
rlm@17 77 /usr/local/share/terminfo
rlm@17 78 /usr/local/share/zoneinfo
rlm@17 79 /opt
rlm@17 80 /opt/doc
rlm@17 81 /opt/info
rlm@17 82 /opt/bin
rlm@17 83 /opt/include
rlm@17 84 /opt/lib
rlm@17 85 /opt/man/man1
rlm@17 86 /opt/man/man2
rlm@17 87 /opt/man/man3
rlm@17 88 /opt/man/man4
rlm@17 89 /opt/man/man5
rlm@17 90 /opt/man/man6
rlm@17 91 /opt/man/man7
rlm@17 92 /opt/man/man8
rlm@17 93 /var/lib
rlm@17 94 /var/opt
rlm@17 95 /etc
rlm@17 96 /etc/opt
rlm@17 97 /sbin
rlm@17 98 /bin
rlm@17 99 /lib);
rlm@17 100
rlm@19 101
rlm@19 102 sub execute{
rlm@19 103 print "\t$_[0]\n";
rlm@19 104 `$_[0]`;
rlm@19 105 if ($?){die $!;}
rlm@19 106 }
rlm@19 107
rlm@19 108 execute("groupadd --force install");
rlm@19 109
rlm@17 110 foreach $install_dir(@install_dirs){
rlm@17 111 create_install_dir($install_dir);}
rlm@17 112
rlm@19 113
rlm@21 114 execute("find /.hg -type d -print0 | xargs -0 -L 1 -t chmod 2770");
rlm@19 115 execute("find /.hg -type f -print0 | xargs -0 -L 1 -t chmod 660");
rlm@19 116
rlm@26 117 execute("install -d -o root -g root -m 755 /pkg/skel");
rlm@19 118
rlm@25 119 execute("chown -Rv root:root /.hg");
rlm@19 120
rlm@29 121 $pwd = cwd();
rlm@26 122 execute("ln -sf $pwd/profile /pkg/skel/.profile");
rlm@26 123 execute("ln -sf $pwd/hg-wrapper /pkg/skel/");
rlm@26 124 execute("ln -sf $pwd/save-acls /pkg/skel/");
rlm@26 125 execute("ln -sf `which hg` /pkg/skel/");
rlm@22 126
rlm@25 127 execute("install -o root -g root -m 660 $pwd/hgignore /.hgignore");
rlm@25 128 execute("install -o root -g root -m 660 $pwd/hgrc /.hg/");
rlm@19 129
rlm@19 130
rlm@19 131