#!/usr/athena/bin/perl -T $WWWROOT = "/var/www/root"; print < Forbidden

403 Forbidden

You don't have permission to access that URL on this server.

HTTPHEAD $ru = $ENV{'REDIRECT_URL'}; if ($ru =~ m:^/people/(.*?)/:) { $person = $1; unless($actual = readlink "$WWWROOT/people/$person") { $actual = $ru; } } else { $actual = $ru; } undef $addr; if ($actual =~ m|/afs/sipb(\.mit\.edu)?/user/(\w{2,8})|) { $addr = $2; } elsif ($actual =~ m%/afs/athena(\.mit\.edu)?/user/(./.|./other|other)/(\w{2,8})%) { $addr = $3; } # safely exec hesinfo to determine if the address we've divined is # valid if($addr) { $pid = open(CHILD, "-|"); if(defined $pid) { if($pid == 0) { # keep hesinfo from writing to our stderr open(SAVERR, ">&STDERR") || warn "unable to dup stderr\n"; open(STDERR, ">/dev/null") || warn "stderr redirect failed\n"; exec "/bin/athena/hesinfo", $addr, "pobox"; # retrieve stderr because we have an error to report open(STDERR, ">&SAVERR"); die "exec failed (/bin/athena/hesinfo): $!\n"; } else { @hesdata = ; close(CHILD); # child will return zero on success, nonzero on failure if($? != 0) { undef $addr; } } } else { warn "unable to fork to exec hesinfo\n"; } } # if all the above tests are passed, $addr will have a value, otherwise # it'll be undefined if($addr) { print <You tried to access

http://stuff.mit.edu$ENV{'REDIRECT_URL'}

A possible contact address for the owner of this web page is $addr\@mit.edu. If you send mail, please include the URL you tried to access in the message you send so the owner of the page can fix the problem more easily.

UCONTACT } else { print <Perhaps you'd like to try our StoryFun service instead...

Please direct questions to stuffmaster\@mit.edu

WCONTACT } print < HTTPTAIL exit 0;