X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=bibliofile%2Fparse_dbd.pl;h=3b5450bf93495f1b961b3723c8d3853d27c01b53;hp=0a16c3a3f271c9f5a247b64d8ecf421cbbc3966c;hb=b4a45202fa9b19f2e38c22bafa36388d1e004dfe;hpb=6983901219f458f006debdebb83e480d81dde8b4

diff --git a/bibliofile/parse_dbd.pl b/bibliofile/parse_dbd.pl
index 0a16c3a..3b5450b 100755
--- a/bibliofile/parse_dbd.pl
+++ b/bibliofile/parse_dbd.pl
@@ -1,5 +1,21 @@
 #!/usr/bin/perl -w
 
+# Copyright 2009-2012, Equinox Software, Inc.
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
 use strict;
 
 $/ = undef;
@@ -14,7 +30,7 @@ my $startOfColumnTypes = 8;
 while (<>) {
 
   my $dbd = $_;
-  my $rowlength = ord substr($dbd, 0, 1);
+  my $rowlength = ord(substr($dbd, 0, 1)) + (256 * (ord(substr($dbd, 1, 1))));
   my $numcolumns = ord substr($dbd, 2, 1);
   my $extra = sprintf(
     "%02x %02x %02x", 
@@ -30,10 +46,10 @@ while (<>) {
   my $colnames = substr($dbd, $startOfColumnTypes + 7*$numcolumns - 2);
   my @col = split(/\x00/, $colnames);
 
-  #print "Row length: $rowlength\n";
-  #print "Columns:    $numcolumns\n";
-  #print "Extra data: $extra\n";
-  #print "Delimiter:  $delimiter\n";
+  print "Row length: $rowlength\n";
+  print "Columns:    $numcolumns\n";
+  print "Extra data: $extra\n";
+  print "Delimiter:  $delimiter\n";
 
   for (my $i = 1; $i <= $numcolumns; $i++) {
     my $coltype = substr($dbd, 7*($i-1)+$startOfColumnTypes, 1);