Hi Helge,

Please review the following script. This generates
testautomation/global/version.txt.
I'll checkout OOO300_m13, DEV300_m38 and later milestones with the following 
one.
----------------------------------------------------------------------------
sub version_info {
$versioninfo="solenv/inc/minor.mk";
$versioninfo2="instsetoo_native/util/openoffice.lst";
$versioninfo3="testautomation/global/version.txt";

open (VINFO,"<$versioninfo") || die "Can't open file $versioninfo !\n";
$pattern1="LAST_MINOR";
$pattern2="SOURCEVERSION";
$milestone="";
$current="";
while(<VINFO>)
{
  if(/$pattern1/) {
    chop;
    split('=');
    [EMAIL PROTECTED];
  }
  if(/$pattern2/) {
    chop;
    split('=');
    [EMAIL PROTECTED];
  }
}
close (VINFO);
open (VINFO2,"<$versioninfo2") || die "Can't open file $versioninfo2 !\n";
$pattern3="OOOPACKAGEVERSION";
$ooopackageversion="";
while(<VINFO2>)
{
  if(/$pattern3/) {
    chop;
    split(' ');
    [EMAIL PROTECTED];
  }
}
close (VINFO2);

open (VINFO3,">$versioninfo3") || die "Can't open file $versioninfo3 !\n";
print VINFO3 "[EnvironmentVersion]\n";
print VINFO3 "Current=$current\n";
print VINFO3 "Displayname=$ooopackageversion\n";
print VINFO3 "Minor=$milestone\n";
close (VINFO3);
}
----------------------------------------------------------------------------

From: Helge Delfs <[EMAIL PROTECTED]>
Subject: Re: [qa-dev] [Automation] Detecting version of autotests scripts
Date: Wed, 03 Dec 2008 07:55:27 +0100

> Hi Maho,
> 
> Am 03.12.08 00:00, Maho NAKATA schrieb:
> > OOO300m36 does not exist. may be a typo of DEV300m36?
> 
> Of course, thank you for the hint !
> 
> > So - what I contribute to QA project
> > is that: extract /solenv/inc/minor.mk
> > /solenv/inc/minor.mk 
> > RSCVERSION=300
> > RSCREVISION=300m35(Build:9367)
> > BUILD=9367
> > LAST_MINOR=m35
> > SOURCEVERSION=DEV300
> > and put the info to global/version.txt.
> > 
> > Still RSCVERSION=300 in DEV300_m36 ...
> 
> That would be great....

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to