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 
    {