Scot L. Harris wrote:
On Sat, 2005-03-05 at 13:02, Mark Sargent wrote:
Mark Sargent wrote:
Hi All,
here is the script,
#! /usr/bin/perl -w
$Additions = 0;
$Removals = 0;
while ($line = <STDIN>) {
if ( $line =~ /^\s*#\s*(\/\S+)/ ) {
if ( -e $1 ) {
$line =~ s/^\s*#//;
$Additions++;
}
}elsif ( $line =~ /^\s*(\/\S+)/ ) {
if ( ! -e $1 ) {
$line = "#" . $line;
$Removals++;
}
}
}
print STDERR "Number of additions: $Additions\n";
print STDERR "Number of removals: $Removals\n";
You said the script does not generate a policy file? Looking at the
script it does not look like it outputs anything but the counts it
generated.
Of course I have not done any serious perl programing so I may be missing how this script is suppose to process a servers file systems and generate a policy file.
This may be a script fragment for doing that but it does not look complete.
Hi All,
Scott, the command sends the content of twpol.txt.orig in to the cleanpol.pl and then when completed, puts the results into twpol.txt. The < > characters in the command are supposed to do exactly that. But, for me, it isn't working. Anyway, as this is a study box, I've re-installed FC3, as the previous was an upgrade from 2, and some things may have been corrupted. Cheers.
MArk Sargent.
