Changeset 380 for trunk/cgi-bin/extras/db2rwhois.pl

Timestamp:

01/22/08 16:11:01 (16 years ago)

Author:

Kris Deugau

Message:

/trunk

Merge bugfixes/updates from /branches/stable r317 through r379

File:

• trunk/cgi-bin/extras/db2rwhois.pl (modified) (2 diffs)

trunk/cgi-bin/extras/db2rwhois.pl

@@ -41 +41 @@
 my @masterblocks;
 my %netnameprefix;
-my %def_custids;
 
 # Get the list of live directories for potential deletion
@@ -282 +281 @@
         "IP-Network: $net\n".
         "IP-Network-Block: ".$net->range."\n".
-        "Org-Name: $name\n".
-        "Street-Address: $street\n".
-        "City: $city\n".
-        "StateProv: $prov\n".
-        "Postal-Code: $pocode\n".
-        "Country-Code: $country\n".
-        "Tech-Contact: $tech\n".
+        "Org-Name: ".($name ? $name : 'Friendly ISP')."\n".
+        "Street-Address: ".($street ? $street : '123 4th Street')."\n".
+        "City: ".($city ? $city : 'Anytown')."\n".
+        "StateProv: ".($prov ? $prov : 'Ontario')."\n".
+        "Postal-Code: ".($pocode ? $pocode : 'H0H 0H0')."\n".
+        "Country-Code: ".($country ? $country : 'CA')."\n".
+        "Tech-Contact: ".($tech ? $tech : 'ISP-ARIN-HANDLE')."\n".
         "Created: $ctime\n".
         "Updated: $mtime\n".