mirrors/apparmor
1
0
Fork 0
mirror of https://gitlab.com/apparmor/apparmor.git synced 2025-03-04 08:24:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add -i option for in-place editing.

Browse source
This commit is contained in:
Andreas Gruenbacher 2007-04-10 19:32:10 +00:00
parent ea1ae48724
commit 461273d456
1 changed files with 27 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
utils/convert-profile.pl
View file

@ -15,6 +15,8 @@
# GNU General Public License for more details.
use FileHandle;
use File::Temp;
use Getopt::Std;
use strict;
sub match($) {
@ -70,10 +72,16 @@ sub never_add_slash($$) {
}
foreach my $filename (@ARGV) {
my $fh = new FileHandle("< $filename");
our($opt_i);
getopts('i');
while (<$fh>) {
foreach my $filename (@ARGV) {
my $fh_in;
$fh_in = new FileHandle("< $filename")
or die "$filename: $!\n";
while (<$fh_in>) {
if (my @fields = match($_)) {
for my $x (alterations($fields[1])) {
remember_pathname($x);
@ -91,9 +99,18 @@ if (@ARGV == 0) {
}
foreach my $filename (@ARGV) {
my $fh = new FileHandle("< $filename");
my ($fh_in, $fh_out, $tmpname);
while (<$fh>) {
$fh_in = new FileHandle("< $filename")
or die "$filename: $!\n";
if ($opt_i) {
($fh_out, $tmpname) = mkstemp("$filename.XXXXXX")
or die "$!\n";
*STDOUT = $fh_out;
}
while (<$fh_in>) {
if (my @fields = match($_)) {
for my $x (alterations($fields[1])) {
if (never_add_slash($x, $fields[2])) {
@ -109,6 +126,11 @@ foreach my $filename (@ARGV) {
print $_;
}
}
if ($opt_i) {
rename $tmpname, $filename
or die "$filename: $!\n";
}
}
# vim: smartindent softtabstop=4 shiftwidth=4