Changeset 274

Timestamp:

08/09/05 17:17:29 (19 years ago)

Author:

Kris Deugau

Message:

/branches/dns

Fix missed name change for variable in new subst_rDNS function

File:

• branches/dns/cgi-bin/IPDB.pm (modified) (1 diff)

branches/dns/cgi-bin/IPDB.pm

@@ -655 +655 @@
 
   my ($o1,$o2,$o3,$o4) = ($ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)/);
-  $rdns =~ s/\%o1\%/$o1/;
-  $rdns =~ s/\%o2\%/$o2/;
-  $rdns =~ s/\%o3\%/$o3/;
-  $rdns =~ s/\%o4\%/$o4/;
-  $rdns =~ s/\%d\%/$o1$-o2-$o3-$o4/;
-
-  return $rdns;
+  $template =~ s/\%o1\%/$o1/;
+  $template =~ s/\%o2\%/$o2/;
+  $template =~ s/\%o3\%/$o3/;
+  $template =~ s/\%o4\%/$o4/;
+  $template =~ s/\%d\%/$o1$-o2-$o3-$o4/;
+
+  return $template;
 } # end subst_rDNS()