HTTP/1.1 302 (Found) Object moved Cache-Control: private Connection: close Date: Tue, 09 Nov 2004 20:35:56 GMT Location: https://www.studentclearinghouse.org/secure_area/InvalidBrowser.asp Server: Microsoft-IIS/5.0 Content-Length: 121 Content-Type: text/html Client-Date: Tue, 09 Nov 2004 21:03:53 GMT Client-Response-Num: 1 Client-SSL-Cert-Issuer: /C=US/O=RSA Data Security, Inc./OU=Secure Server Certification Authority Client-SSL-Cert-Subject:/C=US/ST=Virginia/L=Herndon/O=National Student Clearinghouse/OU=Web Development/OU=Terms of use at www.verisign.com/rpa (c)01/CN=www.studentclearinghouse.org Client-SSL-Cipher: RC4-MD5 Client-SSL-Warning: Peer certificate not verified P3P: CP="CAO CURa ADMa DEVa OUR DELa IND PHY ONL UNI PUR COM NAV DEM STA" Set-Cookie: ASPSESSIONIDCQQRSRSA=OBBKBLKDKKEHIAKNMIMDCAIM; path=/ Title: Object moved Object Moved This object may be found here.1

COMMAND LINE RESULTS

Content-type: text/html Transcript Verification Request

Error submitting to Student Clearinghouse

1
HTTP/1.1 302 (Found) Object moved Cache-Control: private Connection: close Date: Tue, 09 Nov 2004 20:33:10 GMT Location: https://www.studentclearinghouse.org/secure_area/InvalidBrowser.asp Server: Microsoft-IIS/5.0 Content-Length: 121 Content-Type: text/html Client-Date: Tue, 09 Nov 2004 21:01:07 GMT Client-Response-Num: 1 Client-SSL-Cert-Issuer: /C=US/O=RSA Data Security, Inc./OU=Secure Server Certification Authority Client-SSL-Cert-Subject: /C=US/ST=Virginia/L=Herndon/O=National Student Clearinghouse/OU=Web Development/OU=Terms of use at www.verisign.com/rpa (c)01/CN=www.studentclearinghouse.org Client-SSL-Cipher: RC4-MD5 Client-SSL-Warning: Peer certificate not verified P3P: CP="CAO CURa ADMa DEVa OUR DELa IND PHY ONL UNI PUR COM NAV DEM STA" Set-Cookie: ASPSESSIONIDCQQRSRSA=CFAKBLKDLKCOBIJDHIDIEMJA; path=/ Title: Object moved Object moved

Object Moved

This object may be found here. 1

##

##

#!/usr/bin/perl
use strict;
print "Content-type: text/html\n\n";
use CGI;
use HTTP::Request::Common qw(POST);
use HTTP::Headers;
use LWP::UserAgent;

my $postFlag = 0;
my $destURL = "https://www.studentclearinghouse.org/secure_area/ref_students.asp";
my $query = CGI->new();
my $userid = $query->param('user_id');
my $qu = $query->param('qu');
my $password = $query->param('password');

my %parms = { "user_id" => $main::user_id,
              "password" => $main::password,
              "qu" => $main::qu };


my $ua = LWP::UserAgent->new();
my $req = POST $destURL, \%parms;
#my $response = HTTP::Response->new();
my $response = $ua->request($req);

if (! $response->is_success) {
print <

Transcript Verification Request



Error submitting to Student Clearinghouse
EOF
print $ua->is_protocol_supported( 'https' ). "
";
print $response->as_string . "1 

";
print $response->content . "4 

";
print <


EOF
}
else {
 print $response->content;
}
exit;