1
0
mirror of synced 2026-04-20 00:32:59 +00:00

2006-01-10 23:06:00 by steve

Use 'Revision:' not 'Id: ' for showing the CVS revision number.
This commit is contained in:
steve
2006-01-10 23:06:00 +00:00
parent 4dd8034b08
commit 48f1c93bfa
4 changed files with 28 additions and 21 deletions

View File

@@ -339,7 +339,7 @@ Install an X11 server, using VNC and XDM
--
http://www.steve.org.uk/
$Id: xen-create-image,v 1.80 2006-01-08 23:46:01 steve Exp $
$Id: xen-create-image,v 1.81 2006-01-10 23:06:00 steve Exp $
=cut
@@ -879,10 +879,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-create-image,v 1.80 2006-01-08 23:46:01 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
my $REVISION = '$Revision: 1.81 $';
if ( $REVISION =~ / ([0-9.]+) / )
{
$REVISION = $1;
}
print "xen-create-image release $RELEASE - CVS: $VERSION\n";
exit;

View File

@@ -75,7 +75,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-delete-image,v 1.18 2006-01-08 23:43:21 steve Exp $
$Id: xen-delete-image,v 1.19 2006-01-10 23:06:00 steve Exp $
=cut
@@ -251,10 +251,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-delete-image,v 1.18 2006-01-08 23:43:21 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
my $REVISION = '$Revision: 1.19 $';
if ( $REVISION =~ / ([0-9.]+) / )
{
$REVISION = $1;
}
print "xen-delete-image release $RELEASE - CVS: $VERSION\n";
exit;

View File

@@ -90,7 +90,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-list-images,v 1.13 2006-01-07 23:23:12 steve Exp $
$Id: xen-list-images,v 1.14 2006-01-10 23:06:00 steve Exp $
=cut
@@ -286,10 +286,12 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-list-images,v 1.13 2006-01-07 23:23:12 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
my $REVISION = '$Revision: 1.14 $';
if ( $REVISION =~ / ([0-9.]+) / )
{
$REVISION = $1;
}
print "xen-list-images release $RELEASE - CVS: $VERSION\n";
exit;

View File

@@ -80,7 +80,7 @@ Show the version number and exit.
--
http://www.steve.org.uk/
$Id: xen-update-image,v 1.14 2006-01-08 23:42:45 steve Exp $
$Id: xen-update-image,v 1.15 2006-01-10 23:06:00 steve Exp $
=cut
@@ -302,12 +302,13 @@ sub parseCommandLineArguments
if ( $VERSION )
{
my $REVISION = '$Id: xen-update-image,v 1.14 2006-01-08 23:42:45 steve Exp $';
$VERSION = join (' ', (split (' ', $REVISION))[2]);
$VERSION =~ s/,v\b//;
$VERSION =~ s/(\S+)$/$1/;
my $REVISION = '$Revision: 1.15 $';
print "xen-update-image release $RELEASE - CVS: $VERSION\n";
if ( $REVISION =~ / ([0-9.]+) / )
{
$REVISION = $1;
}
print "xen-update-image release $RELEASE - CVS: $REVISION\n";
exit;
}