[openca-cvsdev] CVS: openca-0.8/src/cgi-bin/cgi-public getID,1.1,1.2 pki,1.4,1.5

[<ope...@li...>]

Update of /cvsroot/openca/openca-0.8/src/cgi-bin/cgi-public
In directory usw-pr-cvs1:/tmp/cvs-serv4361/src/cgi-bin/cgi-public

Modified Files:
	getID pki 
Log Message:

IE support work in progress.

	--- madwolf


Index: getID
===================================================================
RCS file: /cvsroot/openca/openca-0.8/src/cgi-bin/cgi-public/getID,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** getID	2001/06/19 07:30:10	1.1
--- getID	2001/10/30 12:09:08	1.2
***************
*** 15,20 ****
  ## or anything seems useful in developing this software:
  ##
- ##      ma...@co...
  ##      ma...@op...
  ##
  
--- 15,21 ----
  ## or anything seems useful in developing this software:
  ##
  ##      ma...@op...
+ ##      ma...@cp...
+ ##      ma...@ha...
  ##
  
***************
*** 123,126 ****
--- 124,139 ----
  my $cert;
  
+ print "Content-type: text/html\n\n";
+ if ( $query->user_agent(netscape) ) {
+ 	print "Netscape<br>\n";
+ } elsif ( $query->user_agent(IE) ) {
+ 	print "Internet Explorer<br>\n";
+ } elsif ( $query->user_agent(Mozilla) ) {
+ 	print "Mozilla<br>\n";
+ } else {
+ 	print "Unknown<br>\n";
+ }
+ print ".";
+ exit 0;
  ## Now we must take different path for we can give certs for user/ca
  ## or whatever we want.

Index: pki
===================================================================
RCS file: /cvsroot/openca/openca-0.8/src/cgi-bin/cgi-public/pki,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** pki	2001/09/12 09:38:13	1.4
--- pki	2001/10/30 12:09:08	1.5
***************
*** 54,59 ****
  $|=1;
  
- print "Content-type: text/html\n\n"; 
- 
  ## Version Release
  local $VER = '0.2.01';
--- 54,57 ----
***************
*** 80,84 ****
  ## Functions Requirements
  ## ======================
- 
  require "misc-utils.lib";
  
--- 78,81 ----
***************
*** 120,123 ****
--- 117,121 ----
  
  if ( not $cryptoShell ) {
+ 	print "Content-type: text/html\n\n";
  	configError( "Cannot initialize Crypto Shell ($shellPath)!" );
  	exit 1;