|
|
|
@ -16,7 +16,7 @@ $in = $ENV{'QUERY_STRING'}; |
|
|
|
|
@pairs = split(/[&=]/,$in); |
|
|
|
|
%fields = @pairs; |
|
|
|
|
chomp(%fields); |
|
|
|
|
$webroot = ".."; |
|
|
|
|
$webroot = "../../.."; |
|
|
|
|
|
|
|
|
|
print <<END; |
|
|
|
|
|
|
|
|
@ -36,19 +36,45 @@ print <<END; |
|
|
|
|
<a href="./"><img src="$webroot/logos/csc_logo.png" alt="Computer Science Club" width="420" height="79"/></a> |
|
|
|
|
</div></div> |
|
|
|
|
<div class="dirheader"> |
|
|
|
|
<a class="diritem" href="$webroot/"><b>HOME</b></a> |
|
|
|
|
<a class="diritem" href="$webroot/services/">Services</a> |
|
|
|
|
<a class="diritem" href="$webroot/office/">Office</a> |
|
|
|
|
<a class="diritem" href="$webroot/events/">Events</a> |
|
|
|
|
<a class="diritem" href="$webroot/media/">Media</a> |
|
|
|
|
<a class="diritem" href="http://wiki.csclub.uwaterloo.ca/">Wiki</a> |
|
|
|
|
<a class="diritem" href="https://mail.csclub.uwaterloo.ca/">Webmail</a> |
|
|
|
|
<a class="diritem" href="$webroot/gallery2/">Gallery</a> |
|
|
|
|
<a class="diritem" href="$webroot/stats">Stats</a> |
|
|
|
|
<br><br><br> |
|
|
|
|
|
|
|
|
|
END |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
open(DIR,"/users/www/www/directory.xml") or print "Couldn't open file\n"; |
|
|
|
|
@items = <DIR>; |
|
|
|
|
close(MENU); |
|
|
|
|
|
|
|
|
|
shift @items; |
|
|
|
|
shift @items; |
|
|
|
|
shift @items; |
|
|
|
|
shift @items; |
|
|
|
|
shift @items; |
|
|
|
|
$items[-1] = undef; |
|
|
|
|
|
|
|
|
|
foreach $item (@items){ |
|
|
|
|
if($item){ |
|
|
|
|
|
|
|
|
|
$item =~ s/[<>]//g; |
|
|
|
|
$item =~ s/\/$//g; |
|
|
|
|
$item =~ s/menuitem//g; |
|
|
|
|
$item =~ s/ //; |
|
|
|
|
@pairs = split(/[ =]/,$item); |
|
|
|
|
shift @pairs; |
|
|
|
|
%fields = @pairs; |
|
|
|
|
|
|
|
|
|
$fields{'href'} =~ s/"//g; |
|
|
|
|
|
|
|
|
|
chomp($fields{'href'}); |
|
|
|
|
|
|
|
|
|
$fields{'title'} =~ s/"//g; |
|
|
|
|
|
|
|
|
|
print "<a class=\"diritem\" href=\"$fields{'title'}\">$fields{'title'}</a>\n"; |
|
|
|
|
|
|
|
|
|
} |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
print "<br><br><br>\n"; |
|
|
|
|
|
|
|
|
|
#display the search form |
|
|
|
|
if($fields{'do'} eq "home" || $fields{'do'} eq ""){ |
|
|
|
|
|
|
|
|
|