Changeset 16 for trunk/dns.cgi

Timestamp:

09/15/09 17:52:13 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

File:

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

trunk/dns.cgi

@@ -177 +177 @@
 
 } elsif ($webvar{page} eq 'record') {
+
   if ($webvar{recact} eq 'new') {
+
     $page->param(todo => "Add record to");
     $page->param(recact => "add");
-    stdrecs();
+    fill_rectypes();
+
   } elsif ($webvar{recact} eq 'add') {
 
@@ -191 +194 @@
       }
     }
-  # wtf?
-  #  push @recargs, 
     my ($code,$msg) = addRec(@recargs);
 
     if ($code eq 'OK') {
       changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
-#      showdomain($webvar{defrec},$webvar{parentid});
-  # NB: should **really** redirect here, in case of reload.  >_<  eyowch.
     } else {
-      $page->param(add_failed => 1);
+      $page->param(failed => 1);
       $page->param(errmsg => $msg);
-      stdrecs($webvar{type});   # populate the form... er, mostly.
-      $page->param(name => $webvar{name});
-      $page->param(address => $webvar{address});
-      $page->param(distance => $webvar{distance})
-        if ($webvar{type} == $reverse_typemap{MX} or $webvar{type} == $reverse_typemap{SRV});
-      $page->param(weight => $webvar{weight}) if $webvar{type} == $reverse_typemap{SRV};
-      $page->param(port => $webvar{port}) if $webvar{type} == $reverse_typemap{SRV};
-    }
-
-    $page->param(defrec => $webvar{defrec});
+      fill_recdata();   # populate the form... er, mostly.
+    }
 
   } elsif ($webvar{recact} eq 'edit') {
 
-    $page->param(todo => "Edit record in");
+    $page->param(todo           => "Update record");
+    $page->param(recact         => "update");
+    $page->param(parentid       => $webvar{parentid});
+    $page->param(defrec         => $webvar{defrec});
     my $sth = $dbh->prepare("SELECT host,type,val,distance,weight,port,ttl FROM ".
         ($webvar{defrec} eq 'y' ? 'default_' : '')."records WHERE record_id=?");
@@ -226 +220 @@
     $page->param(port           => $port);
     $page->param(ttl            => $ttl);
-    stdrecs($type);
-  }
+    fill_rectypes($type);
+
+  } elsif ($webvar{recact} eq 'update') {
+
+    my ($code,$msg) = updateRec($dbh,$webvar{defrec},$webvar{id},
+        $webvar{name},$webvar{type},$webvar{address},$webvar{ttl},
+        $webvar{distance},$webvar{weight},$webvar{port});
+
+    if ($code eq 'OK') {
+      $page->param(failed       => 1);
+      $page->param(errmsg       => "testing");
+      $page->param(wastrying    => "updating");
+      $page->param(todo         => "Update record");
+      $page->param(recact       => "update");
+      $page->param(parentid     => $webvar{parentid});
+      $page->param(defrec       => $webvar{defrec});
+      fill_recdata();
+#      changepage(page => "reclist", id => $webvar{parentid}, defrec => $webvar{defrec});
+    } else {
+      $page->param(failed       => 1);
+      $page->param(errmsg       => $msg);
+      $page->param(wastrying    => "updating");
+      $page->param(todo         => "Update record");
+      $page->param(recact       => "update");
+      $page->param(parentid     => $webvar{parentid});
+      $page->param(defrec       => $webvar{defrec});
+      fill_recdata();
+    }
+  }
+
   if ($webvar{defrec} eq 'y') {
-    $page->param(domain => "group ".grpName($dbh,$webvar{parentid}));
-  } else {
-    $page->param(domain => domainName($dbh,$webvar{parentid}));
+    $page->param(dohere => "group ".grpName($dbh,$webvar{parentid}));
+  } else {
+    $page->param(dohere => domainName($dbh,$webvar{parentid}));
   }
 
@@ -464 +486 @@
 }
 
-sub stdrecs {
+# fill in record type list on add/update/edit record template
+sub fill_rectypes {
   my $type = shift || $reverse_typemap{A};
 
   my $sth = $dbh->prepare("select val,name from rectypes where stdflag=1 order by listorder");
   $sth->execute;
-
-push @debugbits, "DEBUG: type $type\n";
+push @debugbits, "type $type";
   my @typelist;
   while (my ($rval,$rname) = $sth->fetchrow_array()) {
@@ -478 +500 @@
   }
   $page->param(typelist => \@typelist);
-  $page->param(domain   => domainName($dbh,$webvar{domainid}));
-  $page->param(defrec   => $webvar{defrec});
+}
+
+sub fill_recdata {
+  fill_rectypes($webvar{type});
+
+  $page->param(name     => $webvar{name});
+  $page->param(address  => $webvar{address});
+  $page->param(distance => $webvar{distance})
+        if ($webvar{type} == $reverse_typemap{MX} or $webvar{type} == $reverse_typemap{SRV});
+  $page->param(weight   => $webvar{weight}) if $webvar{type} == $reverse_typemap{SRV};
+  $page->param(port     => $webvar{port}) if $webvar{type} == $reverse_typemap{SRV};
   $page->param(ttl      => ($webvar{ttl} ? $webvar{ttl} : $DNSDB::def{minttl}));
-  if ($webvar{defrec} eq 'y') {
-    ##fixme - should be groupid
-    $page->param(parentid => 1);
-  } else {
-print "DEBUG: foobar:  parentid $webvar{parentid}<br>\n";
-    $page->param(parentid => $webvar{parentid});
-  }
 }