Changeset 4 for trunk/DNSDB.pm

Timestamp:

08/31/09 16:16:27 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

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

trunk/DNSDB.pm

@@ -362 +362 @@
   my $type = shift;
   my $id = shift;
+  my $nrecs = shift || 'all';
+  my $nstart = shift || 0;
+
+## for order, need to map input to column names
+  my $order = shift || 'host';
 
   my $sql = "select record_id,host,type,val,distance,weight,port,ttl from";
@@ -369 +374 @@
     $sql .= " records where domain_id=$id";
   }
-  $sql .= " and not type=$reverse_typemap{SOA}";
+  $sql .= " and not type=$reverse_typemap{SOA} order by $order";
+  $sql .= " limit $nrecs offset $nstart" if $nstart ne 'all';
+
   my $sth = $dbh->prepare($sql);
   $sth->execute;