Subversion Repositories DevTools

    #

    #   Check sanity of the users source directory - if importing

    #   The following directories are not allowed

    #       .svn - attempting to import an svn workspace

    #       tags, trunk, branches - attempt to import directory with reserved names

    #       .git, .hg, .cvs  - other  version control systems

    #

    if ( $import_target )

    {

        my $search = JatsLocateFiles->new("--Recurse=1",

                                           "--DirsOnly", 

                                           "--FullPath",

                                           "--FilterIn=.svn",

                                           "--FilterIn=.git",

                                           "--FilterIn=.hg",

                                           "--FilterIn=.cvs",

                                           "--FilterIn=tags",

                                           "--FilterIn=trunk",

                                           "--FilterIn=branches",

                                           );

        my @badDirs = $search->search($opt{'import'});

        if (@badDirs)

        {

            Error("SvnCreatePackage: Invalid directories found within imported source tree:", @badDirs);

        }

    }