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"); }

About Monash research

The University undertakes innovative, multidisciplinary research addressing national and international priorities. With campuses and partnerships in Australia and overseas, Monash pursues knowledge and solutions from a global perspective.