1 |
diff -up smeserver-audittools-1.0.0/root/sbin/e-smith/audittools/aliases.fixprint smeserver-audittools-1.0.0/root/sbin/e-smith/audittools/aliases |
2 |
--- smeserver-audittools-1.0.0/root/sbin/e-smith/audittools/aliases.fixprint 2006-03-30 02:50:36.000000000 +0200 |
3 |
+++ smeserver-audittools-1.0.0/root/sbin/e-smith/audittools/aliases 2009-11-06 14:25:11.000000000 +0100 |
4 |
@@ -60,5 +60,14 @@ for my $file ( readdir(DIR) ) |
5 |
|
6 |
open FILE, $file; |
7 |
|
8 |
- print <FILE>, "\n"; |
9 |
+ my @lines = <FILE>; |
10 |
+ |
11 |
+ foreach (@lines) { |
12 |
+ |
13 |
+ print $_ unless $_ =~ /^#/; |
14 |
+ |
15 |
+ } |
16 |
+ |
17 |
+ print "\n"; |
18 |
+ |
19 |
} |