Subversion Repositories DevTools

Rev

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

Rev 3423 Rev 4011
Line 30... Line 30...
30
use JatsSystem;
30
use JatsSystem;
31
 
31
 
32
#
32
#
33
#   Global data
33
#   Global data
34
#
34
#
35
my $logbase = '/net/auperaunx26/export/home/releasem/logs/';
35
my $logbase = '/home/releasem/logs/';
36
my @logData;
36
my @logData;
37
my %RevData;
37
my %RevData;
38
my $RM_DB;
38
my $RM_DB;
39
my $logfile;
39
my $logfile;
40
my $datafile;
40
my $datafile;
41
my $dataname;
41
my $dataname;
42
my @mailList = (qw (
42
my @mailList = (qw (
43
    David.Purdie@vixtechnology.com
43
    David.Purdie@vixtechnology.com
44
    John.Rowling@vixtechnology.com
-
 
45
    ));
44
    ));
46
my @alsoMail = (qw(John.Rowling@vixtechnology.com));
45
my @alsoMail = (qw(John.Rowling@vixtechnology.com));
47
 
46
 
48
#-------------------------------------------------------------------------------
47
#-------------------------------------------------------------------------------
49
# Function        : Main
48
# Function        : Main
Line 184... Line 183...
184
            substr( $_, $mb, $me - $mb, '');
183
            substr( $_, $mb, $me - $mb, '');
185
        }
184
        }
186
        push @logData, \%data;
185
        push @logData, \%data;
187
    }
186
    }
188
 
187
 
189
    #DebugDumpData("logData", \@logData );
-
 
190
 
-
 
191
    #
188
    #
192
    #   Query the release manager database for info
189
    #   Query the release manager database for info
193
    #
190
    #
194
    foreach my $entry ( @logData )
191
    foreach my $entry ( @logData )
195
    {
192
    {