2006-01-10 23:06:00 by steve
Use 'Revision:' not 'Id: ' for showing the CVS revision number.
This commit is contained in:
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -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;
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user