|
Lines 838-843
Link Here
|
| 838 |
end copy_rc_default; |
838 |
end copy_rc_default; |
| 839 |
|
839 |
|
| 840 |
|
840 |
|
|
|
841 |
------------------- |
| 842 |
-- copy_etc_rc -- |
| 843 |
------------------- |
| 844 |
procedure copy_etc_rcsubr (path_to_etc : String) |
| 845 |
is |
| 846 |
rcsubr : constant String := "/rc.subr"; |
| 847 |
etc_rcsubr : constant String := "/etc" & rcsubr; |
| 848 |
begin |
| 849 |
if not AD.Exists (etc_rcsubr) then |
| 850 |
return; |
| 851 |
end if; |
| 852 |
AD.Copy_File (Source_Name => etc_rcsubr, |
| 853 |
Target_Name => path_to_etc & rcsubr); |
| 854 |
end copy_etc_rcsubr; |
| 855 |
|
| 856 |
|
| 857 |
--------------------- |
| 858 |
-- copy_ldconfig -- |
| 859 |
--------------------- |
| 860 |
procedure copy_ldconfig (path_to_etc : String) |
| 861 |
is |
| 862 |
ldconfig : constant String := "/rc.d/ldconfig"; |
| 863 |
etc_ldconfig : constant String := "/etc" & ldconfig; |
| 864 |
begin |
| 865 |
if not AD.Exists (etc_ldconfig) then |
| 866 |
return; |
| 867 |
end if; |
| 868 |
AD.Copy_File (Source_Name => etc_ldconfig, |
| 869 |
Target_Name => path_to_etc & ldconfig, |
| 870 |
Form => "mode=copy,preserve=all_attributes"); |
| 871 |
end copy_ldconfig; |
| 872 |
|
| 873 |
|
| 841 |
--------------------------- |
874 |
--------------------------- |
| 842 |
-- create_etc_services -- |
875 |
-- create_etc_services -- |
| 843 |
--------------------------- |
876 |
--------------------------- |
|
Lines 1202-1207
Link Here
|
| 1202 |
create_etc_services (location (slave_base, etc)); |
1235 |
create_etc_services (location (slave_base, etc)); |
| 1203 |
create_etc_shells (location (slave_base, etc)); |
1236 |
create_etc_shells (location (slave_base, etc)); |
| 1204 |
create_etc_fstab (location (slave_base, etc)); |
1237 |
create_etc_fstab (location (slave_base, etc)); |
|
|
1238 |
copy_etc_rcsubr (location (slave_base, etc)); |
| 1239 |
copy_ldconfig (location (slave_base, etc)); |
| 1205 |
|
1240 |
|
| 1206 |
execute_ldconfig (id); |
1241 |
execute_ldconfig (id); |
| 1207 |
|
1242 |
|