ArchitectureWeek Architects and Firms - Michelle Kaufmann - 01
Michelle Kaufmann #!/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;
}
}
 |
SOLAR DECATHLON 2011
In the U.S. Department of Energy's recent Solar Decathlon, architecture and engineering students competed to build the most efficient, innovative, economical, and attractive home powered by the sun. — Published 2011.1012
 |
 |
MODULAR MODES
Modular houses are composed of one or more sections that are factory built, transported by truck, and set on a foundation. Modular houses may be made of two modules, as is the Sunset Breezehouse shown here, or they can be assembled from a kit of prefabricated parts. — Published 2007.0411
|
Michelle Kaufmann #!/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;
}
}
|
|
