#!/usr/local/bin/perl -w
use strict;
use Env qw(COMPUTERNAME);
use Tie::File;
use File::Copy;
my(@cvscommits) = "";
my($cvscommits) ="";
my($buildresultserver) = "\\\\Cvs3b\\stuff\\";
my($htmloldfile) = "Verification_Builds1.html";
print "Going to server!\n";
chdir $buildresultserver or die "Cannot change to cvs3b $!\n";
print "going to tie the file\n";
tie @cvscommits, 'Tie::File', "$htmloldfile", or die "Cannot open $htmloldfile $!\n";
for (@cvscommits) {
if (/| PC Number<\/th> | Cores<\/th> | Date<\/th> | Customer<\/th> | Target<\/th> | C\/O Time<\/th> | Build Time<\/th> | Status<\/th> | Changes from Last Build<\/th> | /) {
print "Whee found it \n";
$_ .= "| $COMPUTERNAME | $processors | $dirtime | $cust | $target | $cotime | $buildtime | $result |
@cvscommits
\n";
last;
}}
untie @cvscommits;
####
BUILD ENVIRONMENT INFORMATION
Daily Verification
| PC Number | Cores | Date | Customer | Target | C/O Time | Build Time | Status | Changes from Last Build |