From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RSCHUPP / VCS-CMSynergy-1.52 / examples / hierarchy_project_members 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

              
#!/usr/bin/perl -w
=head1 NAME
hierarchy_project_members - list all sub projects of a given project
=head1 SYNOPSIS
hierarchy_project_members [options] top_proj_vers
  top_proj_vers    project spec, either in the form "proj_vers"
                   or as four part objectname
  Common options:
  -D PATH | --database PATH       database path
  -H HOST | --host HOST           engine host
  -U NAME | --user NAME           user name
  -P STRING | --password STRING   user's password
  --ui_database_dir PATH          path to copy database information to
=head1 AUTHORS
Roderich Schupp, argumentum GmbH <schupp@argumentum.de>
=cut
use VCS::CMSynergy 1.29 qw(:tied_objects :cached_attributes);
use VCS::CMSynergy::Helper; 
use Pod::Usage;
use strict;
my $ccm_options = VCS::CMSynergy::Helper::GetOptions or pod2usage(2);
@ARGV == 1 or pod2usage(2);
my ($top_proj_vers) = @ARGV;
my $ccm = VCS::CMSynergy->new(
    %$ccm_options,
    PrintError => 0,
    RaiseError => 1,
);
foreach my $member (
    @{ $ccm->project_object($top_proj_vers)
             ->hierarchy_project_members(depth => qw(status wa_path)) })
{
    print "$member <$member->{status}> $member->{wa_path}\n";
}
exit(0);