<?

/**
 * Simple Redirect Script for UP ERR 2004
 *
 * 31 May 2004
 * Robert.Ellis@epiuse.com
 */

if(!isset($_GET['id'])) {
$id = "default";
} else {
$id = $_GET['id'];
}

//Other
//---------------------------------------------------------------------
//University of Pretoria
$locations["UP"]="http://www.up.ac.za/";
//Research
$locations["Research"]="http://www.up.ac.za/beta/research/eng/index.html";
//Campus Map and Directions
$locations["Map"]="http://www.up.ac.za/information/maps.html";
//Research 2002
$locations["Research2002"]="http://www.research.up.ac.za/2002/";
//Research 2001
$locations["Research2001"]="http://www.research.up.ac.za/2001/";
//Research 2000
$locations["Research2000"]="http://www.research.up.ac.za/2000/Research_Report_2000.PDF";
//NRF Rating Information
$locations["NRF"]="http://www.nrf.ac.za/corporate/evaluation/";
//Google Home Page
$locations["Google"]="http://www.google.com/";

//Faculties
//----------------------------------------------------------------------
//Faculty of Economic and Management Sciences
$locations["A0"]="http://www.up.ac.za/academic/economic/";
//Faculty of Education
$locations["B0"]="http://www.up.ac.za/academic/education/index.html";
//Faculty of Engineering, Built Environment and Information Technology
$locations["C0"]="http://www.up.ac.za/ebit/";
//Faculty of Health Sciences
$locations["D0"]="http://www.up.ac.za/academic/fachealth.html";
//Faculty of Humanities
$locations["F0"]="http://www.up.ac.za/academic/humanities/";
//Faculty of Law
$locations["G0"]="http://www.up.ac.za/beta/academic/law/index.htm";
//Faculty of Natural and Agricultural Sciences
$locations["H0"]="http://www.up.ac.za/academic/science/";
//Faculty of Theology
$locations["J0"]="http://www.up.ac.za/academic/theology/";
//Faculty of Veterinary Science
$locations["K0"]="http://www.up.ac.za/academic/veterinary/";

