ArchitectureWeek Architects and Firms - Yung Ho Chang - 01
Yung Ho Chang #!/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;
}
}
 |
YUNG HO CHANG'S SPLIT HOUSE
Nestled in the hills northwest of Beijing, a lesser-known attraction vies for attention with a well-touristed section of China's Great Wall: eleven ultramodern villas, each designed by a top architect from China, Japan, South Korea, Thailand, or Singapore. — Published 2008.1210
 |
Yung Ho Chang #!/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;
}
}
|
|
