From: Michael Austin [miaustin@bellsouth.net]
Sent: Sunday, June 17, 2001 7:06 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: POSTs via SSL to Apache

If you have installed PERL and MOD_PERL, in your PERL executable
directory place this file called printenv.pl

===============<  cut here >=================
  use CGI qw(:standard escapeHTML);
  use VMS::DCLsym;

    tie %syms, VMS::DCLsym;

sub cgiparse {
  if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  } else {
    $buffer = $ENV{'QUERY_STRING'};
  }
  local(@query_strings) = split("&", $buffer);
  foreach $q (@query_strings) {
    $q =~ s/\+/ /g;
    ($attr, $val) = split("=", $q);
    $val =~ s/%/\n%/g;
        print "$attr = $val<br>";
    local($tmpval);
    foreach (split("\n",$val)){
      if(m:%(\w\w):){
        local($binval) = hex($1);
        if(($binval>0)&&($binval<256)){
          local($htmlval) = pack("C",$binval);
          s/%$1/$htmlval/;
        }
      }
      $tmpval .= $_;
    }
    $parseit{$attr} = $tmpval;
  }
  %parseit;
}

print "Content-type: text/html\n\n";
&cgiparse();

while (($key, $val) = each %ENV) {
        print "$key = $val<BR>\n";

}
===============<end file>====================

This will produce all of the environment variables that your perl/cgi
will see.  My MOD_PERL points to a directory

Alias /bin/ "/apache$root/htdocs/perl/"
<Location /bin>
    SetHandler perl-script
    PerlHandler Apache::Registry
    Options ExecCGI
    Allow from all
    PerlSendHeader On
</Location>

your post would look like:  <form method=post
action="https://your.sys.com/bin/printenv.pl>

Michael Austin
DBA Consultant

Marty Kuhrt wrote:

> Does anyone have an example 3GL program that can emulate POSTs
> via SSL to the Apache (CSWS 1.0-1) webserver?   I'm trying to test
> out some forms I have created to see if they respond correctly.
> I can do them manually by calling up the cgi page and filling out
> the blanks, but I'd like to automate it to do regression testing.
>
> I'm running CSWS 1.0-1 (Apache 1.3.12, mod_ssl/2.6.2, OpenSSL/0.9.5),
> Multinet 4.3A-X, and VMS 7.2-1 on an Alphaserver 200 4/233.
>
> Any help would be appreciated,
> Marty