ArchitectureWeek Architects and Firms - Charles Correa - 01
Charles Correa #!/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;
}
}
 |
CORREA IN CAMBRIDGE
Celebrated Indian architect Charles Correa has completed his first major project in the United States on the campus of the Massachusetts Institute of Technology, working in collaboration with the Boston firm of Goody Clancy. — Published 2006.0726
 |
 |
HIGH-RISE HOUSING IN INDIA
For over 40 years, architect Charles Correa has been designing public housing and other major buildings for cities in his native India.
In this developing country where the urban population is growing twice as fast as the rural, the inventive, award-winning architect, planner, activist, and theoretician has adapted the language of modern architecture to create low-tech and low-cost yet humane habitats. — Published 2000.1011
|
Charles Correa #!/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;
}
}
|
|
