REJUVENATING BOOMERS An article in the New York Times late in 2005 reported on the escalating demise of brutalist buildings designed and constructed during the post-war years — the hard-edged, unforgiving, sterile, and often-humorless creations of modernism's aging gurus and, especially, their uninspired copyists. — Published 2006.1108

Mitchell/ Giurgola 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; } }