$result =& $ds->ds->Execute("INSERT INTO baseadd\n (info, baseindex)\n VALUES\n (" . $ds->ds->qstr($info) . ",\n {$baseindex})");
// Second, try to update.
if ($result == FALSE) {
$result =& $ds->ds->Execute("UPDATE baseadd\n SET info=" . $ds->ds->qstr($info) . " \n WHERE baseindex={$baseindex}");
if ($result == FALSE) {
insert($w, block("<b>" . my_("Error inserting/updating info.") . "</b>"));
}
}
}
// End of template support for base
// Changed - End [FE]
$ds->AuditLog(sprintf(my_("User %s modified subnet details %s size %u customer cust %u"), getAuthUsername(), inet_ntoa($base), $size, $cust));
} else {
// if not duplicate, fall through to here
if ($size > 1) {
if (TestBaseAddr(inet_aton3($ipaddr), $size)) {
insert($w, text(my_("Invalid base address!")));
break;
}
}
// use the first group user belongs to create subnet
if ($baseindex = $ds->CreateSubnet($base, $size, $descrip, $cust, 0, $admingrp)) {
$ds->AuditLog(sprintf(my_("User %s created new subnet %s size %u cust %u"), getAuthUsername(), inet_ntoa($base), $size, $cust));
// Changed - Begin [FE]
// Start of template support for base
if (!empty($info)) {
// First, try to insert.
$result =& $ds->ds->Execute("INSERT INTO baseadd\n (info, baseindex)\n VALUES\n (" . $ds->ds->qstr($info) . ",\n {$baseindex})");
// Second, try to update.
if ($result == FALSE) {
$result =& $ds->ds->Execute("UPDATE baseadd\n SET info=" . $ds->ds->qstr($info) . " \n WHERE baseindex={$baseindex}");
function parseAddGroupBoundaryForm($w, $ds)
{
list($grp, $ipaddr, $size) = myRegister("S:grp S:ipaddr S:size");
// explicitly cast variables as security measure against SQL injection
$formerror = "";
$size = floor($size);
if ($_POST) {
$base = inet_aton($ipaddr);
// creating readonly group?
if ($base == 0 and $size == 0) {
if ($ds->ds->GetOne("SELECT count(*) AS cnt FROM bounds WHERE grp=" . $ds->ds->qstr($grp))) {
$formerror .= my_("Boundary cannot be created - overlaps with existing boundary") . "\n";
}
} else {
if (!$ipaddr) {
$formerror .= my_("Boundary address may not be blank") . "\n";
} else {
if (testIP($ipaddr)) {
$formerror .= my_("Invalid boundary address") . "\n";
} else {
if (!$size) {
$formerror .= my_("Size may not be zero") . "\n";
} else {
if (TestDuplicateBounds($ds, $base, $size, $grp)) {
$formerror .= my_("Boundary cannot be created - overlaps with existing boundary") . "\n";
}
}
}
}
if ($size > 1) {
if (TestBaseAddr(inet_aton3($ipaddr), $size)) {
$formerror .= my_("Invalid base address") . "\n";
}
}
}
if (!$formerror) {
$ds->DbfTransactionStart();
// the fact that the range is unique prevents the range
// being added to more than one area!
$result =& $ds->ds->Execute("INSERT INTO bounds\n (boundsaddr, boundssize, grp)\n VALUES\n ({$base}, {$size}, " . $ds->ds->qstr($grp) . ")");
if ($result) {
$ds->DbfTransactionEnd();
insert($w, textbr(my_("Boundary created")));
insertEditGroupForm($w, $ds);
} else {
$formerror .= my_("Boundary could not be created") . "\n";
}
}
}
return $formerror;
}
// loop through array returned from modifyipmulform.php
foreach ((array) $ip as $iptemp) {
// cast to array if not array already
// remove all attached files
RemoveAllFiles($ds, $baseindex, $iptemp);
// are there auto A records to delete?
$formerror .= DeleteDNS($ds, $w, $cust, $iptemp);
$ds->DeleteIP($iptemp, $baseindex);
}
$ds->DbfTransactionEnd();
insert($w, text(my_("IP address records deleted")));
} else {
$err = FALSE;
$email = "";
// if a specific network template exists, use that, else use generic template
$template = new IPplanIPTemplate("iptemplate", $cust, !TestBaseAddr($ip, $maxcnt));
// info field passed to ModifyIP must be "" if record is
// to be deleted from ipaddradd table automatically to
// conserve space - NB!
$info = "";
if ($template->is_error() == FALSE) {
// PROBLEM HERE: if template create suddenly returns error (template file
// permissions, xml error etc), then each submit thereafter will erase
// previous contents - this is not good
$template->Merge($userfld);
$err = $template->Verify($w);
if ($template->is_blank() == FALSE) {
// grab email address from template for later use if this is an
// ip address request
if ($request and isset($template->userfld["email"]["value"]) and preg_match('/^[\\w-\\.]{1,}\\@([\\da-zA-Z-]{1,}\\.){1,}[\\da-zA-Z-]{2,3}$/', $template->userfld["email"]["value"])) {
$email = $template->userfld["email"]["value"];
} else {
myError($w, $p, sprintf(my_("Invalid hostname %s"), $server) . "\n");
}
}
}
if (!$zoneip) {
myError($w, $p, my_("IP address may not be blank"));
} else {
if (testIP($zoneip)) {
myError($w, $p, my_("Invalid IP address"));
} else {
if (!$size) {
myError($w, $p, my_("Size may not be zero"));
} else {
if ($size > 1) {
if (TestBaseAddr(inet_aton3($zoneip), $size)) {
myError($w, $p, my_("Invalid base address!"));
}
}
}
}
}
$zoneip = inet_aton($zoneip);
$cnt = 0;
for ($i = 1; $i < 11; $i++) {
if ($hname[$i] and !preg_match("/[^ \t@()<>,]+\\.[^ \t()<>,.]+\$/", $hname[$i])) {
myError($w, $p, sprintf(my_("Invalid hostname %u"), $i) . "\n");
}
if ($hname[$i]) {
$cnt++;
}
break;
}
}
// could not find new subnet within any of the defined bounds
// so do not delete
if (!$extst) {
myError($w, $p, sprintf(my_("Subnet %s not split or joined - out of defined authority boundary"), $baseip) . "\n");
}
$ds->DbfTransactionStart();
// this code is not safe if transactions are not used
// another user could have added a new subnet that causes an overlap
// during the split and the create will thus fail. very unlikely though
if ($action == "join") {
// additional checks for join
// check if subnet size * 2 is valid?
if (TestBaseAddr(inet_aton3(inet_ntoa($base)), $size * 2)) {
myError($w, $p, my_("Subnets cannot be joined - Invalid base address!"));
}
// check if there is another subnet close by
$result = $ds->GetDuplicateSubnet($base + $size, $size, $cust);
if ($row = $result->FetchRow()) {
// now check if there is exactly one subnet of the same size
if ($row["subnetsize"] == $size) {
// delete old one
$basetmp = $row["baseindex"];
// found adjacent subnet, so delete it
$ds->ds->Execute("DELETE FROM base\n WHERE baseindex={$basetmp}");
$ds->ds->Execute("DELETE FROM baseadd\n WHERE baseindex={$basetmp}");
// ... and link its ip records to the bigger subnet
// files attached to ip records will travel with
$ds->ds->Execute("UPDATE ipaddr\n SET baseindex={$baseindex}\n WHERE baseindex={$basetmp}");
if (x.length > 0) return false;
else return true;
}
function follow() {
if (empty(document.MODIFY.lnk.value)) return;
document.DUMMY.ipaddr.value=document.MODIFY.lnk.value;
document.DUMMY.submit();
}
', array("language" => "JavaScript", "type" => "text/javascript")));
// ------------------- user information block ends here ------------------------
// -------------------- template section starts here ---------------------------
// if a specific network template exists, use that, else use generic template
$template = new IPplanIPTemplate("iptemplate", $cust, !TestBaseAddr($ip, $subnetsize));
if ($template->is_error() == FALSE) {
//insert($f,block("<hr>"));
insert($f, $con = container("fieldset", array("class" => "fieldset")));
insert($con, $legend = container("legend", array("class" => "legend")));
insert($legend, text(my_("Additional information")));
//insert($f,textbr(my_("Additional information"), array("b"=>1)));
$template->Merge($template->decode($dbfinfo));
$template->DisplayTemplate($con);
}
// -------------------- template section ends here ---------------------------
insert($con, hidden(array("name" => "baseindex", "value" => "{$baseindex}")));
insert($con, hidden(array("name" => "ip", "value" => "{$ip}")));
insert($con, hidden(array("name" => "subnetsize", "value" => "{$subnetsize}")));
insert($con, hidden(array("name" => "block", "value" => "{$block}")));
insert($con, hidden(array("name" => "search", "value" => "{$search}")));
