Changeset 531 for trunk/cgi-bin/main.cgi

Timestamp:

10/29/12 18:09:30 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move most SQL for allocation update into IPDB.pm. See #34.

File:

• trunk/cgi-bin/main.cgi (modified) (2 diffs)

trunk/cgi-bin/main.cgi

@@ -797 +797 @@
   }
 
-  # Check to see if we can update restricted data
-  my $privdata = '';
-  if ($IPDBacl{$authuser} =~ /s/) {
-    $privdata = ",privdata='$webvar{privdata}'";
-  }
-
   # Make sure incoming data is in correct format - custID among other things.
   return if !validateInput;
 
-  # SQL transaction wrapper
-  eval {
-    # Relatively simple SQL transaction here.
-    my $sql;
-    if (my $pooltype = ($webvar{alloctype} =~ /^(.)i$/) ) {
-      $sql = "UPDATE poolips SET custid='$webvar{custid}',".
-        "city=?,description=?,notes=?,".
-        "circuitid='$webvar{circid}',".
-        "$privdata where ip='$webvar{block}'";
-    } else {
-      $sql = "UPDATE allocations SET custid='$webvar{custid}',".
-        "city=?,description=?,notes=?,".
-        "circuitid='$webvar{circid}'$privdata,".
-        "type='$webvar{alloctype}',".
-        "swip='".($webvar{swip} eq 'on' ? 'y' : 'n')."' ".
-        "where cidr='$webvar{block}'";
-    }
-    # Log the details of the change.
-    syslog "debug", $sql;
-    $sth = $ip_dbh->prepare($sql);
-    $sth->execute($webvar{city}, $webvar{desc}, $webvar{notes});
-## node hack
-    if ($webvar{node}) {
-      # done with delete/insert so we don't have to worry about funkyness updating a node ref that isn't there
-      $ip_dbh->do("DELETE FROM noderef WHERE block='$webvar{block}'");
-      $sth = $ip_dbh->prepare("INSERT INTO noderef (block,node_id) VALUES (?,?)");
-      $sth->execute($webvar{block},$webvar{node});
-    }
-## end node hack
-    $ip_dbh->commit;
-  };
-  if ($@) {
-    my $msg = $@;
-    eval { $ip_dbh->rollback; };
+  my %updargs = (
+        custid          => $webvar{custid},
+        city            => $webvar{city},
+        description     => $webvar{desc},
+        notes           => $webvar{notes},
+        circuitid       => $webvar{circid},
+        block           => $webvar{block},
+        type            => $webvar{alloctype},
+        );
+
+  # Semioptional values
+  $updargs{privdata} = $webvar{privdata} if $IPDBacl{$authuser} =~ /s/;
+  $updargs{node} = $webvar{node} if $webvar{node};
+
+  my ($code,$msg) = updateBlock($ip_dbh, %updargs);
+
+  if ($code eq 'FAIL') {
     syslog "err", "$authuser could not update block/IP '$webvar{block}': '$msg'";
     $page->param(err => "Could not update block/IP $webvar{block}: $msg");
@@ -847 +824 @@
   # If we get here, the operation succeeded.
   syslog "notice", "$authuser updated $webvar{block}";
+##fixme:  log details of the change?  old way is in the .debug stream anyway.
 ##fixme:  need to wedge something in to allow "update:field" notifications
 ## hmm.  how to tell what changed?  O_o