192 |
open(my $o, '<', "$conf/$VEID.conf") || die "can't open $conf/$VEID.conf: $!"; |
open(my $o, '<', "$conf/$VEID.conf") || die "can't open $conf/$VEID.conf: $!"; |
193 |
open(my $n, '>', "$conf/$CVEID.conf") || die "can't open $conf/$CVEID.conf: $!"; |
open(my $n, '>', "$conf/$CVEID.conf") || die "can't open $conf/$CVEID.conf: $!"; |
194 |
while(<$o>) { |
while(<$o>) { |
195 |
s!^HOSTNAME=(.*)$!fix_hostname($1)!ie; |
s{^HOSTNAME=(.*)$}{fix_hostname($1)}ie; |
196 |
s!^IP_ADDRESS=(.*)$!fix_ip($1)!ie; |
s{^IP_ADDRESS=(.*)$}{fix_ip($1)}ie; |
197 |
s!^(ONBOOT=).*$!# modified by $0\n$1"no"!i; |
s{^(ONBOOT=).*$}{# modified by $0\n$1"no"}i; |
198 |
print $n $_; |
print $n $_; |
199 |
} |
} |
200 |
|
|