| Line 173... |
Line 173... |
| 173 |
print "There may be some unused packages now. You can remove them with\napt-get autoremove\n\n";
|
173 |
print "There may be some unused packages now. You can remove them with\napt-get autoremove\n\n";
|
| 174 |
}
|
174 |
}
|
| 175 |
`ln -s /opt/camp/sysinfo/sysinfo-client /usr/local/bin/sysinfo-client`
|
175 |
`ln -s /opt/camp/sysinfo/sysinfo-client /usr/local/bin/sysinfo-client`
|
| 176 |
if &yesno( 'Would you like a link to /usr/local/bin/sysinfo-client' );
|
176 |
if &yesno( 'Would you like a link to /usr/local/bin/sysinfo-client' );
|
| 177 |
# set all modules with debian or unix in the name to run
|
177 |
# set all modules with debian or unix in the name to run
|
| 178 |
opendir $moduleDirs, $moduleDirs[0];
|
178 |
foreach my $directory ( @moduleDirs ) {
|
| - |
|
179 |
opendir ( $dh, $directory ) or die "Could not open directory [$directory]\n";
|
| 179 |
my @modules = grep { /^((dpkg)|(unix))/ } readdir $moduleDir;
|
180 |
my @modules = grep { /^((dpkg)|(unix))/ } readdir $dh;
|
| 180 |
closedir $moduleDir;
|
181 |
closedir $dh;
|
| 181 |
foreach my $module (@modules) {
|
182 |
foreach my $module (@modules) {
|
| 182 |
`chmod 0700 $MODULES_DIR/$module`;
|
183 |
`chmod 0700 $directory/$module`;
|
| - |
|
184 |
`chown root:root $directory/$module`;
|
| - |
|
185 |
}
|
| 183 |
}
|
186 |
}
|
| 184 |
print "All debian specific modules have been enabled\n";
|
187 |
print "All debian specific modules have been enabled\n";
|
| 185 |
}
|
188 |
}
|
| 186 |
|
189 |
|
| 187 |
sub writeConfig {
|
190 |
sub writeConfig {
|