#!/bin/bash

#

# cli_checkPathComponent.sh -- This function checks parts/components

# from repository paths. Generally, the path information is passed to

# the function's first positional argument and the part/component we

# want to check is passed to the function's second positional

# argument. If the second argument is not passed, then the first

# argument is assumed to be the part/component we want to check, and

# the action value (ACTIONVAL) variable is used instead as source path

# information.

#

# Copyright (C) 2009-2011 Alain Reguera Delgado

# 

# This program is free software; you can redistribute it and/or

# modify it under the terms of the GNU General Public License as

# published by the Free Software Foundation; either version 2 of the

# License, or (at your option) any later version.

# 

# This program is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

# General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307

# USA.

# 

# ----------------------------------------------------------------------

# $Id$

# ----------------------------------------------------------------------

function cli_checkPathComponent {

    local -a PATTERNS

    local LOCATION=''

    local OPTION=''

    local MESSAGE=''

    # Define location which we retrive information from.

    if [[ "$#" -eq 1 ]];then

        LOCATION="$ACTIONVAL"

        OPTION="$1"

    elif [[ "$#" -eq 2 ]];then

        LOCATION="$1"

        OPTION="$2"

    else

       cli_printMessage "cli_checkPathComponent: `gettext "Invalid arguments."`" 'AsErrorLine'

       cli_printMessage "$(caller)" 'AsToKnowMoreLine' 

    fi

    # Define patterns.

    PATTERNS[0]="^.+/$(cli_getPathComponent "${LOCATION}" '--release-pattern')/.*$"

    PATTERNS[1]=$(cli_getPathComponent "${LOCATION}" '--release-architecture')

    PATTERNS[2]=$(cli_getPathComponent "${LOCATION}" '--release-theme')

    # Identify which part of the release we want to output.

    case "$OPTION" in

        '--release' )

            if [[ $LOCATION =~ ${PATTERN[0]} ]];then

                MESSAGE="`eval_gettext "The release \\\`\\\$LOCATION' is not valid."`"

            fi

            ;;

        '--architecture' )

            if [[ $LOCATION =~ ${PATTERN[1]} ]];then

                MESSAGE="`eval_gettext "The architecture \\\`\\\$LOCATION' is not valid."`"

            fi

            ;;

        '--theme' )

            if [[ $LOCATION =~ ${PATTERN[2]} ]];then

                MESSAGE="`eval_gettext "The theme \\\`\\\$LOCATION' is not valid."`"

            fi

            ;;

        '--default' | * )

            if [[ $LOCATION == '' ]] \

                || [[ $LOCATION =~ '(\.\.(/)?)' ]] \

                || [[ ! $LOCATION =~ '^[A-Za-z0-9\.:/_-]+$' ]]; then 

                MESSAGE="`eval_gettext "The value \\\`\\\$LOCATION' is not valid."`"

            fi

            ;;

    esac

    # Output message.

    if [[ $MESSAGE != '' ]];then

        cli_printMessage "$MESSAGE" 'AsErrorLine'

        cli_printMessage "$(caller)" "AsToKnowMoreLine"

    fi

}