1 |
snetram |
1.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 |
|
|
} |