X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=bin%2Fconvert;h=4e3d7b3ac4925a86df11b1b949efad9efe0e0ed1;hb=a792de3f1755b621d65f0874de7ecef806d95c57;hp=ada6fe137a0d263eb5ee0a09bc50fe8a4f55e437;hpb=c1cc527c37023059b6be3cd2cac450fc415ba91c;p=nsc-5.git

diff --git a/bin/convert b/bin/convert
index ada6fe1..4e3d7b3 100755
--- a/bin/convert
+++ b/bin/convert
@@ -2,11 +2,9 @@
 #
 #	Convert -- A Tool for Conversion of Zone Files to NSC Format
 #
-#	(c) 1999 Martin Mares <mj@ucw.cz>
+#	(c) 1999--2003 Martin Mares <mj@ucw.cz>
 #
 
-use lib "/home/mj/perl/lib/site_perl";
-
 use Getopt::Std;
 use Net::DNS::Resolver;
 
@@ -71,9 +69,9 @@ sub go {
 	my $flag = shift @_;
 
 	if (defined $ips{$n}) { print "H($n$ips{$n})\n"; }
-	elsif ($flag) { print "HH($n)\n"; }
+	elsif ($flag) { print "H($n)\n"; }
 	if (defined $mx{$n}) { print "MX($mx{$n})\n"; }
-	if (defined $cn{$n}) { print "CNAME($cn{$n})\n"; }
+	if (defined $cn{$n}) { print "ALIAS($cn{$n})\n"; }
 }
 
 sub norm_name {