<%@ LANGUAGE="JSCRIPT" %><%
// 23-Dec-08 rbd New DB caching hack
// 18-Feb-09 rbd New RTML importer requires Contact.Organization. Catch case
// where exposure interval longer than total time. Move final
// EndResponse outside try/catch/finally so all three will run.
// Fix several problems with empty form fields! Make note on
// Priority follow normalization setting in Scheduler.
// 22-Mar-09 rbd Fix bug in finally part of post code
// 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 dynamically.
// 22-Jan-11 rbd GEM:571 - Make IE fudge manifest constant, change to 18.
//
//
// Enhance String with a trim() method
//
String.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
};
var DB = Session("SDB");
if(DB == undefined) {
var DBR = new ActiveXObject("ACP.DBRelay");
DB = DBR.GetDB(Session);
DBR = null;
}
var Conf = new ActiveXObject("DC3.Scheduler.SchedulerConfig");
var UserPriorities = Conf.UserPriorities;
Conf = null;
var FSO = new ActiveXObject("Scripting.FileSystemObject");
function makeFilterList()
{
var buf = "";
try {
var filtFn = Server.MapPath("/sc/" + "filters.txt");
if(!FSO.FileExists(filtFn)) return; // No file, no filters
var filtSt = FSO.OpenTextFile(filtFn, 1);
while(!filtSt.AtEndOfStream) {
var f = filtSt.ReadLine().trim();
if(f !== "")
buf += "\r\n";
}
filtSt.Close();
} catch(ex) {
buf = "\r\n";
}
return buf;
}
function makeBinningList()
{
var buf = "";
try {
var binFn = Server.MapPath("/sc/" + "binning.txt");
if(!FSO.FileExists(binFn)) return "(??)"; // Must have binning file!
var binSt = FSO.OpenTextFile(binFn, 1);
while(!binSt.AtEndOfStream) {
var b = binSt.ReadLine().trim();
if(b !== "")
buf += "\r\n";
}
binSt.Close();
} catch(ex) {
buf = "\r\n";
}
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.