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