#!/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