186 |
print "Warning $filename has changed !\n"; |
print "Warning $filename has changed !\n"; |
187 |
} |
} |
188 |
local *F; |
local *F; |
189 |
open F, "> $filename" or die "cannot create config file $filename"; |
open F, "> $filename" or die "cannot create config file $filename (do you have proper permissions?)"; |
190 |
foreach my $atom (@out_atoms) { |
foreach my $atom (@out_atoms) { |
191 |
# print F "\n" x $$atom{line_feed}; |
# print F "\n" x $$atom{line_feed}; |
192 |
# $$atom{comments} and print F eval($templates{$template_name}{comment_output}) foreach split("\n", $$atom{comments}); |
# $$atom{comments} and print F eval($templates{$template_name}{comment_output}) foreach split("\n", $$atom{comments}); |