ArchitectureWeek Architects and Firms - LMN Architects - 01
LMN Architects #!/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;
}
}
 |
SEATTLE PUBLIC LIBRARY
Were the architects inspired by sculpture when they designed the idiosyncratic form of the Seattle Public Library? Were they perhaps influenced by the angularity of the nearby street sculpture, Vertebrae, by Henry Moore? — Published 2005.0420
 |
LMN Architects #!/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;
}
}
|
|
