BERLIN CENTRAL STATION The new Berlin Hauptbahnhof designed by von Gerkan, Marg and Partners (gmp) is Europe's largest and newest train station — a large "cathedral" of glass and steel. Linking major lines from all directions, the Berlin Central Station has been on the boards for 11 years, but with typical German efficiency, was completed within two weeks of the 2006 World Cup games. Yet one could say that the station had been in the planning stages for nearly a century. — Published 2006.1108

von Gerkan, Marg #!/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; } }