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)
|
