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 
    }