MemcachedBagOStuff.php

Go to the documentation of this file.

<?php
abstract class MemcachedBagOStuff extends MediumSpecificBagOStuff {
    function __construct( array $params ) {
        parent::__construct( $params );

        $this->attrMap[self::ATTR_SYNCWRITES] = self::QOS_SYNCWRITES_BE; // unreliable
        $this->segmentationSize = $params['maxPreferedKeySize'] ?? 917504; // < 1MiB
    }

    public function makeKeyInternal( $keyspace, $args ) {
        // Memcached keys have a maximum length of 255 characters. From that,
        // subtract the number of characters we need for the keyspace and for
        // the separator character needed for each argument. To handle some
        // custom prefixes used by thing like WANObjectCache, limit to 205.
        $charsLeft = 205 - strlen( $keyspace ) - count( $args );

        foreach ( $args as &$arg ) {
            $arg = strtr( $arg, ' ', '_' );

            // Make sure %, #, and non-ASCII chars are escaped
            $arg = preg_replace_callback(
                '/[^\x21-\x22\x24\x26-\x39\x3b-\x7e]+/',
                function ( $m ) {
                    return rawurlencode( $m[0] );
                },
                $arg
            );

            // 33 = 32 characters for the MD5 + 1 for the '#' prefix.
            if ( $charsLeft > 33 && strlen( $arg ) > $charsLeft ) {
                $arg = '#' . md5( $arg );
            }

            $charsLeft -= strlen( $arg );
        }

        if ( $charsLeft < 0 ) {
            return $keyspace . ':BagOStuff-long-key:##' . md5( implode( ':', $args ) );
        }

        return $keyspace . ':' . implode( ':', $args );
    }

    public function validateKeyEncoding( $key ) {
        if ( preg_match( '/[^\x21-\x7e]+/', $key ) ) {
            throw new Exception( "Key contains invalid characters: $key" );
        }
        return $key;
    }

    protected function fixExpiry( $exptime ) {
        if ( $exptime < 0 ) {
            // The PECL driver does not seem to like negative relative values
            $expiresAt = $this->getCurrentTime() + $exptime;
        } elseif ( $this->isRelativeExpiration( $exptime ) ) {
            // TTLs higher than 30 days will be detected as absolute TTLs
            // (UNIX timestamps), and will result in the cache entry being
            // discarded immediately because the expiry is in the past.
            // Clamp expires >30d at 30d, unless they're >=1e9 in which
            // case they are likely to really be absolute (1e9 = 2011-09-09)
            $expiresAt = min( $exptime, self::TTL_MONTH );
        } else {
            $expiresAt = $exptime;
        }

        return (int)$expiresAt;
    }
}