Please login with individual username (not the generic 'trd')."); $ori_id = $_REQUEST['id']; $cpld = $_REQUEST['cpld']; $curr_thresh = $_REQUEST['cthr']; $slope_imib = $_REQUEST['imib']; $laser_rdyn = $_REQUEST['rdyn']; $ratio_opib = $_REQUEST['opib']; $reglist = $_REQUEST['regs']; if($reglist){ $regs = split(',',$reglist); $nregs = count($regs); if($nregs<16) die("ERROR: only $nregs registers were found! Please pass all 16.
"); } if(!$_REQUEST['confirmed']){ echo "

Please Confirm Reconfiguration of ORI$ori_id to:

\n"; if($cpld) echo "

- CPLD version = $cpld
"; if($curr_thresh) echo "

- Current Threshold = $curr_thresh mA
"; if($slope_imib) echo "

- Slope I(monitor)/I(bias) = $slope_imib uA/mA
"; if($laser_rdyn) echo "

- Laser Rdyn = $laser_rdyn Ohm
"; if($ratio_opib) echo "

- OpticalPower/I(monitor) = $ratio_opib uW/uA
"; if($reglist){ echo "

- new registers:
"; foreach($regs as $idx=>$reg){ if(strlen($reg)>1) print "$idx:$reg "; else print "$idx:0$reg "; } } echo "

\n"; print '
'; print ''; print ''; if($cpld) {print '';} if($curr_thresh) {print '';} if($slope_imib) {print '';} if($laser_rdyn) {print '';} if($ratio_opib) {print '';} if($reglist) {print '';} print ''; print '
'; print "or Go Back"; } else { $SQL = "UPDATE oricfg SET "; if($cpld) $SQL .= "cpld_version=$cpld,"; if($curr_thresh) $SQL .= "thrshld_curr=$curr_thresh,"; if($slope_imib) $SQL .= "slope_imd_ib=$slope_imib,"; if($laser_rdyn) $SQL .= "lsrdiod_rdyn=$laser_rdyn,"; if($ratio_opib) $SQL .= "ratio_op_imd=$ratio_opib,"; if($reglist){ foreach($regs as $idx=>$reg){ $decreg = hexdec($reg); if($idx<10) $SQL .= "reg0$idx=$decreg, "; else $SQL .= "reg$idx=$decreg, "; } } $SQL .= "person='".$_SESSION["person"]."' WHERE ori_id=$ori_id"; $result = pg_query($SQL); if(!$result) print "Failed to upload new configuration!
"; else print "New ORI configuration uploaded!
"; print "Go Back"; } gate_footer(); ?>