Adding a configurable HTTP Access Control Filter

Also clarifying all exceptions by replacing the fault/reason message to
concrete enumeration/

Package.swift

@@ -1,7 +1,7 @@
 import PackageDescription
 import Foundation
 
-var repos = ["Perfect-Crypto"]
+var repos = ["Perfect-HTTPServer"]
 var targets = [Target(name: "PerfectSSOAuth", dependencies: [])]
 let excludes: [String]
 let db: String

README.md

@@ -249,7 +249,7 @@ Certainly, you can skip the log system if no need, which will log to the console
 let man = LoginManager<Profile>(udb: udb)
 ```
 
-Now you can use the `LoginManager` instance to register, login, load profile, update password and update profile, or drop users: 
+Now you can use the `LoginManager` instance to register, login, load profile, update password and update profile, or drop user:
 
 #### Register & Login
 
@@ -264,6 +264,8 @@ let token = try man.login(id: "someone", password: "secret")
 **NOTE**: By default, both user id and password are in a length of **[5,80]** string. 
 Check [Login / Password Quality Control](#login--password-quality-control) for more information.
 
+**NOTE** For those end users who want user id to be an autoincrement UInt64 id, please fork this repo to make your own edition.
+
 The token generated by `LoginManager.login()` is a JWT for HTTP web servers.
 
 It is supposed to send to the client (browser) as a proof of authentication.

README.zh_CN.md

@@ -259,6 +259,8 @@ let token = try man.login(id: "someone", password: "secret")
 **注意**: 默认状态下用户名密码长度都是 **[5,80]** 之间的字符串。
 详见 [用户名密码质量控制](#login--password-quality-control)。
 
+**注意** 如果最终用户希望用可以自动递增的UInt64作为用户id，请自行创建本项目分支版本进行调整。
+
 调用 `LoginManager.login()` 登录后产生的令牌是一个JWT字符串，可以用于HTTP服务器进行权鉴认证。
 
 该令牌应该送回给客户端（浏览器）用于后续安全会话的权限凭证。

Sources/PerfectSSOAuth/DataworkUtility.swift

@@ -8,6 +8,48 @@ public enum Exception: Error {
 
   /// an error with a readable reason.
   case fault(String)
+
+  /// something about json
+  case json
+
+  /// bad user name
+  case username
+
+  /// bad password
+  case password
+
+  /// encryption failure
+  case encryption
+
+  /// digestion failure
+  case digestion
+
+  /// access denied
+  case access
+
+  /// bad format
+  case malformed
+
+  /// bad request
+  case request
+
+  /// expired
+  case expired
+
+  /// violation
+  case violation
+
+  /// record not found
+  case inexisting
+
+  /// operation failure
+  case operation
+
+  /// unsupported
+  case unsupported
+
+  /// connection failure
+  case connection
 }
 
 /// a log file record
@@ -148,7 +190,7 @@ public final class DataworkUtility {
     guard let json = String.init(bytes: data, encoding: .utf8),
       let payload = try json.jsonDecode() as? [String:Any]
       else {
-        throw Exception.fault("json decoding failure")
+        throw Exception.json
     }
     var result:[Field] = []
     for (key, value) in payload {