function clean( $filter, $source, $type='string' ) {

    if ( class_exists( "JInputFilter" ) ) {

        $result = $filter->clean( $source, $type );

    } elseif ( class_exists( "InputFilter" ) ) {

        // Handle the type constraint

        switch (strtoupper($type))

        {

            case 'INT' :

            case 'INTEGER' :

                // Only use the first integer value

                @ preg_match('/-?[0-9]+/', $source, $matches);

                $result = @ (int) $matches[0];

                break;



            case 'FLOAT' :

            case 'DOUBLE' :

                // Only use the first floating point value

                @ preg_match('/-?[0-9]+(\.[0-9]+)?/', $source, $matches);

                $result = @ (float) $matches[0];

                break;



            case 'BOOL' :

            case 'BOOLEAN' :

                $result = (bool) $source;

                break;



            case 'WORD' :

                $result = (string) preg_replace( '#\W#', '', $source );

                break;



            default :

                $result = $this->_process( $filter, $source );

                break;

        }

    } else {

        $result = strip_tags( $source );    // sorry, but old mambo versions are unsafe

    }

    return $result;

}