Subversion Repositories DevTools

Rev

Rev 7300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7300 Rev 7321
Line 32... Line 32...
32 
use DBI;
 32 
use DBI;
33 
use Getopt::Long;
 33 
use Getopt::Long;
34 
use Pod::Usage;                             # required for help support
 34 
use Pod::Usage;                             # required for help support
35 
my $RM_DB;
 35 
my $RM_DB;
36 
 
 36 
 
37 
#my $opt_repo = 'https://auperasvn01.aupera.erggroup.com/svn/COTS';
 37 
#my $opt_repo = 'https://auawsasvn001.vix.local/svn/COTS';
38 
my $opt_repo_base = 'https://auperasvn01.aupera.erggroup.com/svn/';
 38 
my $opt_repo_base = 'https://auawsasvn001.vix.local/svn/';
39 
my $opt_repo;
 39 
my $opt_repo;
40 
my $opt_package;
 40 
my $opt_package;
41 
my $opt_resume;
 41 
my $opt_resume;
42 
my $opt_flat;
 42 
my $opt_flat;
43 
my $opt_test;
 43 
my $opt_test;