<?

/**
 * Simple Redirect Script for UP ERR 2004
 *
 * 13 July 2005
 * marais.neethling@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 2004
$locations["Research2004"]="http://www.research.up.ac.za/2004/";
//Research 2003
$locations["Research2003"]="http://www.research.up.ac.za/2003/";
//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/";
//Faculty of Education
$locations["B0"]="http://www.up.ac.za/";
//Faculty of Engineering, Built Environment and Information Technology
$locations["C0"]="http://www.up.ac.za/";
//Faculty of Health Sciences
$locations["D0"]="http://www.up.ac.za/";
//Faculty of Humanities
$locations["F0"]="http://www.up.ac.za/";
//Faculty of Law
$locations["G0"]="http://www.up.ac.za/";
//Faculty of Natural and Agricultural Sciences
$locations["H0"]="http://www.up.ac.za/";
//Faculty of Theology
$locations["J0"]="http://www.up.ac.za/";
//Faculty of Veterinary Science
$locations["K0"]="http://www.up.ac.za/";

//Departments
//-----------------------------------------------------------------------
//Centre for Academic Development
$locations["AKAD"]="http://www.up.ac.za/";
//Centre for Academic Development (EBIT)
$locations["INGA"]="http://www.up.ac.za/";
//Centre for Augmentative and Alternative Communication (CAAC)
$locations["SAAK"]="http://www.up.ac.za/";
//Centre for Human Rights
$locations["HUMR"]="http://www.up.ac.za/";
//Centre for Science Education
$locations["CSCE"]="http://www.up.ac.za/";
//Centre for Stomatological Research
$locations["SSTO"]="http://www.up.ac.za/";
//Department of Accounting
$locations["REKU"]="http://www.up.ac.za/";
//Department of African Languages
$locations["AFRT"]="http://www.up.ac.za/";
//Department of Afrikaans
$locations["AFRK"]="http://www.up.ac.za/";
//Department of Agricultural Economics, Extension and Rural Development
$locations["LANV"]="http://www.up.ac.za/";
//Department of Anaesthesiology
$locations["ANES"]="http://www.up.ac.za/";
//Department of Anatomical Pathology
$locations["ANAP"]="http://www.up.ac.za/";
//Department of Anatomy
$locations["ANAM"]="http://www.up.ac.za/";
//Department of Ancient Languages
$locations["ANRR"]="http://www.up.ac.za/";
//Department of Animal and Wildlife Sciences
$locations["VEEW"]="http://www.up.ac.za/";
//Department of Anthropology and Archaeology
$locations["ANTR"]="http://www.up.ac.za/";
//Department of Architecture
$locations["AGRT"]="http://www.up.ac.za/";
//Department of Arts, Languages and Human Movement Studies Education
$locations["SKIN"]="http://www.up.ac.za/";
//Department of Auditing
$locations["SKOR"]="http://www.up.ac.za/";

//Department of Biochemistry
$locations["BIOC"]="http://www.up.ac.za/";

//Department of Biokinetics, Sport and Leisure Sciences
$locations["MENB"]="http://www.up.ac.za/";

//Department of Botany
$locations["PLAN"]="http://www.up.ac.za/";

//Department of Business Management
$locations["ONDE"]="http://www.up.ac.za/";

//Department of Cardiology
$locations["KARD"]="http://www.up.ac.za/";

//Department of Chemical Engineering
$locations["CHMI"]="http://www.up.ac.za/";

//Department of Chemical Pathology
$locations["CHMP"]="http://www.up.ac.za/";

//Department of Chemistry
$locations["CHEM"]="http://www.up.ac.za/";

//Department of Church History and Church Polity
$locations["KERA"]="http://www.up.ac.za/";

//Department of Civil and Biosystems Engineering
$locations["SIVI"]="http://www.up.ac.za/";

//Department of Communication Pathology
$locations["KOMM"]="http://www.up.ac.za/";

//Department of Community Dentistry
$locations["GEMH"]="http://www.up.ac.za/";

//Department of Companion Animal Clinical Studies
$locations["CHIV"]="http://www.up.ac.za/";

//Department of Computer Science
$locations["REKW"]="http://www.up.ac.za/";

//Department of Construction Economics
$locations["BOUR"]="http://www.up.ac.za/";

//Department of Consumer Science
$locations["HUIK"]="http://www.up.ac.za/";

//Department of Criminology
$locations["KRIM"]="http://www.up.ac.za/";

//Department of Curriculum Studies
$locations["DIDA"]="http://www.up.ac.za/";

//Department of Diagnostics and Röntgenology
$locations["DAIG"]="http://www.up.ac.za/";

//Department of Drama
$locations["DRAM"]="http://www.up.ac.za/";

//Department of Early Childhood Education
$locations["SVOO"]="http://www.up.ac.za/";

//Department of Economics
$locations["EKON"]="http://www.up.ac.za/";

//Department of Educational Psychology
$locations["ORTP"]="http://www.up.ac.za/";

//Department of Education Management and Policy Studies
$locations["ONDY"]="http://www.up.ac.za/";

//Department of Electrical, Electronic and Computer Engineering
$locations["ELEK"]="http://www.up.ac.za/";

//Department of Engineering and Technology Management
$locations["INGE"]="http://www.up.ac.za/";

//Department of English
$locations["ENGL"]="http://www.up.ac.za/";

//Department of Family Medicine
$locations["HUIS"]="http://www.up.ac.za/";

//Department of Financial Management
$locations["FINB"]="http://www.up.ac.za/";

//Department of Food Science
$locations["VOED"]="http://www.up.ac.za/";

//Department of Forensic Medicine
$locations["GERE"]="http://www.up.ac.za/";

//Department of Genetics
$locations["GENE"]="http://www.up.ac.za/";

//Department of Geography, Geoinformatics and Meteorology
$locations["GEOG"]="http://www.up.ac.za/";

//Department of Geology
$locations["GEOL"]="http://www.up.ac.za/";

//Department of Haematology
$locations["GEMA"]="http://www.up.ac.za/";

//Department of Historical and Heritage Studies
$locations["GESK"]="http://www.up.ac.za/";

//Department of Human Resources Management
$locations["MENH"]="http://www.up.ac.za/";

//Department of Immunology
$locations["IMMU"]="http://www.up.ac.za/";

//Department of Industrial and Systems Engineering
$locations["BDSS"]="http://www.up.ac.za/";

//Department of Informatics
$locations["INFO"]="http://www.up.ac.za/";

//Department of Information Science
$locations["INLI"]="http://www.up.ac.za/";

//Department of Insurance and Actuarial Science
$locations["VERS"]="http://www.up.ac.za/";

//Department of Internal Medicine
$locations["INTG"]="http://www.up.ac.za/";

//Department of Legal History, Comparative Law and Jurisprudence
$locations["REGR"]="http://www.up.ac.za/";

//Department of Marketing and Communication Management
$locations["BMKM"]="http://www.up.ac.za/";

//Department of Materials Science and Metallurgical Engineering
$locations["MATE"]="http://www.up.ac.za/";

//Department of Mathematics and Applied Mathematics
$locations["WISK"]="http://www.up.ac.za/";

//Department of Maxillo-Facial and Oral Surgery
$locations["KAAK"]="http://www.up.ac.za/";

//Department of Mechanical and Aeronautical Engineering
$locations["MEGA"]="http://www.up.ac.za/";

//Department of Medical Microbiology
$locations["GENM"]="http://www.up.ac.za/";

//Department of Medical Oncology
$locations["MEDI"]="http://www.up.ac.za/";

//Department of Medical Virology
$locations["GENI"]="http://www.up.ac.za/";

//Department of Mercantile Law
$locations["HAND"]="http://www.up.ac.za/";

//Department of Microbiology and Plant Pathology
$locations["MIKP"]="http://www.up.ac.za/";

//Department of Mining Engineering
$locations["MYNB"]="http://www.up.ac.za/";

//Department of Modern European Languages
$locations["MODE"]="http://www.up.ac.za/";

//Department of Music
$locations["MUSI"]="http://www.up.ac.za/";

//Department of Neurology
$locations["NEUL"]="http://www.up.ac.za/";

//Department of Neurosurgery
$locations["NEUR"]="http://www.up.ac.za/";

//Department of New Testament Studies
$locations["NUWA"]="http://www.up.ac.za/";

//Department of Nuclear Medicine
$locations["KERN"]="http://www.up.ac.za/";

//Department of Nursing Science
$locations["VERP"]="http://www.up.ac.za/";

//Department of Obstetrics and Gynaecology
$locations["OBST"]="http://www.up.ac.za/";

//Department of Occupational Therapy
$locations["ARBD"]="http://www.up.ac.za/";

//Department of Old Testament Studies
$locations["OUTA"]="http://www.up.ac.za/";

//Department of Ophthalmology
$locations["OOGH"]="http://www.up.ac.za/";

//Department of Oral Pathology and Oral Biology
$locations["MOND"]="http://www.up.ac.za/";

//Department of Orthodontics
$locations["ORTD"]="http://www.up.ac.za/";

//Department of Orthopaedics
$locations["ORTE"]="http://www.up.ac.za/";

//Department of Otorhinolaryngology
$locations["OORN"]="http://www.up.ac.za/";

//Department of Paediatrics
$locations["KIND"]="http://www.up.ac.za/";

//Department of Paraclinical Sciences (Veterinary)
$locations["PATV"]="http://www.up.ac.za/";

//Department of Periodontics and Oral Medicine
$locations["PERI"]="http://www.up.ac.za/";

//Department of Pharmacology
$locations["FARK"]="http://www.up.ac.za/";

//Department of Philosophy
$locations["FILO"]="http://www.up.ac.za/";

//Department of Physics
$locations["FISI"]="http://www.up.ac.za/";

//Department of Physiology
$locations["FISO"]="http://www.up.ac.za/";

//Department of Physiotherapy
$locations["FIST"]="http://www.up.ac.za/";

//Department of Plant Production and Soil Science
$locations["PLAG"]="http://www.up.ac.za/";

//Department of Political Sciences
$locations["POLI"]="http://www.up.ac.za/";

//Department of Practical Theology
$locations["PRAK"]="http://www.up.ac.za/";

//Department of Private Law
$locations["PRIV"]="http://www.up.ac.za/";

//Department of Procedural Law
$locations["PROB"]="http://www.up.ac.za/";

//Department of Production Animal Studies
$locations["VETE"]="http://www.up.ac.za/";

//Department of Prosthetics and Dental Mechanics
$locations["PROT"]="http://www.up.ac.za/";

//Department of Psychiatry
$locations["PSIG"]="http://www.up.ac.za/";

//Department of Psychology
$locations["SIEL"]="http://www.up.ac.za/";

//Department of Public Law
$locations["PUBL"]="http://www.up.ac.za/";

//Department of Radiation Oncology
$locations["STRL"]="http://www.up.ac.za/";

//Department of Radiographic Sciences
$locations["ARAD"]="http://www.up.ac.za/";

//Department of Radiology
$locations["RADI"]="http://www.up.ac.za/";

//Department of Restorative Dentistry
$locations["HERS"]="http://www.up.ac.za/";

//Department of Science, Mathematics and Technology Education
$locations["ONDW"]="http://www.up.ac.za/";

//Department of Science of Religion and Missiology
$locations["GODA"]="http://www.up.ac.za/";

//Department of Social Studies Education
$locations["PSIS"]="http://www.up.ac.za/";

//Department of Social Work
$locations["MAAT"]="http://www.up.ac.za/";

//Department of Sociology
$locations["SOSI"]="http://www.up.ac.za/";

//Department of Statistics
$locations["STAT"]="http://www.up.ac.za/";

//Department of Surgery
$locations["CHIR"]="http://www.up.ac.za/";

//Department of Systematic Theology and Christian Ethics
$locations["DOGA"]="http://www.up.ac.za/";

//Department of Taxation
$locations["BELA"]="http://www.up.ac.za/";

//Department of Tourism Management
$locations["TOER"]="http://www.up.ac.za/";

//Department of Town and Regional Planning
$locations["STAD"]="http://www.up.ac.za/";

//Department of Urology
$locations["UROL"]="http://www.up.ac.za/";

//Department of Veterinary Anatomy and Physiology
$locations["ANAM"]="http://www.up.ac.za/";

//Department of Veterinary Tropical Diseases
$locations["VETT"]="http://www.up.ac.za/";

//Department of Visual Arts
$locations["VISU"]="http://www.up.ac.za/";

//Department of Zoology and Entomology
$locations["DIER"]="http://www.up.ac.za/";

//Division of Aeronautics and Space Medicine
$locations["ALUG"]="http://www.up.ac.za/";

//Division of Clinical Epidemiology
$locations["LEGM"]="http://www.up.ac.za/";

//Division of Community Based Education
$locations["FFFF"]="http://www.up.ac.za/";

//Division of Dental Materials
$locations["TMAT"]="http://www.up.ac.za/";

//Division of Dermatology
$locations["DERM"]="http://www.up.ac.za/";

//Division of Human Nutrition
$locations["GEND"]="http://www.up.ac.za/";

//Division of Sports Medicine
$locations["SPMD"]="http://www.up.ac.za/";

//Equine Research Centre
$locations["VETP"]="http://www.up.ac.za/";

//Gold Fields Computer Centre
$locations["NATO"]="http://www.up.ac.za/";

//Institute for Technological Innovation (ITI)
$locations["INTI"]="http://www.up.ac.za/";

//Laboratory for Microscopy and Microanalysis
$locations["NATK"]="http://www.up.ac.za/";

//Office of the Dean: Health Sciences
$locations["AEAA"]="http://www.up.ac.za/";

//Postgraduate School of Agriculture and Rural Development
$locations["SLAN"]="http://www.up.ac.za/";

//Reformed Theological College
$locations["PRAB"]="http://www.up.ac.za/";

//School of Health Systems and Public Health
$locations["GEME"]="http://www.up.ac.za/";

//School of Public Management and Administration
$locations["SKOO"]="http://www.up.ac.za/";

//Skills Laboratory
$locations["VLAB"]="http://www.up.ac.za/";

//The AEC Institute for Life Sciences
$locations["AEKI"]="http://www.up.ac.za/";

//Unit for Language Skills Development
$locations["LANG"]="http://www.up.ac.za/";


/*
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>";
?>