[ActiveLock-Development] CVS: activelock2/src FileKeyStore.cls,1.4,1.5 Globals.cls,1.4,1.5 IKeyStoreProvider.cls,1.4,1.5

[Thanh H. T. <th...@us...>]

Update of /cvsroot/activelock/activelock2/src
In directory sc8-pr-cvs1:/tmp/cvs-serv12533

Modified Files:
	FileKeyStore.cls Globals.cls IKeyStoreProvider.cls 
Log Message:
Added some TODO items.

Index: FileKeyStore.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/FileKeyStore.cls,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- FileKeyStore.cls	21 Jul 2003 08:48:27 -0000	1.4
+++ FileKeyStore.cls	23 Jul 2003 03:55:21 -0000	1.5
@@ -53,7 +53,7 @@
 '  /                        MODULE TO DO LIST                            /
 '  ///////////////////////////////////////////////////////////////////////
 '
-'   [ ] Implement IKeyStoreProvider_Store subroutine
+'   [ ] IKeyStoreProvider_Store() - need to handle file locking for concurrent licensing.
 '
 '
 '  ///////////////////////////////////////////////////////////////////////

Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/Globals.cls,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Globals.cls	21 Jul 2003 08:48:27 -0000	1.4
+++ Globals.cls	23 Jul 2003 03:55:21 -0000	1.5
@@ -53,9 +53,8 @@
 '  /                        MODULE TO DO LIST                            /
 '  ///////////////////////////////////////////////////////////////////////
 '
-'   [ ] Add parameters to NewInstance
-'   [ ] Initialize proteries in NewInstance
-'
+'   [ ] GetClassString() - handle the rest of the LockTypes
+'   [ ] GetLicTypeString() - implement this
 '
 '  ///////////////////////////////////////////////////////////////////////
 '  /                        MODULE CHANGE LOG                            /
@@ -63,13 +62,11 @@
 '
 '   07.07.03 - mcrute   - Updated the header comments for this file.
 '   07.21.03 - th2tran  - Added ActiveLockErrCodeConstants to contain
-'                         a list of error code constants for ActiveLock.
+'                         a list of error code constants raised by ActiveLock.
 '
 '  ///////////////////////////////////////////////////////////////////////
 '  /                MODULE CODE BEGINS BELOW THIS LINE                   /
 '  ///////////////////////////////////////////////////////////////////////
-
-
 Option Explicit
 
 ''
@@ -114,7 +111,7 @@
 ''
 ' Instantiates a new ProductLicense object.
 '
-Public Function CreateProductLicense(Name As String, _
+Public Function CreateProductLicense(name As String, _
                                      Code As String, _
                                      Ver As String, _
                                      LicClass As ActiveLock2.ALLockTypes, _
@@ -127,7 +124,7 @@
                                      ) As ProductLicense
     Dim NewLic As New ProductLicense
     With NewLic
-        .ProductName = Name
+        .ProductName = name
         .ProductKey = Code
         .ProductVer = Ver
         .LicenseClass = GetClassString(LicClass)
@@ -151,6 +148,9 @@
     End If
 End Function
 
+''
+' Returns a string version of LicType
+'
 Private Function GetLicTypeString(LicType As ALLicType) As String
     'TODO: Implement this properly.
     GetLicTypeString = "Single"

Index: IKeyStoreProvider.cls
===================================================================
RCS file: /cvsroot/activelock/activelock2/src/IKeyStoreProvider.cls,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- IKeyStoreProvider.cls	21 Jul 2003 08:48:27 -0000	1.4
+++ IKeyStoreProvider.cls	23 Jul 2003 03:55:21 -0000	1.5
@@ -73,7 +73,8 @@
 
 
 ''
-' Specifies the path under which store keys
+' Specifies the path under which the keys are stored.
+' Example: path to a license file, or path to the Windows Registry hive.
 '
 Public Property Let KeyStorePath(Path As String)
 
@@ -87,7 +88,7 @@
 End Function
 
 ''
-' Stores a license
+' Stores a license.
 '
 Public Sub Store(Lic As ProductLicense)