Cross Reference: printenv
xref: /httpd/docs/cgi-examples/printenv
  • Home
  • History
  • Annotate
  • Line#
  • Navigate
  • Download
  • only in ./
printenv revision 1dcd0b672e2e3edd4cce2024ff197a8a18f3816a
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding#!/usr/local/bin/perl
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding##
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding## printenv -- demo CGI program which just prints its environment
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afielding##
f3220f54126b25e1cf93cc26c17177b7aef850fdfielding
1dcd0b672e2e3edd4cce2024ff197a8a18f3816afieldingprint "Content-type: text/plain\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

Indexes created Tue Jul 24 14:28:13 CEST 2018