[TWiki-Dev] CVS: twiki/bin register,1.15,1.16

[John T. <ta...@us...>]

Update of /cvsroot/twiki/twiki/bin
In directory usw-pr-cvs1:/tmp/cvs-serv30964/bin

Modified Files:
	register 
Log Message:
Fixed Codev.ApachePasswords

Index: register
===================================================================
RCS file: /cvsroot/twiki/twiki/bin/register,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** register	2001/07/17 09:10:04	1.15
--- register	2001/08/24 13:05:26	1.16
***************
*** 23,26 ****
--- 23,32 ----
  use TWiki::Net;
  
+ if( $TWiki::OS eq "WINDOWS" ) {
+     use MIME::Base64;
+     use Digest::SHA1;
+ }
+ 
+ 
  $query = new CGI;
  
***************
*** 190,193 ****
--- 196,202 ----
      # by David Levy, Internet Channel, 1997
      # found at http://world.inch.com/Scripts/htpasswd.pl.html
+     if ( $TWiki::OS eq "WINDOWS" ) {
+         return $user . ':{SHA}' . encode_base64(Digest::SHA1::sha1($passwd));
+     }
      srand( $$|time );
      my @saltchars = ( 'a'..'z', 'A'..'Z', '0'..'9', '.', '/' );