futur.blue / pegasus
objective categorical abstract machine language personal data server
65
fork

Configure Feed

Select the types of activity you want to include in your feed.

don't require handle to end with hostname

futurGH d53db710 38c6ae45

+17 -20
+17 -20
pegasus/lib/util.ml
··· 287 287 let is_none = function None -> true | _ -> false 288 288 289 289 let validate_handle handle = 290 - if not @@ String.ends_with ~suffix:("." ^ Env.hostname) handle then 291 - Error (Errors.InvalidRequestError ("InvalidHandle", "invalid handle suffix")) 292 - else 293 - let front = 294 - String.sub handle 0 295 - (String.length handle - (String.length Env.hostname + 1)) 296 - in 297 - if String.contains front '.' then 298 - Error 299 - (Errors.InvalidRequestError 300 - ("InvalidHandle", "invalid characters in handle") ) 301 - else 302 - match String.length front with 303 - | l when l < 3 -> 304 - Error 305 - (Errors.InvalidRequestError ("InvalidHandle", "handle too short")) 306 - | l when l > 18 -> 307 - Error (Errors.InvalidRequestError ("InvalidHandle", "handle too long")) 308 - | _ -> 309 - Ok () 290 + let front = 291 + String.sub handle 0 292 + (String.length handle - (String.length Env.hostname + 1)) 293 + in 294 + if String.contains front '.' then 295 + Error 296 + (Errors.InvalidRequestError 297 + ("InvalidHandle", "invalid characters in handle") ) 298 + else 299 + match String.length front with 300 + | l when l < 3 -> 301 + Error 302 + (Errors.InvalidRequestError ("InvalidHandle", "handle too short")) 303 + | l when l > 18 -> 304 + Error (Errors.InvalidRequestError ("InvalidHandle", "handle too long")) 305 + | _ -> 306 + Ok () 310 307 311 308 let mkfile_p path ~perm = 312 309 Core_unix.mkdir_p (Filename.dirname path) ~perm:0o755 ;