You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
99 lines
2.9 KiB
99 lines
2.9 KiB
2 months ago
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
# $Id: sitecfgorg.pl,v 1.2 2004/01/13 19:22:04 jeffo Exp $
|
||
|
|
#
|
||
|
|
# Source File: sitecfg.pl
|
||
|
|
|
||
|
|
$ipfilter = "";
|
||
|
|
$acceptpost = 1;
|
||
|
|
$acceptget = 1;
|
||
|
|
$allowmultilogin = 0;
|
||
|
|
$autologout = 1800;
|
||
|
|
|
||
|
|
$mmautontfyfrom="autonotify\@test-central.com";
|
||
|
|
$mmautontfyto="support\@test-central.com";
|
||
|
|
|
||
|
|
$SYSTEM{'Version'} = "4.00";
|
||
|
|
$SYSTEM{'ipfilter'} = $ipfilter;
|
||
|
|
$SYSTEM{'acceptpost'} = $acceptpost;
|
||
|
|
$SYSTEM{'acceptget'} = $acceptget;
|
||
|
|
$SYSTEM{'allowmultilogin'} = $allowmultilogin;
|
||
|
|
$SYSTEM{'autologout'} = $autologout;
|
||
|
|
$SYSTEM{'acceptpostchk'} = ($acceptpost == 1) ? "CHECKED" : "";
|
||
|
|
$SYSTEM{'acceptgetchk'} = ($acceptget == 1) ? "CHECKED" : "";
|
||
|
|
$SYSTEM{'allowmultiloginchk'} = ($allowmultilogin == 1) ? "CHECKED" : "";
|
||
|
|
$SYSTEM{'supportedimagemedia'} = "art;bmp;gif;jpg;jpe;jpeg";
|
||
|
|
$SYSTEM{'supportedaudiomedia'} = "aif;aifc;aiff;au;mid;rmi;snd;wav;";
|
||
|
|
$SYSTEM{'supportedvideomedia'} = "avi;m1v;mov;mpa;mpe;mpeg;mpg";
|
||
|
|
%CONTENT_TYPES=(
|
||
|
|
"aif" => "audio/x-aiff",
|
||
|
|
"aifc" => "audio/x-aiff",
|
||
|
|
"aiff" => "audio/x-aiff",
|
||
|
|
"art" => "image/x-jg",
|
||
|
|
"au" => "audio/basic",
|
||
|
|
"avi" => "video/avi",
|
||
|
|
"bmp" => "image/bmp",
|
||
|
|
"gif" => "image/gif",
|
||
|
|
"jpe" => "image/jpeg",
|
||
|
|
"jpg" => "image/jpeg",
|
||
|
|
"jpeg" => "image/jpeg",
|
||
|
|
"m1v" => "video/mpeg",
|
||
|
|
"mid" => "audio/mid",
|
||
|
|
"mov" => "video/quicktime",
|
||
|
|
"mpa" => "video/jpeg",
|
||
|
|
"mpe" => "video/jpeg",
|
||
|
|
"mpeg" => "video/jpeg",
|
||
|
|
"mpg" => "video/jpeg",
|
||
|
|
"rmi" => "audio/mid",
|
||
|
|
"snd" => "audio/basic",
|
||
|
|
"wav" => "audio/x-wav",
|
||
|
|
"other" => "text/html"
|
||
|
|
);
|
||
|
|
|
||
|
|
$osnt=0;
|
||
|
|
$pathsep = "/";
|
||
|
|
$idmax = 1000;
|
||
|
|
|
||
|
|
$hostid = 4;
|
||
|
|
require 'smilib.pl';
|
||
|
|
require 'cybertestlib.pl';
|
||
|
|
require 'maillib.pl';
|
||
|
|
|
||
|
|
|
||
|
|
$docroot = "/home/cust1/usr1108";
|
||
|
|
$urlroot = "http://64.224.96.108/cgi-bin";
|
||
|
|
$pubroot = join($pathsep, $docroot, "html");
|
||
|
|
$graphroot = join($pathsep, "", "graphic");
|
||
|
|
$graphurl = join($pathsep, "http://64.224.96.108", "graphic");
|
||
|
|
$cgiroot = $urlroot;
|
||
|
|
$cfgroot = join($pathsep, $docroot, "cgi-bin");
|
||
|
|
|
||
|
|
$archiveroot = join($pathsep, $docroot, "archive");
|
||
|
|
$secroot = join($pathsep, $docroot, "secure_html");
|
||
|
|
$logroot = join($pathsep, $secroot, "log");
|
||
|
|
$resptmplt = join($pathsep, $secroot, "template");
|
||
|
|
$dataroot = join($pathsep, $secroot, "data");
|
||
|
|
$questionroot = join($pathsep, $dataroot, "tests");
|
||
|
|
$testgraphic = join($pathsep, $questionroot, "graphic");
|
||
|
|
$testroot = join($pathsep, $secroot, "tests");
|
||
|
|
$testpending = join($pathsep, $secroot, "tests", "pending");
|
||
|
|
$testinprog = join($pathsep, $secroot, "tests", "inprog");
|
||
|
|
$testcomplete = join($pathsep, $secroot, "tests", "complete");
|
||
|
|
|
||
|
|
$PATHS{'graphroot'} = $graphroot;
|
||
|
|
$PATHS{'graphurl'} = $graphurl;
|
||
|
|
$PATHS{'cgiroot'} = $cgiroot;
|
||
|
|
$PATHS{'pubroot'} = $pubroot;
|
||
|
|
$PATHS{'logroot'} = $logroot;
|
||
|
|
$PATHS{'dataroot'} = $dataroot;
|
||
|
|
$PATHS{'secroot'} = $secroot;
|
||
|
|
$PATHS{'logroot'} = $logroot;
|
||
|
|
$PATHS{'resptmplt'} = $resptmplt;
|
||
|
|
$PATHS{'questionroot'} = $questionroot;
|
||
|
|
$PATHS{'testroot'} = $testroot;
|
||
|
|
$PATHS{'urlroot'} = $urlroot;
|
||
|
|
$PATHS{'archiveroot'} = $archiveroot;
|
||
|
|
$PATHS{'download'} = $download;
|
||
|
|
|
||
|
|
# end with True because this is a require file
|
||
|
|
1
|