Changeset 15 for trunk/DNSDB.pm

Timestamp:

09/15/09 08:51:42 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -68 +68 @@
 sub connectDB {
   $errstr = '';
-  my ($dbname,$user,$pass) = @_;
+  my $dbname = shift;
+  my $user = shift;
+  my $pass = shift;
   my $dbh;
   my $DSN = "DBI:Pg:dbname=$dbname";
@@ -385 +387 @@
   }
   $sql .= " and not type=$reverse_typemap{SOA} order by $order";
+##fixme:  need to set nstart properly (offset is not internally multiplied with limit)
   $sql .= " limit $nrecs offset $nstart" if $nstart ne 'all';
 
@@ -440 +443 @@
   my $sql = "insert into ".($defrec eq 'y' ? 'default_' : '')."records ($fields) values ($vallist)";
 # something is bugging me about this...
-print "DEBUG: $sql<br>\n";
+#warn "DEBUG: $sql";
   my $sth = $dbh->prepare($sql);
   $sth->execute;