Changeset 15 for trunk/cgi-bin

Timestamp:

10/25/04 17:32:05 (20 years ago)

Author:

Kris Deugau

Message:

Updated db2rwhois.pl for new database format

File:

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

trunk/cgi-bin/extras/db2rwhois.pl

@@ -1 @@
-#!/usr/bin/perl -W -T
-# db2rwhois.pl
+#!/usr/bin/perl
+# -T
+# ipdb/cgi-bin/extras/db2rwhois.pl
 # Pull data from ipdb and mangle it into RWHOIS
-# Initial version 03/26/2004 kdeugau
+# Initial version 03/26/2004 kdeugau against IPDB v1
+###
+# Revision info
+# $Date$
+# SVN revision $Rev$
+# Last update by $Author$
+###
 
+use strict;
+use warnings;
 use DBI;
 use NetAddr::IP;
+use IPDB qw(:ALL);
 
 $ENV{"PATH"} = "/bin;/usr/bin";
+
+my $rwhoisDataPath = "/etc/rwhoisd";
 
 # We'll pull this out of the database instead.  Just make sure our
 # master blocks are actually listed....  <g>
 #@masterblocks = (
-#               (new NetAddr::IP "10.0.0.0/8"),
-#               (new NetAddr::IP "172.16.0.0/12"),
-#               (new NetAddr::IP "192.168.0.0/16")
+#               (new NetAddr::IP "209.91.128.0/18"),
+#               (new NetAddr::IP "66.186.64.0/19"),
+#               (new NetAddr::IP "192.168.99.0/24")
 #               );
 
-$dbh = DBI->connect("dbi:mysql:ipdb", "root", "")
-  or die $DBI::errstr;
+my $dbh = connectDB;
+
+my @masterblocks;
 
 # Fill in data about our master blocks as allocated from ARIN
@@ -24 +37 @@
 # Note that this ASS-U-MEs that we do not add master IP blocks-
 # there should probably be a separate system for doing that.
-$sth = $dbh->prepare("select * from masterblocks;");
+my $sth = $dbh->prepare("select * from masterblocks;");
 $sth->execute;
-$i=0;
-while (@data = $sth->fetchrow_array()) {
-  # Get the "full" network number+CIDR mask
-  $cidr = $data[0].".".$data[2].$data[1];
+my $i=0;
+GETMASTERS: while (my @data = $sth->fetchrow_array()) {
 
-  $masterblocks[$i] = new NetAddr::IP $cidr;
+  if ($data[0] =~ /^(192.168.0.0|172.16.0.0|10.0.0.0)/) {
+    next GETMASTERS;
+  }
+  $masterblocks[$i] = new NetAddr::IP $data[0];
 
+print "$masterblocks[$i]\n";
+
+  my $date;
   chomp ($date = `/bin/date +"%Y%m%d"`);
 
 # Whew!  Ugly little varmint.
-  $masterfilename = "net-".$masterblocks[$i]->addr."-".$masterblocks[$i]->masklen.
+  my $masterfilename = "net-".$masterblocks[$i]->addr."-".$masterblocks[$i]->masklen.
     "/data/network/".$masterblocks[$i]->addr."-".$masterblocks[$i]->masklen.".txt";
 
-  open MASTERFILE,">$masterfilename";
+# Need check here to create tree for netblock?
+
+  open MASTERFILE,">$rwhoisDataPath/$masterfilename";
 
   print MASTERFILE "ID: NETBLK-ISP.$masterblocks[$i]\n".
@@ -46 +65 @@
         "IP-Network: $masterblocks[$i]\n".
         "IP-Network-Block: ".$masterblocks[$i]->range."\n".
-        "Organization: $data[3]\n".
-        "Tech-Contact: $data[9]\n".
+        "Organization: Friendly ISP\n".
+        "Tech-Contact: noc\@example.com\n".
         "Admin-Contact: ISP-ARIN-HANDLE\n".
-        "Created: 20040401000000000\n".
+        "Abuse-Contact: abuse\@example.com\n".
+        "Created: 20040308\n".
         "Updated: $date\n".
         "Updated-By: noc\@example.com\n";
@@ -61 +81 @@
 # "net-xxx.xxx.xxx.xxx-mask" tree the data belongs in.
 
-#$sth = $dbh->prepare("select * from blocks;");
-$sth = $dbh->prepare("select * from tmpblocks;");
+# Make sure to remove the private netblocks from this.
+# No use or point in broadcasting our use of them.
+$sth = $dbh->prepare("select * from allocations where not (cidr <<= '192.168.0.0/16') and not (cidr <<= '172.16.0.0/12') and not (cidr <<= '10.0.0.0/8') and custid='6750400'");
 $sth->execute;
 
-while (@data = $sth->fetchrow_array()) {
+while (my @data = $sth->fetchrow_array()) {
 
 # We get master block info from @masterblocks.
@@ -81 +102 @@
 
   # Get the "full" network number
-  $netnum = $data[0].".".$data[2];
-
-  $cidr = $netnum.$data[1];
-
-  $net = new NetAddr::IP $cidr;
+  my $net = new NetAddr::IP $data[0];
 
 # Assumptions:  All data in ipdb is public
 # If not, we need another field to indicate "public/private".
 
-  foreach $master (@masterblocks) {
+  foreach my $master (@masterblocks) {
     if ($master->contains($net)) {
 
 # Whew!  Ugly little varmint.
-      $masterfilename = "net-".$master->addr."-".$master->masklen.
+      my $masterfilename = "net-".$master->addr."-".$master->masklen.
         "/data/network/".$master->addr."-".$master->masklen.".txt";
 
-      open MASTERFILE,">>$masterfilename";
+      open MASTERFILE,">>$rwhoisDataPath/$masterfilename"
+        or print "File open error: '$!' on '$rwhoisDataPath/$masterfilename'\n";
 
+# cidr custid type city description notes maskbits
+
+# Creation date in record to eventually be "correct";  near-term will
+# be master's creation date;  immediate is today's date.
+my $date;
       chomp ($date = `/bin/date +"%Y%m%d"`);
+if ($data[4] =~ /^\s*$/) { $data[4] = 'Friendly ISP'; }
       print MASTERFILE "---\nID: NETBLK-ISP.$master\n".
         "Auth-Area: $master\n".
@@ -105 +129 @@
         "IP-Network: $net\n".
         "IP-Network-Block: ".$net->range."\n".
-        "Organization: $data[5]\n".
+        "Organization: $data[4]\n".
 #       "Tech-Contact: $data[9]\n".
         "Tech-Contact: abuse\@example.com\n".
         "Admin-Contact: ISP-ARIN-HANDLE\n".
-        "Created: <date from db> (or today's date?)\n".
+        "Created: $date\n".
         "Updated: $date\n".
         "Updated-By: noc\@example.com\n";