1
0
mirror of synced 2026-02-12 02:17:12 +00:00

2005-12-25 20:20:06 by steve

Version updating and reporting works correctly.  D'oh.
This commit is contained in:
steve
2005-12-25 20:20:06 +00:00
parent 60619123d1
commit a658ead45c
6 changed files with 22 additions and 22 deletions

View File

@@ -5,7 +5,7 @@
# --
# http://www.steve.org.uk/
#
# $Id: Makefile,v 1.29 2005-12-25 20:15:47 steve Exp $
# $Id: Makefile,v 1.30 2005-12-25 20:20:06 steve Exp $
#
@@ -138,4 +138,4 @@ update:
update-version:
perl -pi.bak -e "s/VERSION = '[0-9]\.[0-9]';/VERSION = '${VERSION}';/g" xen-*
perl -pi.bak -e "s/RELEASE = '[0-9]\.[0-9]';/RELEASE = '${VERSION}';/g" xen-*

View File

@@ -303,7 +303,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-create-image,v 1.70 2005-12-25 20:15:47 steve Exp $
$Id: xen-create-image,v 1.71 2005-12-25 20:20:06 steve Exp $
=cut
@@ -349,7 +349,7 @@ my %CONFIG;
#
# Release number.
#
my $VERSION = '0.7';
my $RELEASE = '0.7';
@@ -856,12 +856,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-create-image,v 1.70 2005-12-25 20:15:47 steve Exp $';
my $REVISION = '$Id: xen-create-image,v 1.71 2005-12-25 20:20:06 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
print "xen-create-image release $VERSION - CVS: $VERSION\n";
print "xen-create-image release $RELEASE - CVS: $VERSION\n";
exit;
}
}

View File

@@ -65,7 +65,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-delete-image,v 1.9 2005-12-25 20:15:47 steve Exp $
$Id: xen-delete-image,v 1.10 2005-12-25 20:20:06 steve Exp $
=cut
@@ -99,7 +99,7 @@ my %CONFIG;
#
# Release number.
#
my $VERSION = '0.7';
my $RELEASE = '0.7';
@@ -301,12 +301,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-delete-image,v 1.9 2005-12-25 20:15:47 steve Exp $';
my $REVISION = '$Id: xen-delete-image,v 1.10 2005-12-25 20:20:06 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
print "xen-delete-image release $VERSION - CVS: $VERSION\n";
print "xen-delete-image release $RELEASE - CVS: $VERSION\n";
exit;
}

View File

@@ -108,7 +108,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-duplicate-image,v 1.13 2005-12-25 20:15:47 steve Exp $
$Id: xen-duplicate-image,v 1.14 2005-12-25 20:20:06 steve Exp $
=cut
@@ -149,7 +149,7 @@ my %CONFIG;
#
# Release number.
#
my $VERSION = '0.7';
my $RELEASE = '0.7';
#
@@ -433,12 +433,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-duplicate-image,v 1.13 2005-12-25 20:15:47 steve Exp $';
my $REVISION = '$Id: xen-duplicate-image,v 1.14 2005-12-25 20:20:06 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
print "xen-duplicate-image release $VERSION - CVS: $VERSION\n";
print "xen-duplicate-image release $RELEASE - CVS: $VERSION\n";
exit;
}

View File

@@ -85,7 +85,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-list-images,v 1.9 2005-12-25 20:15:47 steve Exp $
$Id: xen-list-images,v 1.10 2005-12-25 20:20:06 steve Exp $
=cut
@@ -120,7 +120,7 @@ my %CONFIG;
#
# Release number.
#
my $VERSION = '0.7';
my $RELEASE = '0.7';
@@ -280,12 +280,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-list-images,v 1.9 2005-12-25 20:15:47 steve Exp $';
my $REVISION = '$Id: xen-list-images,v 1.10 2005-12-25 20:20:06 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
print "xen-list-images release $VERSION - CVS: $VERSION\n";
print "xen-list-images release $RELEASE - CVS: $VERSION\n";
exit;
}

View File

@@ -72,7 +72,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-update-image,v 1.8 2005-12-25 20:15:47 steve Exp $
$Id: xen-update-image,v 1.9 2005-12-25 20:20:06 steve Exp $
=cut
@@ -106,7 +106,7 @@ my %CONFIG;
#
# Release number.
#
my $VERSION = '0.7';
my $RELEASE = '0.7';
#
@@ -260,12 +260,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-update-image,v 1.8 2005-12-25 20:15:47 steve Exp $';
my $REVISION = '$Id: xen-update-image,v 1.9 2005-12-25 20:20:06 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
print "xen-update-image release $VERSION - CVS: $VERSION\n";
print "xen-update-image release $RELEASE - CVS: $VERSION\n";
exit;
}