ArchitectureWeek Architects and Firms - Anshen + Allen - 01
Anshen + Allen #!/opt/local/bin/perl
$file_directory = "/Library/WebServer/Documents/aw/architects";
&parse_form;
$current_page = $FORM{'count'};
$file_prefix = $FORM{'file'};
open(COUNT,"$file_directory/$file_prefix\_filecount.txt");
$total_pages = ;
close(COUNT);
print "Content-type: text/html\n\n";
if($total_pages > 1) {
print "page: ";
if($current_page > 1) {
$count = $current_page - 1;
while(length($count) < 2) { $count = "0$count"; }
print "[prev] | ";
}
$count = 1;
while($count <= $total_pages) {
if($count == $current_page) {
while(length($count) < 2) { $count = "0$count"; }
print "$count | \n";
}
else {
while(length($count) < 2) { $count = "0$count"; }
print "$count | ";
}
$count++;
}
if($current_page < $total_pages) {
$count = $current_page + 1;
while(length($count) < 2) { $count = "0$count"; }
print "[next]";
}
}
sub parse_form {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($nam, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value=~ s/QqQ/"/g;
$FORM{$nam} = $value;
}
}
 |
SUPER SEISMIC MEDICAL CENTER
The Mills-Peninsula Medical Center, currently under construction in Burlingame, California, will be the first "base-isolated" hospital in northern California.
Built on isolator bearings with seismic dampers, the building was designed by Anshen + Allen to remain operational after a major seismic event. During an earthquake, the building can move up to 30 inches (76 centimeters) horizontally and two inches (five centimeters) vertically without incurring major damage. — Published 2008.0514
 |
Anshen + Allen #!/opt/local/bin/perl
$file_directory = "/Library/WebServer/Documents/aw/architects";
&parse_form;
$current_page = $FORM{'count'};
$file_prefix = $FORM{'file'};
open(COUNT,"$file_directory/$file_prefix\_filecount.txt");
$total_pages = ;
close(COUNT);
print "Content-type: text/html\n\n";
if($total_pages > 1) {
print "page: ";
if($current_page > 1) {
$count = $current_page - 1;
while(length($count) < 2) { $count = "0$count"; }
print "[prev] | ";
}
$count = 1;
while($count <= $total_pages) {
if($count == $current_page) {
while(length($count) < 2) { $count = "0$count"; }
print "$count | \n";
}
else {
while(length($count) < 2) { $count = "0$count"; }
print "$count | ";
}
$count++;
}
if($current_page < $total_pages) {
$count = $current_page + 1;
while(length($count) < 2) { $count = "0$count"; }
print "[next]";
}
}
sub parse_form {
@pairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($nam, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value=~ s/QqQ/"/g;
$FORM{$nam} = $value;
}
}
|
|
