Mercurial > pkg
view src/create-install-dirs.pl @ 9:a0c0ccd22ca5
progress on setuid wrapper script.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Wed, 09 Jan 2013 04:53:59 +0000 |
parents | fe56b4698cf8 |
children |
line wrap: on
line source
1 #!/usr/bin/env perl3 @create_install_cmd =4 ("groupadd", "--force", "install");5 print "@create_install_cmd\n";6 system(@create_install_cmd) and die $!;8 sub create_install_dir{9 @install_cmd =10 ("install", "-d", "-m",11 "775", "-o", "root", "-g",12 "install", $_[0]);13 print "@install_cmd\n";14 system(@install_cmd) and die $!;}16 @install_dirs = qw(17 /usr/bin18 /usr/sbin19 /usr/include20 /usr/lib21 /usr/man/man122 /usr/man/man223 /usr/man/man324 /usr/man/man425 /usr/man/man526 /usr/man/man627 /usr/man/man728 /usr/man/man829 /usr/doc30 /usr/info31 /usr/local/man/man132 /usr/local/man/man233 /usr/local/man/man334 /usr/local/man/man435 /usr/local/man/man536 /usr/local/man/man637 /usr/local/man/man738 /usr/local/man/man839 /usr/local/doc40 /usr/local/info41 /usr/share42 /usr/share/dict43 /usr/share/doc44 /usr/share/info45 /usr/share/locale46 /usr/share/man/man147 /usr/share/man/man248 /usr/share/man/man349 /usr/share/man/man450 /usr/share/man/man551 /usr/share/man/man652 /usr/share/man/man753 /usr/share/man/man854 /usr/share/nls55 /usr/share/misc56 /usr/share/terminfo57 /usr/share/zoneinfo58 /usr/share/i18n59 /usr/share/aclocal60 /usr/local/bin61 /usr/local/etc62 /usr/local/include63 /usr/local/lib64 /usr/local/sbin65 /usr/local/share66 /usr/local/share/dict67 /usr/local/share/doc68 /usr/local/share/info69 /usr/local/share/locale70 /usr/local/share/man/man171 /usr/local/share/man/man272 /usr/local/share/man/man373 /usr/local/share/man/man474 /usr/local/share/man/man575 /usr/local/share/man/man676 /usr/local/share/man/man777 /usr/local/share/man/man878 /usr/local/share/nls79 /usr/local/share/misc80 /usr/local/share/terminfo81 /usr/local/share/zoneinfo82 /opt83 /opt/doc84 /opt/info85 /opt/bin86 /opt/include87 /opt/lib88 /opt/man/man189 /opt/man/man290 /opt/man/man391 /opt/man/man492 /opt/man/man593 /opt/man/man694 /opt/man/man795 /opt/man/man896 /var/lib97 /var/opt98 /etc99 /etc/opt100 /sbin101 /bin102 /lib);104 foreach $install_dir(@install_dirs){105 create_install_dir($install_dir);}