1 |
3753f249
|
Assos Assos
|
<?php
|
2 |
|
|
|
3 |
|
|
/**
|
4 |
|
|
* @file
|
5 |
|
|
* Enables ctools generated modules to use UUIDs without the UUID module enabled.
|
6 |
|
|
* Per the ctools.module, this file only gets included if UUID doesn't exist.
|
7 |
|
|
*/
|
8 |
|
|
|
9 |
|
|
/**
|
10 |
|
|
* Pattern for detecting a valid UUID.
|
11 |
|
|
*/
|
12 |
|
|
define('UUID_PATTERN', '[0-9a-f]{8}-([0-9a-f]{4}-){3}[0-9a-f]{12}');
|
13 |
|
|
|
14 |
|
|
/**
|
15 |
|
|
* Generates a UUID using the Windows internal GUID generator.
|
16 |
|
|
*
|
17 |
|
|
* @see http://php.net/com_create_guid
|
18 |
|
|
*/
|
19 |
|
|
function _ctools_uuid_generate_com() {
|
20 |
|
|
// Remove {} wrapper and make lower case to keep result consistent.
|
21 |
|
|
return drupal_strtolower(trim(com_create_guid(), '{}'));
|
22 |
|
|
}
|
23 |
|
|
|
24 |
|
|
/**
|
25 |
|
|
* Generates an universally unique identifier using the PECL extension.
|
26 |
|
|
*/
|
27 |
|
|
function _ctools_uuid_generate_pecl() {
|
28 |
560c3060
|
Julien Enselme
|
$uuid_type = UUID_TYPE_DEFAULT;
|
29 |
|
|
return uuid_create($uuid_type);
|
30 |
3753f249
|
Assos Assos
|
}
|
31 |
|
|
|
32 |
|
|
/**
|
33 |
|
|
* Generates a UUID v4 using PHP code.
|
34 |
|
|
*
|
35 |
|
|
* Based on code from @see http://php.net/uniqid#65879 , but corrected.
|
36 |
|
|
*/
|
37 |
|
|
function _ctools_uuid_generate_php() {
|
38 |
|
|
// The field names refer to RFC 4122 section 4.1.2.
|
39 |
|
|
return sprintf('%04x%04x-%04x-4%03x-%04x-%04x%04x%04x',
|
40 |
|
|
// 32 bits for "time_low".
|
41 |
|
|
mt_rand(0, 65535), mt_rand(0, 65535),
|
42 |
|
|
// 16 bits for "time_mid".
|
43 |
|
|
mt_rand(0, 65535),
|
44 |
|
|
// 12 bits after the 0100 of (version) 4 for "time_hi_and_version".
|
45 |
|
|
mt_rand(0, 4095),
|
46 |
|
|
bindec(substr_replace(sprintf('%016b', mt_rand(0, 65535)), '10', 0, 2)),
|
47 |
|
|
// 8 bits, the last two of which (positions 6 and 7) are 01, for "clk_seq_hi_res"
|
48 |
|
|
// (hence, the 2nd hex digit after the 3rd hyphen can only be 1, 5, 9 or d)
|
49 |
|
|
// 8 bits for "clk_seq_low" 48 bits for "node".
|
50 |
|
|
mt_rand(0, 65535), mt_rand(0, 65535), mt_rand(0, 65535)
|
51 |
|
|
);
|
52 |
|
|
}
|
53 |
|
|
|
54 |
|
|
// This is wrapped in an if block to avoid conflicts with PECL's uuid_is_valid().
|
55 |
|
|
/**
|
56 |
|
|
* Check that a string appears to be in the format of a UUID.
|
57 |
|
|
*
|
58 |
|
|
* @param $uuid
|
59 |
|
|
* The string to test.
|
60 |
|
|
*
|
61 |
|
|
* @return
|
62 |
|
|
* TRUE if the string is well formed.
|
63 |
|
|
*/
|
64 |
|
|
if (!function_exists('uuid_is_valid')) {
|
65 |
|
|
function uuid_is_valid($uuid) {
|
66 |
|
|
return preg_match('/^' . UUID_PATTERN . '$/', $uuid);
|
67 |
|
|
}
|
68 |
|
|
} |