Subversion Repositories DevTools

#! perl
########################################################################
# Copyright (C) 2006 ERG Limited, All rights reserved
#
# Module name   : jats.sh
# Module type   : Makefile system
# Compiler(s)   : n/a
# Environment(s): jats
#
# Description:
#
# Usage:
#
# Version   Who      Date        Description
#
#......................................................................#

require 5.006_001;
use strict;
use warnings;

use JatsError;
use JatsLocateFiles;

my $search;

    $search = JatsLocateFiles::new('JatsLocateFiles',
                                    'Recurse',
                                    'FullPath',
                                    'DirListOnly',
                                    );

#    $search->filter_in( '*.pm' );
#    $search->filter_in( '*_rm_*' );
#    $search->filter_in( '*_jats_*' );
    $search->filter_out( '*_DummY_*' );
#    $search->filter_out( '*0*' );
    $search->search( '..' );
    my @array = $search->results();
    my $count = $search->results();
    Message "Count: $count\n";
    Message "Data:", @array ;
    Message "FilterIn:", @{$search->filter_in()};
    Message "FilterOut:", @{$search->filter_out()};
    Message "base_dir:" . $search->base_dir();
    Message "has_filter:" . $search->has_filter();


    Message "Test2" . "-" x 80;
    $search = JatsLocateFiles::new('JatsLocateFiles',
                                    '--Recurse',
                                    '--FullPath',
                                    '--DirListOnly',
                                    );
    
    $search->option('--Recurse=1') ||Warning ("Bad Option");
    $search->option('--FilterIn=*.pm') || Warning ("Bad Option");
    $search->option('--FilterOut=*.dummy') || Warning ("Bad Option");
    $search->option('--FileListOnly') || Warning ("Bad Option");
    $search->option('--FullPath') || Warning ("Bad Option");
    $search->option('--Dir=..') || Warning ("Bad Option");
    $search->search( );
    @array = $search->results();
    $count = $search->results();
    Message "Count: $count\n";
    Message "Data:", @array ;
    Message "FilterIn:", @{$search->filter_in()};
    Message "FilterOut:", @{$search->filter_out()};
    Message "base_dir:" . $search->base_dir();
    Message "has_filter:" . $search->has_filter();