Subversion Repositories DevTools

Rev

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

Rev 2450 Rev 2931
Line 113... Line 113...
113 
    Message ("Check Complete OK");
 113 
    Message ("Check Complete OK");
114 
    exit 0;
 114 
    exit 0;
115 
}
 115 
}
116 
 
 116 
 
117 
 
 117 
 
118 
foreach my $packageName ( $opt_package, @ARGV )
 118 
foreach my $packagePath ( $opt_package, @ARGV )
119 
{
 119 
{
120 
    next unless ( defined $packageName );
 120 
    next unless ( defined $packagePath );
- 
 
 121 
    my $packageName = $packagePath;
121 
    $packageName =~ s~\.data$~~;
 122 
    $packageName =~ s~\.data$~~;
- 
 
 123 
    $packageName =~ s~.*/~~;
122 
    getVcsData($packageName) if ( $opt_report <= 1 );
 124 
    getVcsData($packageName) if ( $opt_report <= 1 );
123 
    readPackageData($packageName);
 125 
    readPackageData($packagePath);
124 
}
 126 
}
125 
exit 0;
 127 
exit 0;
126 
 
 128 
 
127 
#-------------------------------------------------------------------------------
 129 
#-------------------------------------------------------------------------------
128 
# Function        : getVcsData
 130 
# Function        : getVcsData
Line 153... Line 155...
153 
#
 155 
#
154 
our %ScmVersions;
 156 
our %ScmVersions;
155 
sub readPackageData
 157 
sub readPackageData
156 
{
 158 
{
157 
    my ($pname) = @_;
 159 
    my ($pname) = @_;
- 
 
 160 
    $pname =~ s~\.data$~~;
158 
    my $fname = $pname . '.data';
 161 
    my $fname = $pname . '.data';
159 
    my @updateList;
 162 
    my @updateList;
160 
    Verbose2 ('Reading Package Data: ' . $fname);
 163 
    Verbose2 ('Reading Package Data: ' . $fname);
161 
    Error "Cannot locate $fname" unless ( -f $fname );
 164 
    Error "Cannot locate $fname" unless ( -f $fname );
162 
    %ScmVersions = ();
 165 
    %ScmVersions = ();