Subversion Repositories DevTools

Rev

Rev 7266 | Rev 7326 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7266 Rev 7295
Line 1978... Line 1978...
1978
 
1978
 
1979
    #
1979
    #
1980
    #   Set the initial filter list
1980
    #   Set the initial filter list
1981
    #   This will have been parsed by JATS before we get here
1981
    #   This will have been parsed by JATS before we get here
1982
    #
1982
    #
1983
    @filter_list = split( /[,\s]+/, join(',', $GBE_BUILDFILTER));
1983
    UniquePush (\@filter_list, split( /[,\s]+/, join(',', $GBE_BUILDFILTER)));
1984
 
1984
 
1985
    #
1985
    #
1986
    #   Extract options for the jats extract utility
1986
    #   Extract options for the jats extract utility
1987
    #
1987
    #
1988
    foreach ( @cmd_opts )
1988
    foreach ( @cmd_opts )
Line 2005... Line 2005...
2005
    }
2005
    }
2006
 
2006
 
2007
    #
2007
    #
2008
    #   Display the results to the user
2008
    #   Display the results to the user
2009
    #
2009
    #
-
 
2010
    @filter_list = sort @filter_list;
2010
    Message('BuildFilter:', @filter_list);
2011
    Message('BuildFilter:', @filter_list);
2011
 
2012
 
2012
    #
2013
    #
2013
    #   Write out a new file
2014
    #   Write out a new file
2014
    #
2015
    #
2015
    if ($modified)
2016
    if ($modified)
2016
    {
2017
    {
-
 
2018
        Error ("Command must be executed from within a Sandbox") unless ( $GBE_SANDBOX );
2017
        FileCreate($filterFile, @filter_list);
2019
        FileCreate($filterFile, @filter_list);
2018
    }
2020
    }
2019
 
2021
 
2020
    #
2022
    #
2021
    # This command does not return
2023
    # This command does not return