#!/usr/bin/perl
print "Content-type: text/html\n\n";
$ip_address1 = '134\.174\.168';
$ip_address2 = '134\.174\.160';
$ip_address3 = '134\.174\.161';
$remote_address = $ENV{'REMOTE_ADDR'};
if (($remote_address =~ /^$ip_address1/) || ($remote_address =~ /^$ip_address2/) || ($remote_address =~ /^$ip_address3/)) {
print <Ordering Webpage
Changing Members List on Ordering Page
- Connect to arep by ftp using your login and password. The relevant file is at:
/usr/arep/a3/httpd/cgi-bin/orderinglabmembs.txt
- The "orderinglabmembs.txt" file is simply a text file that lists people's name, email address, and grant in the following format:
[lab member's name] tab [email address] tab [grant]
where each record has to be on a new line, and the single tab between each component is very important for parsing by the Perl script. For example:
Barak Cohen cohen\@rascal.med.harvard.edu RPR
Cindy Reyes reyes\@arep.med.harvard.edu HMR
Dan Janse djanse\@student.med.harvard.edu DOE
- The webpage simply reads in the names in the order listed (so you'll have to manually alphabetize them if desired). Then after people fill out the webpage, the server reads that same file again for their email address and grant.
Back to Lam