Changeset 47 for trunk/dns.cgi

Timestamp:

12/10/09 13:29:16 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint
Cosmetic shuffle of "which page am I processing?" logic to group related pages
Add stub for WHOIS, stub-and-a-bit for log display
Remove several obsolete or unused templates (mostly copies of Vega's output)

File:

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

trunk/dns.cgi

@@ -154 +154 @@
   listdomains();
 
-} elsif ($webvar{page} eq 'reclist') {
-
-  # 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 => $webvar{page});
-
-# 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);
-
-# fill the page-count and first-previous-next-last-all details
-  fill_pgcount($count,"records",domainName($dbh,$webvar{id}));
-  fill_fpnla($count);  # should put some params on this sub...
-
-  $page->param(defrec => $webvar{defrec});
-  if ($webvar{defrec} eq 'y') {
-##fixme: hardcoded group
-    showdomain('y',$curgroup);
-  } else {
-    showdomain('n',$webvar{id});
-  }
-
 } elsif ($webvar{page} eq 'newdomain') {
 
@@ -211 +183 @@
     # cancelled.  whee!
     changepage(page => "domlist");
+  }
+
+} elsif ($webvar{page} eq 'reclist') {
+
+  # 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 => $webvar{page});
+
+# 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);
+
+# fill the page-count and first-previous-next-last-all details
+  fill_pgcount($count,"records",domainName($dbh,$webvar{id}));
+  fill_fpnla($count);  # should put some params on this sub...
+
+  $page->param(defrec => $webvar{defrec});
+  if ($webvar{defrec} eq 'y') {
+##fixme: hardcoded group
+    showdomain('y',$curgroup);
+  } else {
+    showdomain('n',$webvar{id});
   }
 
@@ -639 +639 @@
   }
 
+} elsif ($webvar{page} eq 'whois') {
+
+} elsif ($webvar{page} eq 'log') {
+
+##fixme put in some real log-munching stuff
+##fixme need to add bits to *create* log entries...
+  my $sth = $dbh->prepare("SELECT * FROM log");
+  $sth->execute;
+  my @logbits;
+  while (my @data = $sth->fetchrow_array) {
+    my %row;
+# (1,1,1,'test@test','Test','frobbed the whatsit',now());
+    $row{userfname} = $data[4];
+    $row{userid} = $data[1];
+    $row{useremail} = $data[3];
+    $row{logentry} = $data[5];
+    $row{logtime} = $data[6];
+    push @logbits, \%row;
+  }
+  $page->param(logentries => \@logbits);
+
 }
 
@@ -927 +948 @@
   fill_colheads(\@cols, \%colheads);
 
-  $page->param(sortorder => $sortorder);
+#  $page->param(sortorder => $sortorder);
   # hack! hack! pthbttt.  have to rethink the status column storage,
   # or inactive comes "before" active.  *sigh*