Subversion Repositories DevTools

Rev

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

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