<%@ LANGUAGE="JSCRIPT" %><%
// 13-Apr-09 rbd For John Farrell, after SRO Photometry page
// 14-Apr-09 rbd Fix AirmassRange
// 04-Oct-09 rbd GEM:178 Custom filter names in photofilts.txt (up to 4 lines)
// Custom binning level in photobinning.txt (1 line)
// 05-Oct-09 rbd Oops, bug in binning file reading! Oops, forgot number on B
// field names. Oops, forgot the Monitor Mode UI!
// 18-Oct-09 rbd Fix validation for V-only images.
// 05-Nov-09 rbd GEM:284 - Add dithering support
// 06-Nov-09 rbd GEM:285 - Change Dither to input box
// 12-Aug-10 rbd GEM:423 - Add [ACP loginusername] to Contact User so Acquire
// Scheduler can substitute that into file path and put logs
// into that user's web logs folder.
// 20-Jan-11 rbd GEM:571 - Set our parent iframe's height. Add copyright to bottom.
// 22-Jan-11 rbd GEM:571 - Make IE fudge manifest constant, change to 18.
// 05-Jan-14 rbd Copyright to 2014
// 22-Jan-14 rbd GEM:1083 No more DBRelay hack :-) Also get UserPriorities
// from new ACP Scheduler object.
// 10-Feb-14 rbd GEM:1094 Comment on the lack of need to remove '+' in field
// names for this form to handle filters with spaces in their names.
// 17-Jan-19 rbd GEM:1660 Modern DOCTYPE and HTML declarations
// 13-Sep-23 rbd No GEM - Copyright to 2023
//
//
// Enhance String with a trim() method
//
String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
};
var DB = Scheduler.Database;
var FSO = new ActiveXObject("Scripting.FileSystemObject");
//
// Filter list - Optional file photofilters.txt (up to 4 non-blank lines)
//
var photoFilts = [ "I", "R", "V", "B" ]; // Standard photometry filters
var filtIndex = 0;
var filtFn = Server.MapPath("/sc/photofilters.txt");
if(FSO.FileExists(filtFn)) {
var filtSt = FSO.OpenTextFile(filtFn, 1);
while(!filtSt.AtEndOfStream) {
var f = filtSt.ReadLine().trim();
if(f !== "")
{
photoFilts[filtIndex] = f;
if(i >= 3)
break;
else
filtIndex += 1;
}
}
filtSt.Close();
}
var fldVar = [
photoFilts[0] + "1",
photoFilts[1] + "1",
photoFilts[2] + "1",
photoFilts[3] + "1",
photoFilts[2] + "2",
photoFilts[1] + "2",
photoFilts[0] + "2"
];
//
// Photometry binning - Optional photobinning.txt (1 non-blank line)
//
var photoBinning = 1; // Standard photometry binning
var binFn = Server.MapPath("/sc/photobinning.txt");
if(FSO.FileExists(binFn)) {
var binSt = FSO.OpenTextFile(binFn, 1);
while(!binSt.AtEndOfStream) {
var b = binSt.ReadLine().trim();
try { // Problems? Leave standrd binning
if(b != "") {
photoBinning = parseInt(b);
break;
}
} catch(ex) { }
}
binSt.Close();
}
//
// Project list
//
function makeProjectList()
{
var buf = "\r\n";
try
{
var uID = 0;
var eU = new Enumerator(DB.Users);
for(; !eU.atEnd(); eU.moveNext())
{
var U = eU.item();
if(U.Name == User.Name)
{
uID = U.ID;
break;
}
}
if(uID !== 0) // Get existing projects for this user
{
DB.CurrentUser = uID;
var eR = new Enumerator(DB.Projects);
for(; !eR.atEnd(); eR.moveNext())
{
var pn = eR.item().Name;
buf += "\r\n";
}
}
}
catch(ex)
{
buf += "";
}
finally
{
DB.CurrentUser = 0;
}
return buf;
}
function endResponse()
{
Response.Write("The browser will be refreshed in a few seconds...
\r\n");
Response.Write("... or click here to refresh now.
\r\n");
Response.Write("