%@ LANGUAGE="JSCRIPT" %><% // 23-Dec-08 rbd New DB caching hack // 18-Feb-09 rbd New RTML importer requires Contact.Organization. Move final // EndResponse outside try/catch/finally so all three will run. // Make note on Priority follow normalization setting in Scheduler. // 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. // 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 Handle spaces in filter 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.