Subversion Repositories DevTools

#                 Intended to replace all similar lumps of code

#                 Intended to replace all similar lumps of code

#                 within JATS

#                 within JATS

#

#

#                 Intended to make life simple

#                 Intended to make life simple

#

#

#                 of the work is similar

#                 of the work is similar

#

#

# Examples:

# Examples:

#               CopyDir ( 'aaa', 'bbb' );

#               CopyDir ( 'aaa', 'bbb' );

#               Simply copy the aaa dir-tree to 'bbb'

#               Simply copy the aaa dir-tree to 'bbb'

#                             'IgnoreDirs' => ['.svn'],

#                             'IgnoreDirs' => ['.svn'],

#                             });

#                             });

#

#

#              Complex copy of the 'aaa' tree to 'bbb'

#              Complex copy of the 'aaa' tree to 'bbb'

#               Do my own error processing

#               Do my own error processing

#               Examine each file/dir being processed

#               Examine each file/dir being processed

#               Do my own copy ( Expert)

#               Do my own copy ( Expert)

#               Notify me if an existing file is present

#               Notify me if an existing file is present

#               Do not copy files called a2 and build.pl

#               Do not copy files called a2 and build.pl

#               Do not copy the .svn subdir

#               Do not copy the .svn subdir

#                   $dst_dir                - Dest dir

#                   $dst_dir                - Dest dir

#                   $opt                    - An Array or Hash Ref of options

#                   $opt                    - An Array or Hash Ref of options

#                    Flags that affect operation

#                    Flags that affect operation

#                       DeleteFirst     - True: Delete target directory first

#                       DeleteFirst     - True: Delete target directory first

#                       NoSubDirs       - True: Only source directory files

#                       NoSubDirs       - True: Only source directory files

#                       Flatten         - True: Flatten output dir

#                       Flatten         - True: Flatten output dir

#                       Log             - True: Log activity

#                       Log             - True: Log activity

#                       EmptyDirs       - True: Create empty dirs

#                       EmptyDirs       - True: Create empty dirs

#                       IgnoreDots      - True: Ignore files and dirs starting with .

#                       IgnoreDots      - True: Ignore files and dirs starting with .

#                       NoOverwrite     - True: Do not replace file in target

#                       NoOverwrite     - True: Do not replace file in target

#                       DuplicateLinks  - True: Duplicate, don't copy links

#                       DuplicateLinks  - True: Duplicate, don't copy links

#                       SymlinkFiles    - True: Create symlinks if possible

#                       SymlinkFiles    - True: Create symlinks if possible

#                       ReadOnlyFiles   - True: Make files Read Only

#                       ReadOnlyFiles   - True: Make files Read Only

#                       KeepSrcTail     - True: Keeps the tail of the source dir

#                       KeepSrcTail     - True: Keeps the tail of the source dir

#                     User callback functions

#                     User callback functions

#                       Expert          - Function to do the work

#                       Expert          - Function to do the work

#                       Examine         - Function to examine each entry

#                       Examine         - Function to examine each entry

#                                         If True, then proceed

#                                         If True, then proceed

#                       Exists          - Function called if target file exists

#                       Exists          - Function called if target file exists

#                       IgnoreDirsRE    - An array of subdirs to ignore (RE)

#                       IgnoreDirsRE    - An array of subdirs to ignore (RE)

#                       Match           - An array of files to match

#                       Match           - An array of files to match

#                       MatchRE         - An array of file to match (RE)

#                       MatchRE         - An array of file to match (RE)

#                       MatchDirs       - An array of top level dirs to match

#                       MatchDirs       - An array of top level dirs to match

#                       MatchDirsRE     - An array of top level dirs to match (RE)

#                       MatchDirsRE     - An array of top level dirs to match (RE)

#                     Misc

#                     Misc

#                       Stats           - A ref to a hash of stats

#                       Stats           - A ref to a hash of stats

#                       FileList        - Ref to array of target files

#                       FileList        - Ref to array of target files

#                       UserData        - Item passed through to call backs

#                       UserData        - Item passed through to call backs

#                                         for the users own purposes.

#                                         for the users own purposes.

#

#

#                   File and dir match/ignore operations come in two flavours

#                   File and dir match/ignore operations come in two flavours

#                   Simple : Use of simple wildcards: ?,* and [...] constructs

#                   Simple : Use of simple wildcards: ?,* and [...] constructs

    #

    #

    $dst_dir .= '/' . StripDir($src_dir)

    $dst_dir .= '/' . StripDir($src_dir)

        if ( $opt->{'KeepSrcTail'} );

        if ( $opt->{'KeepSrcTail'} );

    #

    #

    #   Insert some default options

    #   Insert some default options

    #

    #

    $opt->{'SrcDir'} = $src_dir;

    $opt->{'SrcDir'} = $src_dir;

    $opt->{'DstDir'} = $dst_dir;

    $opt->{'DstDir'} = $dst_dir;

            elsif ( -d _ )

            elsif ( -d _ )

            {

            {

                #

                #

                #   Only process the top-level directory

                #   Only process the top-level directory

                #

                #

                #

                #

                #   Match against wanted items

                #   Match against wanted items

                #

                #

                $opt->{'Stats'}{'examinedDirs'}++;

                $opt->{'Stats'}{'examinedDirs'}++;

                #

                #

                #   Add to the list of future dirs to process

                #   Add to the list of future dirs to process

                #   Place on end to ensure depth first

                #   Place on end to ensure depth first

                #   Algorithm requires dirname has a trailing /

                #   Algorithm requires dirname has a trailing /

                #

                #

                #

                #

                #   Create flat output dir - no more processing

                #   Create flat output dir - no more processing

                #

                #

                next if ( $opt->{'Flatten'} );

                next if ( $opt->{'Flatten'} );

my %ValidArgs = (

my %ValidArgs = (

    'DeleteFirst'     => Scalar,

    'DeleteFirst'     => Scalar,

    'DuplicateLinks'  => Scalar,

    'DuplicateLinks'  => Scalar,

    'NoSubDirs'       => Scalar | Match,

    'NoSubDirs'       => Scalar | Match,

    'Flatten'         => Scalar,

    'Flatten'         => Scalar,

    'Logger'          => CodeRef,

    'Logger'          => CodeRef,

    'EmptyDirs'       => Scalar,

    'EmptyDirs'       => Scalar,

    'IgnoreDots'      => Scalar | Match,

    'IgnoreDots'      => Scalar | Match,

    'Expert'          => CodeRef,

    'Expert'          => CodeRef,

    'UserData'        => 0,

    'UserData'        => 0,

    'SymlinkFiles'    => Scalar,

    'SymlinkFiles'    => Scalar,

    'ReadOnlyFiles'   => Scalar,

    'ReadOnlyFiles'   => Scalar,

    'KeepSrcTail'     => Scalar,

    'KeepSrcTail'     => Scalar,

    'FileList'        => ArrayRef,

    'FileList'        => ArrayRef,

    'SkipTLF'         => Scalar,

    'SkipTLF'         => Scalar,

);

);

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

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