//Departments
//-----------------------------------------------------------------------
//Centre for Academic Development
$locations["AKAD"]="http://www.up.ac.za/academic/humanities/";
//Centre for Academic Development (EBIT)
$locations["INGA"]="http://www.up.ac.za/academic/se/";
//Centre for Augmentative and Alternative Communication (CAAC)
$locations["SAAK"]="http://www.up.ac.za/academic/education/research_centres.html";
//Centre for Human Rights
$locations["HUMR"]="http://www.up.ac.za/chr/";
//Centre for Science Education
$locations["CSCE"]="http://www.up.ac.za/academic/scieduc/";
//Centre for Stomatological Research
$locations["SSTO"]="http://www.up.ac.za/academic/dental/research/thkresdep.html#CENTRE%20FOR%20STOMATOLOGICAL%20RESEARCH";
//Department of Accounting
$locations["REKU"]="http://www.up.ac.za/academic/economic/";
//Department of African Languages
$locations["AFRT"]="http://www.up.ac.za/academic/libarts/afrilang/HOMEAFTLE.html";
//Department of Afrikaans
$locations["AFRK"]="http://www.up.ac.za/academic/afrikaans/Default.htm";
//Department of Agricultural Economics, Extension and Rural Development
$locations["LANV"]="http://www.up.ac.za/academic/ecoagric/";
//Department of Anaesthesiology
$locations["ANES"]="http://www.up.ac.za/academic/medicine/anaesth/anaesth.htm";
//Department of Anatomical Pathology
$locations["ANAP"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Anatomy
$locations["ANAM"]="http://www.up.ac.za/academic/medicine/anatomy/";
//Department of Ancient Languages
$locations["ANRR"]="http://www.up.ac.za/academic/ancient/index.html";
//Department of Animal and Wildlife Sciences
$locations["VEEW"]="http://www.up.ac.za/academic/wildlife/general.htm";
//Department of Anthropology and Archaeology
$locations["ANTR"]="http://www.up.ac.za/academic/anthrop/anthome.htm";
//Department of Architecture
$locations["AGRT"]="http://www.up.ac.za/academic/architecture/";
//Department of Arts, Languages and Human Movement Studies Education
$locations["SKIN"]="http://www.education.up.ac.za/languages.htm";
//Department of Auditing
$locations["SKOR"]="http://www.up.ac.za/academic/economic/";
//Department of Biochemistry
$locations["BIOC"]="http://www.up.ac.za/academic/biochem/home.html";
//Department of Biokinetics, Sport and Leisure Sciences
$locations["MENB"]="http://www.up.ac.za/academic/biokinetics/";
//Department of Botany
$locations["PLAN"]="http://www.up.ac.za/academic/botany/";
//Department of Business Management
$locations["ONDE"]="http://www.up.ac.za/academic/economic/business/";
//Department of Cardiology
$locations["KARD"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Chemical Engineering
$locations["CHMI"]="http://www.up.ac.za/academic/se/departments.htm#chemical";
//Department of Chemical Pathology
$locations["CHMP"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Chemistry
$locations["CHEM"]="http://www.up.ac.za/academic/chem/Welcome.html";
//Department of Church History and Church Polity
$locations["KERA"]="http://www.up.ac.za/academic/theology/departments/chhist.htm";
//Department of Civil and Biosystems Engineering
$locations["SIVI"]="http://www.up.ac.za/academic/civil/";
//Department of Communication Pathology
$locations["KOMM"]="http://www.up.ac.za/academic/compat/";
//Department of Community Dentistry
$locations["GEMH"]="http://www.up.ac.za/academic/dental/comdent/";
//Department of Companion Animal Clinical Studies
$locations["CHIV"]="http://www.up.ac.za/academic/veterinary/dicomp.htm";
//Department of Computer Science
$locations["REKW"]="http://www.cs.up.ac.za/";
//Department of Construction Economics
$locations["BOUR"]="http://www.up.ac.za/academic/builtenv/constructmanagement/index.htm";
//Department of Consumer Science
$locations["HUIK"]="http://www.up.ac.za/academic/hecon/index.html";
//Department of Criminology
$locations["KRIM"]="http://www.up.ac.za/academic/criminology";
//Department of Curriculum Studies
$locations["DIDA"]="http://www.education.up.ac.za/teachingtranin.html";
//Department of Diagnostics and Röntgenology
$locations["DAIG"]="http://www.up.ac.za/academic/dental/diagrad/";
//Department of Drama
$locations["DRAM"]="http://www.up.ac.za/academic/humanities/";
//Department of Early Childhood Education
$locations["SVOO"]="http://www.education.up.ac.za/earlychil.htm";
//Department of Economics
$locations["EKON"]="http://www.up.ac.za/academic/economic/econ/homep.html";
//Department of Educational Psychology
$locations["ORTP"]="http://www.education.up.ac.za/educpsycho.html";
//Department of Education Management and Policy Studies
$locations["ONDY"]="http://www.education.up.ac.za/educmanage.html";
//Department of Electrical, Electronic and Computer Engineering
$locations["ELEK"]="http://www.up.ac.za/academic/ee/";
//Department of Engineering and Technology Management
$locations["INGE"]="http://www.up.ac.za/academic/se/departments.htm#management";
//Department of English
$locations["ENGL"]="http://www.up.ac.za/academic/humanities/";
//Department of Family Medicine
$locations["HUIS"]="http://www.up.ac.za/academic/medicine/familymedicine/";
//Department of Financial Management
$locations["FINB"]="http://www.up.ac.za/academic/economic/finhome.html";
//Department of Food Science
$locations["VOED"]="http://www.up.ac.za/academic/foodsci/index.html";
//Department of Forensic Medicine
$locations["GERE"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Genetics
$locations["GENE"]="http://www.up.ac.za/academic/genetics/";
//Department of Geography, Geoinformatics and Meteorology
$locations["GEOG"]="http://www.up.ac.za/academic/geog/Welcome.html";
//Department of Geology
$locations["GEOL"]="http://www.up.ac.za/academic/geol/Welcome.html";
//Department of Haematology
$locations["GEMA"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Historical and Heritage Studies
$locations["GESK"]="http://www.up.ac.za/academic/history/";
//Department of Human Resources Management
$locations["MENH"]="http://www.up.ac.za/academic/economic/hrm/";
//Department of Immunology
$locations["IMMU"]="http://www.up.ac.za/academic/medicine/immunology/index.html";
//Department of Industrial and Systems Engineering
$locations["BDSS"]="http://ie.up.ac.za/";
//Department of Informatics
$locations["INFO"]="http://www.up.ac.za/academic/geog/Welcome.html";
//Department of Information Science
$locations["INLI"]="http://www.up.ac.za/academic/information/";
//Department of Insurance and Actuarial Science
$locations["VERS"]="http://www.up.ac.za/academic/economic/insure/insure.html ";
//Department of Internal Medicine
$locations["INTG"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Legal History, Comparative Law and Jurisprudence
$locations["REGR"]="http://www.up.ac.za/beta/academic/law/legal/eng/abd.htm";
//Department of Marketing and Communication Management
$locations["BMKM"]="http://www.up.ac.za/academic/economic/marcom/index.htm";
//Department of Materials Science and Metallurgical Engineering
$locations["MATE"]="http://www.up.ac.za/academic/mmi/metal/intro.html";
//Department of Mathematics and Applied Mathematics
$locations["WISK"]="http://www.up.ac.za/academic/maths/";
//Department of Maxillo-Facial and Oral Surgery
$locations["KAAK"]="http://www.up.ac.za/academic/dental/surgery/";
//Department of Mechanical and Aeronautical Engineering
$locations["MEGA"]="http://www.up.ac.za/academic/mae/";
//Department of Medical Microbiology
$locations["GENM"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Medical Oncology
$locations["MEDI"]="http://www.lia.net/hfalkson/oncology.htm";
//Department of Medical Virology
$locations["GENI"]="http://www.up.ac.za/academic/medicine/virology/";
//Department of Mercantile Law
$locations["HAND"]="http://www.up.ac.za/beta/academic/law/mercantile/eng/abd.htm";
//Department of Microbiology and Plant Pathology
$locations["MIKP"]="http://www.up.ac.za/academic/microbio/";
//Department of Mining Engineering
$locations["MYNB"]="http://www.up.ac.za/academic/se/departments.htm#mining";
//Department of Modern European Languages
$locations["MODE"]="http://www.up.ac.za/academic/modern/";
//Department of Music
$locations["MUSI"]="http://www.up.ac.za/academic/music/music.html";
//Department of Neurology
$locations["NEUL"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Neurosurgery
$locations["NEUR"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of New Testament Studies
$locations["NUWA"]="http://www.up.ac.za/academic/theology/departments/newtest.htm";
//Department of Nuclear Medicine
$locations["KERN"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Nursing Science
$locations["VERP"]="http://www.up.ac.za/academic/fachealth.html";
//Department of Obstetrics and Gynaecology
$locations["OBST"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Occupational Therapy
$locations["ARBD"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Old Testament Studies
$locations["OUTA"]="http://www.up.ac.za/academic/theology/departments/oldtest.htm";
//Department of Ophthalmology
$locations["OOGH"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Oral Pathology and Oral Biology
$locations["MOND"]="http://www.up.ac.za/academic/oralpath/";
//Department of Orthodontics
$locations["ORTD"]="http://www.up.ac.za/academic/dental/page4.html";
//Department of Orthopaedics
$locations["ORTE"]="http://www.up.ac.za/academic/orthopaedic/orthopodie/home.html";
//Department of Otorhinolaryngology
$locations["OORN"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Paediatrics
$locations["KIND"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Paraclinical Sciences (Veterinary)
$locations["PATV"]="http://www.up.ac.za/academic/veterinary/dipara.htm";
//Department of Periodontics and Oral Medicine
$locations["PERI"]="http://www.up.ac.za/academic/dental/page4.html";
//Department of Pharmacology
$locations["FARK"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Philosophy
$locations["FILO"]="http://www.up.ac.za/academic/philosophy/";
//Department of Physics
$locations["FISI"]="http://www.up.ac.za/academic/phys/Welcome.html";
//Department of Physiology
$locations["FISO"]="http://www.up.ac.za/academic/physiology";
//Department of Physiotherapy
$locations["FIST"]="http://www.up.ac.za/academic/medicine/physiotherapy/";
//Department of Plant Production and Soil Science
$locations["PLAG"]="http://www.up.ac.za/academic/plansoil/";
//Department of Political Sciences
$locations["POLI"]="http://www.up.ac.za/academic/libarts/polsci/home.htm";
//Department of Practical Theology
$locations["PRAK"]="http://www.up.ac.za/academic/practheol/practheol.htm";
//Department of Private Law
$locations["PRIV"]="http://www.up.ac.za/beta/academic/law/private/eng/abd.htm";
//Department of Procedural Law
$locations["PROB"]="http://www.up.ac.za/beta/academic/law/procedural/eng/abd.htm";
//Department of Production Animal Studies
$locations["VETE"]="http://www.up.ac.za/academic/veterinary/diprod.htm";
//Department of Prosthetics and Dental Mechanics
$locations["PROT"]="http://www.up.ac.za/academic/dental/page4.html";
//Department of Psychiatry
$locations["PSIG"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Psychology
$locations["SIEL"]="http://www.up.ac.za/academic/humanities/eng/eng/psyc/eng/index.htm";
//Department of Public Law
$locations["PUBL"]="http://www.up.ac.za/beta/academic/law/public/eng/abd.htm";
//Department of Radiation Oncology
$locations["STRL"]="http://www.up.ac.za/academic/medicine/radio-oncology/";
//Department of Radiographic Sciences
$locations["ARAD"]="http://www.up.ac.za/academic/fachealth.html";
//Department of Radiology
$locations["RADI"]="http://www.up.ac.za/academic/medicine/radiology/index.html";
//Department of Restorative Dentistry
$locations["HERS"]="http://www.up.ac.za/academic/dental/restorative/ ";
//Department of Science, Mathematics and Technology Education
$locations["ONDW"]="http://www.education.up.ac.za/centrescimatteched.htm";
//Department of Science of Religion and Missiology
$locations["GODA"]="http://http://www.up.ac.za/academic/theology/departments/scirelmis.htm";
//Department of Social Studies Education
$locations["PSIS"]="http://www.education.up.ac.za/socsci.htm";
//Department of Social Work
$locations["MAAT"]="http://www.up.ac.za/academic/social/homepage.html";
//Department of Sociology
$locations["SOSI"]="http://www.up.ac.za/academic/sociology/socword.htm";
//Department of Statistics
$locations["STAT"]="http://www.up.ac.za/academic/stats/";
//Department of Surgery
$locations["CHIR"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Department of Systematic Theology and Christian Ethics
$locations["DOGA"]="http://http://www.up.ac.za/academic/theology/departments/dogcreth.htm";
//Department of Taxation
$locations["BELA"]="http://www.up.ac.za/academic/economic/";
//Department of Tourism Management
$locations["TOER"]="http://www.up.ac.za/academic/economic/tourism/index.html";
//Department of Town and Regional Planning
$locations["STAD"]="http://www.up.ac.za/academic/townplan/";
//Department of Urology
$locations["UROL"]="http://www.up.ac.za/academic/medicine/urology/ ";
//Department of Veterinary Anatomy and Physiology
$locations["ANAM"]="http://www.up.ac.za/academic/veterinary/dianat.htm";
//Department of Veterinary Tropical Diseases
$locations["VETT"]="http://www.up.ac.za/academic/veterinary/divet.htm";
//Department of Visual Arts
$locations["VISU"]="http://www.up.ac.za/academic/humanities/";
//Department of Zoology and Entomology
$locations["DIER"]="http://www.up.ac.za/academic/zoology/top.htm";
//Division of Aeronautics and Space Medicine
$locations["ALUG"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Division of Clinical Epidemiology
$locations["LEGM"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Division of Community Based Education
$locations["FFFF"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Division of Dental Materials
$locations["TMAT"]="http://www.up.ac.za/academic/dental/materials/dmframe.html";
//Division of Dermatology
$locations["DERM"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Division of Human Nutrition
$locations["GEND"]="http://www.up.ac.za/academic/fachealth.html";
//Division of Sports Medicine
$locations["SPMD"]="http://www.up.ac.za/academic/medicine/dept_div.htm";
//Equine Research Centre
$locations["VETP"]="http://www.up.ac.za/academic/veterinary/dicent.htm";
//Gold Fields Computer Centre
$locations["NATO"]="http://goldilux.up.ac.za/goldlab";
//Institute for Technological Innovation (ITI)
$locations["INTI"]="http://www.up.ac.za/academic/se/";
//Laboratory for Microscopy and Microanalysis
$locations["NATK"]="http://www.up.ac.za/academic/physci/";
//Office of the Dean: Health Sciences
$locations["AEAA"]="http://www.up.ac.za/academic/fachealth.html";
//Postgraduate School of Agriculture and Rural Development
$locations["SLAN"]="http://www.up.ac.za/academic/agrirural/";
//Reformed Theological College
$locations["PRAB"]="http://www.up.ac.za/academic/theology/";
//School of Health Systems and Public Health
$locations["GEME"]="http://www.up.ac.za/academic/medicine/shsph/";
//School of Public Management and Administration
$locations["SKOO"]="http://www.up.ac.za/academic/soba/SPM/spma.html";
//Skills Laboratory
$locations["VLAB"]="http://www.up.ac.za/academic/medicine/valab/";
//The AEC Institute for Life Sciences
$locations["AEKI"]="http://www.up.ac.za/academic/fachealth.html";
//Unit for Language Skills Development
$locations["LANG"]="http://www.up.ac.za/academic/ulsd";

/*
while ($key = key($locations)) {
   if ($key == $id) {
		header("Location: " . $locations[$id]);
		exit;
   }
   next($locations);
}
*/

if ($locations[$id] != NULL) {
	header("Location: " . $locations[$id]);
}

print "
<html>
<head>
<title>ID Not Found</title>
</head>
<body>
A redirect URL does not exist for id: <b>$id</b>
<br><br>
The following urls exist:
<ul>
";

reset($locations);
while ($url = current($locations)) {
   $id = key($locations);
   echo "<li><a href='$url'>$id</a></li>\n";

   next($locations);
}

print "
</ul>
<body>
</html>";
?>