Changeset 4 for trunk/dns.cgi

Timestamp:

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

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

• trunk/dns.cgi (modified) (7 diffs)

trunk/dns.cgi

@@ -60 +60 @@
 my $footer = HTML::Template->new(filename => "$templatedir/footer.tmpl");
 
+## hmm.  may want to move this so we can redirect after adding/deleting/etc
 print "Content-type: text/html\n\n", $header->output;
 
@@ -136 +137 @@
         ( (($offset+1)*$perpage) > $count ? $count : (($offset+1)*$perpage) )
         ));
+##fixme
+  $page->param(id => 1);
   my @domlist;
   $sth = $dbh->prepare("select domain_id,domain,status,groups.name from domains".
@@ -160 +163 @@
 } elsif ($webvar{page} eq 'reclist') {
 
-#} elsif ($webvar{page} eq 'domdetail') {
+  # Handle record list for both default records (per-group) and live domain records
 
   $page->param(defrec => $webvar{defrec});
+  $page->param(id => $webvar{id});
+  $page->param(curpage => 'reclist');
+
+# select count(*) from (default_)?records where (group|domain)_id=?
+    my $sth = $dbh->prepare("SELECT count(*) FROM ".
+        ($webvar{defrec} eq 'y' ? 'default_' : '')."records ".
+        "WHERE ".($webvar{defrec} eq 'y' ? 'group' : 'domain')."_id=? ".
+        "AND NOT type=$reverse_typemap{SOA}");
+    $sth->execute($webvar{id});
+    my ($count) = ($sth->fetchrow_array);
+
+  $page->param(ntot => $count);
+  $page->param(nfirst => 1);
+  $page->param(nlast => 10);
+
+##fixme
+  if ($offset eq 'all') {
+    print "foo!  wanna see'em all\n";
+  } else {
+    # all these bits only have sensible behaviour if offset is numeric. err, probably.
+    if ($count > $perpage) {
+      # if there are more results than the default, always show the "all" link
+      $page->param(navall => 1);
+
+      if ($offset > 0) {
+        $page->param(navfirst => 1);
+        $page->param(navprev => 1);
+        $page->param(prevoffs => $offset-1);
+      }
+
+      # show "next" and "last" links if we're not on the last page of results
+      if ( (($offset+1) * $perpage - $count) < 0 ) {
+        $page->param(navnext => 1);
+        $page->param(nextoffs => $offset+1);
+        $page->param(navlast => 1);
+        $page->param(lastoffs => int $count/$perpage);
+      }
+    }
+  }
 
 ##fixme
   $page->param(domain => domainName($dbh,$webvar{id}));
-  $page->param(grpid => 1);
+  $page->param(id => $webvar{id});
 ##fixme
 
+  $page->param(defrec => $webvar{defrec});
   if ($webvar{defrec} eq 'y') {
-    $page->param(id => $webvar{grpid}); ##fixme, hack! hack!
     showdomain('y',1);
   } else {
-    $page->param(id => $webvar{id});
     showdomain('n',$webvar{id});
   }
 
-} elsif ($webvar{page} eq 'defrecs') {
-
-  showdomain('def',1);
-  $page->param(defrec => 'y');
-
-  my $sth = $dbh->prepare("select * from default_records");
-  $sth->execute;
-print "<pre>\n";
-  while (my @data = $sth->fetchrow_array) {
-    foreach (@data) { print; print "\t" };
-    print "\n";
-  }
-print "</pre>\n";
-
 } elsif ($webvar{page} eq 'newdomain') {
+
   # weesa gonna discard parent_group_id for now
   my $sth = $dbh->prepare("select group_id,parent_group_id,name from groups order by group_id");
@@ -214 +242 @@
 
 } elsif ($webvar{page} eq 'addrec') {
-  print "wanna add<br>DEBUG: $webvar{parentid}<br>\n";
 
   my @recargs = ($dbh,$webvar{defrec},$webvar{parentid},$webvar{name},$webvar{type},$webvar{address},$webvar{ttl});
@@ -251 +278 @@
   my @tmp = getrecdata($dbh,$webvar{id},$webvar{defrec});
 
-  
 } elsif ($webvar{page} eq 'delrec') {
 
@@ -400 +426 @@
   $page->param(ttl      => $soa{ttl});
 
+##fixme!
+my $roffset = 0;
+
 #  my @foo2 = getDomRecs($dbh,'def',1);
-  my $foo2 = getDomRecs($dbh,$def,$id);
+  my $foo2 = getDomRecs($dbh,$def,$id,$perpage,$webvar{offset});
+
+#  $sth = $dbh->prepare("select domain_id,domain,status,groups.name from domains".
+#       " inner join groups on domains.group_id=groups.group_id".
+#       " order by domain".($offset eq 'all' ? '' : " limit $perpage offset ".$offset*$perpage));
+#  $sth->execute;
+#  my $rownum = 0;
+#  while (my @data = $sth->fetchrow_array) {
+#    my %row;
+#    $row{domainid} = $data[0];
+#    $row{domain} = $data[1];
+#    $row{status} = ($data[2] ? 'Active' : 'Inactive');
+#    $row{group} = $data[3];
+#    $row{bg} = ($rownum++)%2;
+##    $row{mkactive} = ($data[2] eq 'inactive' ? 1 : 0);
+#    $row{mkactive} = !$data[2];
+#    $row{sid} = $sid;
+#    $row{offset} = $offset;
 
   my $row = 0;
@@ -434 +480 @@
     $page->param(parentid => 1);
   } else {
+print "DEBUG: foobar:  parentid $webvar{parentid}<br>\n";
     $page->param(parentid => $webvar{parentid});
   }