Cross Reference: /httpd/docs/cgi-examples/printenv

	printenv revision d465130a2383063c73545375b4444bcef3cf30f6
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding#!/usr/local/bin/perl
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding##
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding##  printenv -- demo CGI program which just prints its environment
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding##
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding
d465130a2383063c73545375b4444bcef3cf30f6fieldingprint "Content-type: text/plain; charset=iso-8859-1\n\n";
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afieldingforeach $var (sort(keys(%ENV))) {
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding    $val = $ENV{$var};
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding    $val =~ s|\n|\\n|g;
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding    $val =~ s|"|\\"|g;
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding    print "${var}=\"${val}\"\n";
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding}
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding