Synnefo

# Copyright 2011, 2012, 2013 GRNET S.A. All rights reserved.

#

# Redistribution and use in source and binary forms, with or

# without modification, are permitted provided that the following

# conditions are met:

#

#   1. Redistributions of source code must retain the above

#      copyright notice, this list of conditions and the following

#      disclaimer.

#

#   2. Redistributions in binary form must reproduce the above

#      copyright notice, this list of conditions and the following

#      disclaimer in the documentation and/or other materials

#      provided with the distribution.

#

# THIS SOFTWARE IS PROVIDED BY GRNET S.A. ``AS IS'' AND ANY EXPRESS

# OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR

# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL GRNET S.A OR

# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,

# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT

# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF

# USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED

# AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN

# ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE

# POSSIBILITY OF SUCH DAMAGE.

#

# The views and conclusions contained in the software and

# documentation are those of the authors and should not be

# interpreted as representing official policies, either expressed

# or implied, of GRNET S.A.

import uuid

import logging

import json

import copy

from datetime import datetime, timedelta

import base64

from urllib import quote

from random import randint

import os

from django.db import models, transaction

from django.contrib.auth.models import User, UserManager, Group, Permission

from django.utils.translation import ugettext as _

from django.db.models.signals import pre_save, post_save

from django.contrib.contenttypes.models import ContentType

from django.db.models import Q

from django.core.urlresolvers import reverse

from django.utils.http import int_to_base36

from django.contrib.auth.tokens import default_token_generator

from django.conf import settings

from django.utils.importlib import import_module

from django.utils.safestring import mark_safe

from synnefo.lib.utils import dict_merge

from astakos.im import settings as astakos_settings

from astakos.im import auth_providers as auth

import astakos.im.messages as astakos_messages

from synnefo.lib.ordereddict import OrderedDict

from synnefo.util.text import uenc, udec

from synnefo.util import units

from astakos.im import presentation

logger = logging.getLogger(__name__)

DEFAULT_CONTENT_TYPE = None

_content_type = None

def get_content_type():

    global _content_type

    if _content_type is not None:

        return _content_type

    try:

        content_type = ContentType.objects.get(app_label='im',

                                               model='astakosuser')

    except:

        content_type = DEFAULT_CONTENT_TYPE

    _content_type = content_type

    return content_type

inf = float('inf')

def generate_token():

    s = os.urandom(32)

    return base64.urlsafe_b64encode(s).rstrip('=')

def _partition_by(f, l):

    d = {}

    for x in l:

        group = f(x)

        group_l = d.get(group, [])

        group_l.append(x)

        d[group] = group_l

    return d

def first_of_group(f, l):

    Nothing = type("Nothing", (), {})

    last_group = Nothing

    d = {}

    for x in l:

        group = f(x)

        if group != last_group:

            last_group = group

            d[group] = x

    return d

class Component(models.Model):

    name = models.CharField(_('Name'), max_length=255, unique=True,

                            db_index=True)

    url = models.CharField(_('Component url'), max_length=1024, null=True,

                           help_text=_("URL the component is accessible from"))

    base_url = models.CharField(max_length=1024, null=True)

    auth_token = models.CharField(_('Authentication Token'), max_length=64,

                                  null=True, blank=True, unique=True)

    auth_token_created = models.DateTimeField(_('Token creation date'),

                                              null=True)

    auth_token_expires = models.DateTimeField(_('Token expiration date'),

                                              null=True)

    def renew_token(self, expiration_date=None):

        for i in range(10):

            new_token = generate_token()

            count = Component.objects.filter(auth_token=new_token).count()

            if count == 0:

                break

            continue

        else:

            raise ValueError('Could not generate a token')

        self.auth_token = new_token

        self.auth_token_created = datetime.now()

        if expiration_date:

            self.auth_token_expires = expiration_date

        else:

            self.auth_token_expires = None

        msg = 'Token renewed for component %s'

        logger.log(astakos_settings.LOGGING_LEVEL, msg, self.name)

    def __str__(self):

        return self.name

    @classmethod

    def catalog(cls, orderfor=None):

        catalog = {}

        components = list(cls.objects.all())

        default_metadata = presentation.COMPONENTS

        metadata = {}

        for component in components:

            d = {'url': component.url,

                 'name': component.name}

            if component.name in default_metadata:

                metadata[component.name] = default_metadata.get(component.name)

                metadata[component.name].update(d)

            else:

                metadata[component.name] = d

        def component_by_order(s):

            return s[1].get('order')

        def component_by_dashboard_order(s):

            return s[1].get('dashboard').get('order')

        metadata = dict_merge(metadata,

                              astakos_settings.COMPONENTS_META)

        for component, info in metadata.iteritems():

            default_meta = presentation.component_defaults(component)

            base_meta = metadata.get(component, {})

            settings_meta = astakos_settings.COMPONENTS_META.get(component, {})

            component_meta = dict_merge(default_meta, base_meta)

            meta = dict_merge(component_meta, settings_meta)

            catalog[component] = meta

        order_key = component_by_order

        if orderfor == 'dashboard':

            order_key = component_by_dashboard_order

        ordered_catalog = OrderedDict(sorted(catalog.iteritems(),

                                             key=order_key))

        return ordered_catalog

_presentation_data = {}

def get_presentation(resource):

    global _presentation_data

    resource_presentation = _presentation_data.get(resource, {})

    if not resource_presentation:

        resources_presentation = presentation.RESOURCES.get('resources', {})

        resource_presentation = resources_presentation.get(resource, {})

        _presentation_data[resource] = resource_presentation

    return resource_presentation

class Service(models.Model):

    component = models.ForeignKey(Component)

    name = models.CharField(max_length=255, unique=True)

    type = models.CharField(max_length=255)

class Endpoint(models.Model):

    service = models.ForeignKey(Service, related_name='endpoints')

class EndpointData(models.Model):

    endpoint = models.ForeignKey(Endpoint, related_name='data')

    key = models.CharField(max_length=255)

    value = models.CharField(max_length=1024)

    class Meta:

        unique_together = (('endpoint', 'key'),)

class Resource(models.Model):

    name = models.CharField(_('Name'), max_length=255, unique=True)

    desc = models.TextField(_('Description'), null=True)

    service_type = models.CharField(_('Type'), max_length=255)

    service_origin = models.CharField(max_length=255, db_index=True)

    unit = models.CharField(_('Unit'), null=True, max_length=255)

    uplimit = models.BigIntegerField(default=0)

    ui_visible = models.BooleanField(default=True)

    api_visible = models.BooleanField(default=True)

    def __str__(self):

        return self.name

    def full_name(self):

        return str(self)

    def get_info(self):

        return {'service': self.service_origin,

                'description': self.desc,

                'unit': self.unit,

                'ui_visible': self.ui_visible,

                'api_visible': self.api_visible,

                }

    @property

    def group(self):

        default = self.name

        return get_presentation(str(self)).get('group', default)

    @property

    def help_text(self):

        default = "%s resource" % self.name

        return get_presentation(str(self)).get('help_text', default)

    @property

    def help_text_input_each(self):

        default = "%s resource" % self.name

        return get_presentation(str(self)).get('help_text_input_each', default)

    @property

    def is_abbreviation(self):

        return get_presentation(str(self)).get('is_abbreviation', False)

    @property

    def report_desc(self):

        default = "%s resource" % self.name

        return get_presentation(str(self)).get('report_desc', default)

    @property

    def placeholder(self):

        return get_presentation(str(self)).get('placeholder', self.unit)

    @property

    def verbose_name(self):

        return get_presentation(str(self)).get('verbose_name', self.name)

    @property

    def display_name(self):

        name = self.verbose_name

        if self.is_abbreviation:

            name = name.upper()

        return name

    @property

    def pluralized_display_name(self):

        if not self.unit:

            return '%ss' % self.display_name

        return self.display_name

def get_resource_names():

    _RESOURCE_NAMES = []

    resources = Resource.objects.select_related('service').all()

    _RESOURCE_NAMES = [resource.full_name() for resource in resources]

    return _RESOURCE_NAMES

def split_realname(value):

    parts = value.split(' ')

    if len(parts) == 2:

        return parts

    else:

        return ('', value)

class AstakosUserManager(UserManager):

    def get_auth_provider_user(self, provider, **kwargs):

        """

        Retrieve AstakosUser instance associated with the specified third party

        id.

        """

        kwargs = dict(map(lambda x: ('auth_providers__%s' % x[0], x[1]),

                          kwargs.iteritems()))

        return self.get(auth_providers__module=provider, **kwargs)

    def get_by_email(self, email):

        return self.get(email=email)

    def get_by_identifier(self, email_or_username, **kwargs):

        try:

            return self.get(email__iexact=email_or_username, **kwargs)

        except AstakosUser.DoesNotExist:

            return self.get(username__iexact=email_or_username, **kwargs)

    def user_exists(self, email_or_username, **kwargs):

        qemail = Q(email__iexact=email_or_username)

        qusername = Q(username__iexact=email_or_username)

        qextra = Q(**kwargs)

        return self.filter((qemail | qusername) & qextra).exists()

    def unverified_namesakes(self, email_or_username):

        q = Q(email__iexact=email_or_username)

        q |= Q(username__iexact=email_or_username)

        return self.filter(q & Q(email_verified=False))

    def verified_user_exists(self, email_or_username):

        return self.user_exists(email_or_username, email_verified=True)

    def verified(self):

        return self.filter(email_verified=True)

    def accepted(self):

        return self.filter(moderated=True, is_rejected=False)

    def uuid_catalog(self, l=None):

        """

        Returns a uuid to username mapping for the uuids appearing in l.

        If l is None returns the mapping for all existing users.

        """

        q = self.filter(uuid__in=l) if l is not None else self

        return dict(q.values_list('uuid', 'username'))

    def displayname_catalog(self, l=None):

        """

        Returns a username to uuid mapping for the usernames appearing in l.

        If l is None returns the mapping for all existing users.

        """

        if l is not None:

            lmap = dict((x.lower(), x) for x in l)

            q = self.filter(username__in=lmap.keys())

            values = ((lmap[n], u)

                      for n, u in q.values_list('username', 'uuid'))

        else:

            q = self

            values = self.values_list('username', 'uuid')

        return dict(values)

class AstakosUser(User):

    """

    Extends ``django.contrib.auth.models.User`` by defining additional fields.

    """

    affiliation = models.CharField(_('Affiliation'), max_length=255,

                                   blank=True, null=True)

    #for invitations

    user_level = astakos_settings.DEFAULT_USER_LEVEL

    level = models.IntegerField(_('Inviter level'), default=user_level)

    invitations = models.IntegerField(

        _('Invitations left'),

        default=astakos_settings.INVITATIONS_PER_LEVEL.get(user_level, 0))

    auth_token = models.CharField(

        _('Authentication Token'),

        max_length=64,

        unique=True,

        null=True,

        blank=True,

        help_text=_('Renew your authentication '

                    'token. Make sure to set the new '

                    'token in any client you may be '

                    'using, to preserve its '

                    'functionality.'))

    auth_token_created = models.DateTimeField(_('Token creation date'),

                                              null=True)

    auth_token_expires = models.DateTimeField(

        _('Token expiration date'), null=True)

    updated = models.DateTimeField(_('Update date'))

    # Arbitrary text to identify the reason user got deactivated.

    # To be used as a reference from administrators.

    deactivated_reason = models.TextField(

        _('Reason the user was disabled for'),

        default=None, null=True)

    deactivated_at = models.DateTimeField(_('User deactivated at'), null=True,

                                          blank=True)

    has_credits = models.BooleanField(_('Has credits?'), default=False)

    # this is set to True when user profile gets updated for the first time

    is_verified = models.BooleanField(_('Is verified?'), default=False)

    # user email is verified

    email_verified = models.BooleanField(_('Email verified?'), default=False)

    # unique string used in user email verification url

    verification_code = models.CharField(max_length=255, null=True,

                                         blank=False, unique=True)

    # date user email verified

    verified_at = models.DateTimeField(_('User verified email at'), null=True,

                                       blank=True)

    # email verification notice was sent to the user at this time

    activation_sent = models.DateTimeField(_('Activation sent date'),

                                           null=True, blank=True)

    # user got rejected during moderation process

    is_rejected = models.BooleanField(_('Account rejected'),

                                      default=False)

    # reason user got rejected

    rejected_reason = models.TextField(_('User rejected reason'), null=True,

                                       blank=True)

    # moderation status

    moderated = models.BooleanField(_('User moderated'), default=False)

    # date user moderated (either accepted or rejected)

    moderated_at = models.DateTimeField(_('Date moderated'), default=None,

                                        blank=True, null=True)

    # a snapshot of user instance the time got moderated

    moderated_data = models.TextField(null=True, default=None, blank=True)

    # a string which identifies how the user got moderated

    accepted_policy = models.CharField(_('Accepted policy'), max_length=255,

                                       default=None, null=True, blank=True)

    # the email used to accept the user

    accepted_email = models.EmailField(null=True, default=None, blank=True)

    has_signed_terms = models.BooleanField(_('I agree with the terms'),

                                           default=False)

    date_signed_terms = models.DateTimeField(_('Signed terms date'),

                                             null=True, blank=True)

    # permanent unique user identifier

    uuid = models.CharField(max_length=255, null=False, blank=False,

                            unique=True)

    policy = models.ManyToManyField(

        Resource, null=True, through='AstakosUserQuota')

    disturbed_quota = models.BooleanField(_('Needs quotaholder syncing'),

                                          default=False, db_index=True)

    objects = AstakosUserManager()

    @property

    def realname(self):

        return '%s %s' % (self.first_name, self.last_name)

    @property

    def log_display(self):

        """

        Should be used in all logger.* calls that refer to a user so that

        user display is consistent across log entries.

        """

        return '%s::%s' % (self.uuid, self.email)

    @realname.setter

    def realname(self, value):

        first, last = split_realname(value)

        self.first_name = first

        self.last_name = last

    def add_permission(self, pname):

        if self.has_perm(pname):

            return

        p, created = Permission.objects.get_or_create(

            codename=pname,

            name=pname.capitalize(),

            content_type=get_content_type())

        self.user_permissions.add(p)

    def remove_permission(self, pname):

        if self.has_perm(pname):

            return

        p = Permission.objects.get(codename=pname,

                                   content_type=get_content_type())

        self.user_permissions.remove(p)

    def add_group(self, gname):

        group, _ = Group.objects.get_or_create(name=gname)

        self.groups.add(group)

    def is_accepted(self):

        return self.moderated and not self.is_rejected

    def is_project_admin(self, application_id=None):

        return self.uuid in astakos_settings.PROJECT_ADMINS

    @property

    def invitation(self):

        try:

            return Invitation.objects.get(username=self.email)

        except Invitation.DoesNotExist:

            return None

    @property

    def policies(self):

        return self.astakosuserquota_set.select_related().all()

    def get_resource_policy(self, resource):

        return AstakosUserQuota.objects.select_related("resource").\

            get(user=self, resource__name=resource)

    def fix_username(self):

        self.username = self.email.lower()

    def set_email(self, email):

        self.email = email

        self.fix_username()

    def save(self, update_timestamps=True, **kwargs):

        if update_timestamps:

            self.updated = datetime.now()

        super(AstakosUser, self).save(**kwargs)

    def renew_verification_code(self):

        self.verification_code = str(uuid.uuid4())

        logger.info("Verification code renewed for %s" % self.log_display)

    def renew_token(self, flush_sessions=False, current_key=None):

        for i in range(10):

            new_token = generate_token()

            count = AstakosUser.objects.filter(auth_token=new_token).count()

            if count == 0:

                break

            continue

        else:

            raise ValueError('Could not generate a token')

        self.auth_token = new_token

        self.auth_token_created = datetime.now()

        self.auth_token_expires = self.auth_token_created + \

            timedelta(hours=astakos_settings.AUTH_TOKEN_DURATION)

        if flush_sessions:

            self.flush_sessions(current_key)

        self.delete_online_access_tokens()

        msg = 'Token renewed for %s'

        logger.log(astakos_settings.LOGGING_LEVEL, msg, self.log_display)

    def token_expired(self):

        return self.auth_token_expires < datetime.now()

    def flush_sessions(self, current_key=None):

        q = self.sessions

        if current_key:

            q = q.exclude(session_key=current_key)

        keys = q.values_list('session_key', flat=True)

        if keys:

            msg = 'Flushing sessions: %s'

            logger.log(astakos_settings.LOGGING_LEVEL, msg, ','.join(keys))

        engine = import_module(settings.SESSION_ENGINE)

        for k in keys:

            s = engine.SessionStore(k)

            s.flush()

    def __unicode__(self):

        return '%s (%s)' % (self.realname, self.email)

    def conflicting_email(self):

        q = AstakosUser.objects.exclude(username=self.username)

        q = q.filter(email__iexact=self.email)

        if q.count() != 0:

            return True

        return False

    def email_change_is_pending(self):

        return self.emailchanges.count() > 0

    @property

    def status_display(self):

        msg = ""

        if self.is_active:

            msg = "Accepted/Active"

        if self.is_rejected:

            msg = "Rejected"

            if self.rejected_reason:

                msg += " (%s)" % self.rejected_reason

        if not self.email_verified:

            msg = "Pending email verification"

        if not self.moderated:

            msg = "Pending moderation"

        if not self.is_active and self.email_verified:

            msg = "Accepted/Inactive"

            if self.deactivated_reason:

                msg += " (%s)" % (self.deactivated_reason)

        if self.moderated and not self.is_rejected:

            if self.accepted_policy == 'manual':

                msg += " (manually accepted)"

            else:

                msg += " (accepted policy: %s)" % \

                    self.accepted_policy

        return msg

    @property

    def signed_terms(self):

        return self.has_signed_terms

    def set_invitations_level(self):

        """

        Update user invitation level

        """

        level = self.invitation.inviter.level + 1

        self.level = level

        self.invitations = astakos_settings.INVITATIONS_PER_LEVEL.get(level, 0)

    def can_change_password(self):

        return self.has_auth_provider('local', auth_backend='astakos')

    def can_change_email(self):

        if not self.has_auth_provider('local'):

            return True

        local = self.get_auth_provider('local')._instance

        return local.auth_backend == 'astakos'

    # Auth providers related methods

    def get_auth_provider(self, module=None, identifier=None, **filters):

        if not module:

            return self.auth_providers.active()[0].settings

        params = {'module': module}

        if identifier:

            params['identifier'] = identifier

        params.update(filters)

        return self.auth_providers.active().get(**params).settings

    def has_auth_provider(self, provider, **kwargs):

        return bool(self.auth_providers.active().filter(module=provider,

                                                        **kwargs).count())

    def get_required_providers(self, **kwargs):

        return auth.REQUIRED_PROVIDERS.keys()

    def missing_required_providers(self):

        required = self.get_required_providers()

        missing = []

        for provider in required:

            if not self.has_auth_provider(provider):

                missing.append(auth.get_provider(provider, self))

        return missing

    def get_available_auth_providers(self, **filters):

        """

        Returns a list of providers available for add by the user.

        """

        modules = astakos_settings.IM_MODULES

        providers = []

        for p in modules:

            providers.append(auth.get_provider(p, self))

        available = []

        for p in providers:

            if p.get_add_policy:

                available.append(p)

        return available

    def get_disabled_auth_providers(self, **filters):

        providers = self.get_auth_providers(**filters)

        disabled = []

        for p in providers:

            if not p.get_login_policy:

                disabled.append(p)

        return disabled

    def get_enabled_auth_providers(self, **filters):

        providers = self.get_auth_providers(**filters)

        enabled = []

        for p in providers:

            if p.get_login_policy:

                enabled.append(p)

        return enabled

    def get_auth_providers(self, **filters):

        providers = []

        for provider in self.auth_providers.active(**filters):

            if provider.settings.module_enabled:

                providers.append(provider.settings)

        modules = astakos_settings.IM_MODULES

        def key(p):

            if not p.module in modules:

                return 100

            return modules.index(p.module)

        providers = sorted(providers, key=key)

        return providers

    # URL methods

    @property

    def auth_providers_display(self):

        return ",".join(["%s:%s" % (p.module, p.get_username_msg) for p in

                         self.get_enabled_auth_providers()])

    def add_auth_provider(self, module='local', identifier=None, **params):

        provider = auth.get_provider(module, self, identifier, **params)

        provider.add_to_user()

    def get_resend_activation_url(self):

        return reverse('send_activation', kwargs={'user_id': self.pk})

    def get_activation_url(self, nxt=False):

        url = "%s?auth=%s" % (reverse('astakos.im.views.activate'),

                              quote(self.verification_code))

        if nxt:

            url += "&next=%s" % quote(nxt)

        return url

    def get_password_reset_url(self, token_generator=default_token_generator):

        return reverse('astakos.im.views.target.local.password_reset_confirm',

                       kwargs={'uidb36': int_to_base36(self.id),

                               'token': token_generator.make_token(self)})

    def get_inactive_message(self, provider_module, identifier=None):

        try:

            provider = self.get_auth_provider(provider_module, identifier)

        except AstakosUserAuthProvider.DoesNotExist:

            provider = auth.get_provider(provider_module, self)

        msg_extra = ''

        message = ''

        msg_inactive = provider.get_account_inactive_msg

        msg_pending = provider.get_pending_activation_msg

        msg_pending_help = _(astakos_messages.ACCOUNT_PENDING_ACTIVATION_HELP)

        #msg_resend_prompt = _(astakos_messages.ACCOUNT_RESEND_ACTIVATION)

        msg_pending_mod = provider.get_pending_moderation_msg

        msg_rejected = _(astakos_messages.ACCOUNT_REJECTED)

        msg_resend = _(astakos_messages.ACCOUNT_RESEND_ACTIVATION)

        if not self.email_verified:

            message = msg_pending

            url = self.get_resend_activation_url()

            msg_extra = msg_pending_help + \

                u' ' + \

                '<a href="%s">%s?</a>' % (url, msg_resend)

        else:

            if not self.moderated:

                message = msg_pending_mod

            else: