Skip to content | Change text size
#!/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('\n"); }

Monash University Accident Research Centre (MUARC) site map

See also Monash University site map

About MUARC

Events

Victorian Injury Surveillance Unit
Reports and brochures

Postgraduate program
Projects

Related links
Contact Us

Utilities