|
|
|
#!/usr/local/bin/perl
print("Content-type: text/html\n\n");
use CGI;
$query = new CGI;
$puri = $query->param('URI');
$endp = $query->param('ENDPAR');
$sep = $query->param('SEP');
$nomonash = $query->param('NOMONASH');
$noroot = $query->param('NOROOT');
$startpoint = $query->param('STARTPOINT');
if (defined($puri)) {
$var = $puri
}
else {
$var = $ENV{'REQUEST_URI'};
}
$filename = $ENV{'SCRIPT_FILENAME'};
$directory = substr($filename,0,rindex($filename,'/'));
%replacenames = ();
@array = split("/",$var);
if (-e("$directory/breadcrumbs.conf")) {
open(CONFIGFILE,"$directory/breadcrumbs.conf");
$config = new CGI(CONFIGFILE);
close(CONFIGFILE);
foreach $key ($config->param) {
$value = $config->param("$key");
$replacenames{"$key"} = "$value";
}
}
$s = scalar(@array);
$start = 1;
$end = $s - 2;
$count = $start;
$display_count = $count;
if (defined($startpoint)) {
foreach (1..$s) {
if ($startpoint eq $array[$_]) {
$display_count = $_;
}
}
}
print('');
if (!defined($nomonash)) {
if (defined($sep)) {
print(" Monash University");
}
else {
print(" Monash University > ");
}
}
if (defined($sep)) {
print("$sep");
}
if (!defined($noroot)) {
if (defined($replacenames{"/"})) {
$dis = $replacenames{"/"};
if (defined($sep)) {
print(" $dis");
}
else {
print(" $dis > ");
}
if (defined($sep)) {
print("$sep");
}
}
}
$str = "";
while ($count <= $end) {
$dis = $replacenames{$array[$count]};
if ($dis eq '') {
$dis = ucfirst($array[$count]);
}
$str = "$str/$array[$count]";
if ($count >= $display_count) {
if (defined($sep)) {
print(" $dis");
}
else {
print(" $dis > ");
}
if (defined($sep)) {
print("$sep");
}
}
$count = $count + 1;
}
if (substr($var,-1,1) eq "/") {
$last = $replacenames{$array[$s-1]};
if ($last eq '') {
$last = ucfirst($array[$s-1]);
}
if (defined($sep)) {
print(" $last");
}
else {
print(" $last");
}
}
if (!defined($endp)) {
print("  Peter Hillard
| Full Name |
Dr. Peter J. Hillard |
| Position |
Senior Research Fellow |
| Contact Details |
Phone: +61 3 9905 1331
Fax: +61 3 9905 4363
Email: Peter.Hillard@monash.edu |
| Qualifications |
Ph.D., BEng(Hons), ARSM |
| Research Interests |
|
Peter is a structural engineer who has specialised in hard tissue biomechanics. His primary research interests include the management of orthopaedic trauma and the modelling of injury mechanisms. He has also worked in a number of other areas both in biomechanics and in mining/heavy industry. His previous research clients have included the European Union, Medical Research Council (UK), Smith & Nephew Richards, National Health Service (UK), Stryker Orthopaedics, British Coal, and British Nuclear Fuels Ltd.
Peter has a first degree in Mining Engineering and a PhD in Mechanical Engineering. He held research and lecturing posts at Imperial College, the University of Bristol, Brunel University, and Manchester Metropolitan University in the UK, before joining MUARC as a Senior Research Fellow in December 2003. |
