Subversion Repositories DevTools

Rev

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

Rev 396 Rev 404
Line 70... Line 70...
70 
pod2usage(-verbose => 1)  if ($opt_help == 2 );
 70 
pod2usage(-verbose => 1)  if ($opt_help == 2 );
71 
pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));
 71 
pod2usage(-verbose => 2)  if ($opt_manual || ($opt_help > 2));
72 
 
 72 
 
73 
 
 73 
 
74 
ErrorConfig( 'name'    =>'CC2SVN_PROCDATA' );
 74 
ErrorConfig( 'name'    =>'CC2SVN_PROCDATA' );
75 
inputData();
 75 
readInputData();
76 
 
 76 
 
77 
#
 77 
#
78 
#   Report Releases that use a package
 78 
#   Report Releases that use a package
79 
#
 79 
#
80 
if ( $opt_usedby )
 80 
if ( $opt_usedby )
Line 1249... Line 1249...
1249 
#    DebugDumpData("VersionTags", \%VersionTags);
 1249 
#    DebugDumpData("VersionTags", \%VersionTags);
1250 
#    DebugDumpData("Vobs", \%Vobs);
 1250 
#    DebugDumpData("Vobs", \%Vobs);
1251 
    #print "VOBS: ", join ("\n", sort keys %Vobs), "\n";
 1251 
    #print "VOBS: ", join ("\n", sort keys %Vobs), "\n";
1252 
 
 1252 
 
1253 
#-------------------------------------------------------------------------------
 1253 
#-------------------------------------------------------------------------------
1254 
# Function        : inputData
 1254 
# Function        : readInputData
1255 
#
 1255 
#
1256 
# Description     : Write out data in a form to allow post processing
 1256 
# Description     : Write out data in a form to allow post processing
1257 
#
 1257 
#
1258 
# Inputs          :
1258 
# Inputs          :
1259 
#
 1259 
#
1260 
# Returns         :
1260 
# Returns         :
1261 
#
 1261 
#
1262 
sub inputData
 1262 
sub readInputData
1263 
{
 1263 
{
1264 
 
 1264 
 
1265 
    my $fname = 'cc2svn.raw.txt';
 1265 
    my $fname = 'cc2svn.raw.txt';
1266 
    Message ("Reading: $fname");
 1266 
    Message ("Reading: $fname");
1267 
    Error "Cannot locate $fname" unless ( -f $fname );
 1267 
    Error "Cannot locate $fname" unless ( -f $fname );