| Line 1... |
Line 1... |
| 1 |
#! /usr/bin/perl
|
1 |
#! /usr/bin/perl
|
| 2 |
########################################################################
|
2 |
########################################################################
|
| 3 |
# Copyright (C) 1998-2011 Vix Technology, All rights reserved
|
3 |
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
|
| 4 |
#
|
4 |
#
|
| 5 |
# Module name : blatPopulate
|
5 |
# Module name : blatPopulate
|
| 6 |
# Compiler(s) : Perl
|
6 |
# Compiler(s) : Perl
|
| 7 |
#
|
7 |
#
|
| 8 |
# Description : Populate the blat tags directories with RM data
|
8 |
# Description : Populate the blat tags directories with RM data
|
| Line 199... |
Line 199... |
| 199 |
}
|
199 |
}
|
| 200 |
if ( $data )
|
200 |
if ( $data )
|
| 201 |
{
|
201 |
{
|
| 202 |
if ( ( exists $data->{allArchive} && $data->{allArchive} )
|
202 |
if ( ( exists $data->{allArchive} && $data->{allArchive} )
|
| 203 |
|| ( exists $data->{allProjects} && $data->{allProjects} )
|
203 |
|| ( exists $data->{allProjects} && $data->{allProjects} )
|
| - |
|
204 |
|| ( exists $data->{allNewPkgs} && $data->{allNewPkgs} )
|
| 204 |
|| exists $data->{projects}{$pkginfo{proj_id}}
|
205 |
|| exists $data->{projects}{$pkginfo{proj_id}}
|
| 205 |
|| exists $data->{releases}{$pkginfo{rtag_id}}
|
206 |
|| exists $data->{releases}{$pkginfo{rtag_id}}
|
| 206 |
|| exists $data->{pkg}{$pkginfo{pkg_name}} )
|
207 |
|| exists $data->{pkg}{$pkginfo{pkg_name}} )
|
| 207 |
{
|
208 |
{
|
| 208 |
Utils::TouchFile($conf, catfile( $opt_tagdir, $tag, $pkginfo{pkg_name} . '::' . $pkginfo{pkg_version} ));
|
209 |
Utils::TouchFile($conf, catfile( $opt_tagdir, $tag, $pkginfo{pkg_name} . '::' . $pkginfo{pkg_version} ));
|