Subversion Repositories DevTools

Rev

Rev 1044 | Rev 7387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1044 Rev 4457
Line 117... Line 117...
117
}
117
}
118
$logger->verbose2("Args: @args");
118
$logger->verbose2("Args: @args");
119
 
119
 
120
#
120
#
121
#   Porcess command line
121
#   Porcess command line
122
#   Aarguments are of the form aaaa=bbbbm
122
#   Arguments are of the form aaaa=bbbbm
123
#
123
#
124
foreach ( @ARGV )
124
foreach ( @ARGV )
125
{
125
{
126
    next unless ( m~(.+)=(.+)~ );
126
    next unless ( m~(.+)=(.+)~ );
127
    {
127
    {
Line 199... Line 199...
199
        {
199
        {
200
            $logger->verbose3 ("Config: " . Dumper($data));
200
            $logger->verbose3 ("Config: " . Dumper($data));
201
        }
201
        }
202
        if ( $data )
202
        if ( $data )
203
        {
203
        {
-
 
204
            if (   ( exists $data->{allArchive} && $data->{allArchive} )
-
 
205
                || ( exists $data->{allProjects} && $data->{allProjects} ) 
204
            if (   exists $data->{projects}{$pkginfo{proj_id}}
206
                ||   exists $data->{projects}{$pkginfo{proj_id}}
205
                || exists $data->{releases}{$pkginfo{rtag_id}}
207
                ||   exists $data->{releases}{$pkginfo{rtag_id}}
206
                || exists $data->{pkg}{$pkginfo{pkg_name}} )
208
                ||   exists $data->{pkg}{$pkginfo{pkg_name}} )
207
                {
209
                {
208
                    TouchFile( catfile( $opt_tagdir, $tag, $pkginfo{pkg_name} . '::' . $pkginfo{pkg_version} ));
210
                    TouchFile( catfile( $opt_tagdir, $tag, $pkginfo{pkg_name} . '::' . $pkginfo{pkg_version} ));
209
                }
211
                }
210
        }
212
        }
211
    }
213
    }