Added tag release-4. for changeset d75c787add2a

Use perltidy with no args
Fixed tab vs. space
2026-02-20 05:45:15 +00:00 · 2009-01-11 23:22:44 +00:00 · 2009-01-11 23:22:03 +00:00 · 2009-01-11 23:21:25 +00:00 · 2009-01-06 21:01:51 +00:00 · 2009-01-06 20:59:55 +00:00
40 changed files with 1768 additions and 1195 deletions
--- a/.hgtags
+++ b/.hgtags
@@ -0,0 +1 @@
 d75c787add2a7ceb19b30b018d4d16b7317c772d release-4.
--- a/23
+++ b/23
@@ -12,8 +12,9 @@
 #
 #  Only used to build distribution tarballs.
 #
 TMP        ?= /tmp
 DIST_PREFIX = ${TMP}
-VERSION     = 3.9
+VERSION     = 4.1
 BASE        = xen-tools
@@ -56,7 +57,7 @@ clean:
 	@find . -name '*.tmp' -exec rm \{\} \;
 	@find . -name 'tags' -exec rm \{\} \;
 	@find . -name '*.8.gz' -exec rm \{\} \;
-	@find man -name '*.html' -exec rm \{\} \;
+	@if [ -d man ]; then rm -rf man ; fi
 	@if [ -e build-stamp ]; then rm -f build-stamp ; fi
 	@if [ -e configure-stamp ]; then rm -f configure-stamp ; fi
 	@if [ -d debian/xen-tools ]; then rm -rf ./debian/xen-tools; fi
@@ -158,6 +159,8 @@ install-hooks:
 	cp -R hooks/edgy/*-* ${prefix}/usr/lib/xen-tools/edgy.d/
 	-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d feisty.d
 	-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d gutsy.d
 	-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d hardy.d
 	-cd ${prefix}/usr/lib/xen-tools/ && ln -s edgy.d intrepid.d
 	mkdir -p ${prefix}/usr/lib/xen-tools/dapper.d/
 	cp -R hooks/dapper/*-* ${prefix}/usr/lib/xen-tools/dapper.d/
 	mkdir -p ${prefix}/usr/lib/xen-tools/edgy.d/
@@ -193,6 +196,7 @@ install: fixup-perms install-bin install-etc install-hooks install-libraries ins
 #  Build our manpages via the `pod2man` command.
 #
 manpages:
 	mkdir man
 	cd bin; for i in *-*; do pod2man --release=${VERSION} --official --section=8 $$i ../man/$$i.8; done
 	for i in man/*.8; do gzip --force -9 $$i; done
@@ -200,7 +204,7 @@ manpages:
 #
 #  Make a new release tarball, and make a GPG signature.
 #
-release: fixup-perms update-version update-modules clean changelog
+release: tidy fixup-perms update-version update-modules clean changelog
 	rm -rf $(DIST_PREFIX)/$(BASE)-$(VERSION)
 	rm -f $(DIST_PREFIX)/$(BASE)-$(VERSION).tar.gz
 	cp -R . $(DIST_PREFIX)/$(BASE)-$(VERSION)
@@ -228,6 +232,17 @@ test-verbose:
 #
 #  Run our main script(s) through perltidy
 #
 tidy:
 	if [ -x /usr/bin/perltidy ]; then \
 	for i in bin/*-*; do \
 		echo "tidying $$i"; \
 		perltidy  $$i \
 	; done \
 	; fi
 #
 #  Uninstall the software, completely.
 #
@@ -258,7 +273,7 @@ uninstall:
 #
 #  NOTE: Removes empty local directories.
 #
-update: 
+update:
 	hg pull --update 2>/dev/null
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
--- a/bin/xen-create-nfs
+++ b/bin/xen-create-nfs
@@ -130,7 +130,7 @@ $CONFIG{'template'} = '/etc/xen-tools/xm-nfs.tmpl';
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
 # store version number away.
@@ -140,7 +140,7 @@ $CONFIG{'xen_tools_version'} = $RELEASE;
 #
 #  Read the global configuration file.
 #
-readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 #
@@ -161,7 +161,7 @@ testArguments();
 if ( -e "/etc/xen/$CONFIG{'hostname'}.cfg" )
 {
    die "Configuration file for $CONFIG{'hostname'} already exists"
-      unless( $CONFIG{'force'} );
+      unless ( $CONFIG{'force'} );
 }
 #
@@ -197,20 +197,20 @@ exit;
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    # Don't read the file if it doesn't exist.
-    return if ( ! -e $file );
+    return if ( !-e $file );
    my $line = "";
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    while (defined($line = <FILE>) )
+    while ( defined( $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -220,7 +220,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -243,6 +243,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -250,18 +251,18 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
@@ -286,48 +287,48 @@ sub parseCommandLineArguments
    #
    GetOptions(
-               # Networking options
+        # Networking options
-               "dhcp",         \$CONFIG{'dhcp'},
+        "dhcp",        \$CONFIG{'dhcp'},
-               "gateway=s",    \$CONFIG{'gateway'},
+        "gateway=s",   \$CONFIG{'gateway'},
-               "broadcast=s",  \$CONFIG{'broadcast'},
+        "broadcast=s", \$CONFIG{'broadcast'},
-               "ip=s",         \$CONFIG{'ip'},
+        "ip=s",        \$CONFIG{'ip'},
-               "netmask=s",    \$CONFIG{'netmask'},
+        "netmask=s",   \$CONFIG{'netmask'},
-               "hostname=s",   \$CONFIG{'hostname'},
+        "hostname=s",  \$CONFIG{'hostname'},
-               "memory=s",     \$CONFIG{'memory'},
+        "memory=s",    \$CONFIG{'memory'},
-               "mac=s",        \$CONFIG{'mac'},
+        "mac=s",       \$CONFIG{'mac'},
-               # NFS options.
+        # NFS options.
-               "nfs_server=s", \$CONFIG{'nfs_server'},
+        "nfs_server=s", \$CONFIG{'nfs_server'},
-               "nfs_root=s",   \$CONFIG{'nfs_root'},
+        "nfs_root=s",   \$CONFIG{'nfs_root'},
-               # Misc. options
+        # Misc. options
-               "admins=s",     \$CONFIG{'admins'},
+        "admins=s",   \$CONFIG{'admins'},
-               "kernel=s",     \$CONFIG{'kernel'},
+        "kernel=s",   \$CONFIG{'kernel'},
-               "initrd=s",     \$CONFIG{'initrd'},
+        "initrd=s",   \$CONFIG{'initrd'},
-               "force",        \$CONFIG{'force'},
+        "force",      \$CONFIG{'force'},
-               "template=s",   \$CONFIG{'template'},
+        "template=s", \$CONFIG{'template'},
-               # Help options
+        # Help options
-               "help",         \$HELP,
+        "help",    \$HELP,
-               "manual",       \$MANUAL,
+        "manual",  \$MANUAL,
-               "verbose",      \$CONFIG{'verbose'},
+        "verbose", \$CONFIG{'verbose'},
-               "version",      \$VERSION
+        "version", \$VERSION
-              );
+    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        my $REVISION      = '$Revision: 1.13 $';
+        my $REVISION = '$Revision: 1.13 $';
        if ( $REVISION =~ /1.([0-9.]+) / )
        {
            $REVISION = $1;
        }
-        logprint( "xen-create-nfs release $RELEASE - CVS: $REVISION\n" );
+        logprint("xen-create-nfs release $RELEASE - CVS: $REVISION\n");
        exit;
    }
 }
@@ -344,10 +345,11 @@ sub parseCommandLineArguments
 sub testArguments
 {
    #
    #  Hostname is mandatory
    #
-    die "No hostname" unless( $CONFIG{'hostname'} );
+    die "No hostname" unless ( $CONFIG{'hostname'} );
    my @network = qw/ ip gateway netmask /;
@@ -356,24 +358,24 @@ sub testArguments
    #
    if ( $CONFIG{'dhcp'} )
    {
-        foreach my $f ( @network )
+        foreach my $f (@network)
        {
-            delete( $CONFIG{ $f } );
+            delete( $CONFIG{$f} );
        }
    }
    else
    {
-        foreach my $f ( @network )
+        foreach my $f (@network)
        {
-            die "Missing --$f" unless( $CONFIG{$f} );
+            die "Missing --$f" unless ( $CONFIG{$f} );
        }
    }
    #
    #  We need an NFS server + root
    #
-    die "Missing NFS server." unless( $CONFIG{'nfs_server'} );
+    die "Missing NFS server." unless ( $CONFIG{'nfs_server'} );
-    die "Missing NFS root."   unless( $CONFIG{'nfs_root'} );
+    die "Missing NFS root."   unless ( $CONFIG{'nfs_root'} );
    # All OK.
@@ -381,7 +383,6 @@ sub testArguments
 =begin doc
  This routine is designed to ensure that any users specified with
@@ -393,6 +394,7 @@ sub testArguments
 sub setupAdminUsers
 {
    #
    #  If we're not root we can't modify users.
    #
@@ -401,16 +403,17 @@ sub setupAdminUsers
    #
    #  If we don't have a sudoers file then we'll also ignore this.
    #
-    return if ( ! -e "/etc/sudoers" );
+    return if ( !-e "/etc/sudoers" );
    #
    #  Find the path to the xen-login-shell
    #
    my $shell = undef;
    $shell = "/usr/bin/xen-login-shell" if ( -x "/usr/bin/xen-login-shell" );
-    $shell = "/usr/local/bin/xen-login-shell" if ( -x "/usr/bin/local/xen-login-shell" );
+    $shell = "/usr/local/bin/xen-login-shell"
      if ( -x "/usr/bin/local/xen-login-shell" );
-    return if ( !defined( $shell ) );
+    return if ( !defined($shell) );
    #
@@ -419,6 +422,7 @@ sub setupAdminUsers
    #
    foreach my $user ( split( /,/, $ENV{'admins'} ) )
    {
        # Strip leading and trailing whitespace.
        $user =~ s/^\s+//;
        $user =~ s/\s+$//;
@@ -429,12 +433,14 @@ sub setupAdminUsers
        # Does the user exist?
        if ( getpwnam($user) )
        {
            # Change shell.
            $CONFIG{'verbose'} && print "Changing shell for $user: $shell\n";
            system( "chsh", "-s", $shell, $user );
        }
        else
        {
            # Add a new user.
            $CONFIG{'verbose'} && print "Adding new user: $user\n";
            system( "useradd", "-s", $shell, $user );
@@ -443,9 +449,11 @@ sub setupAdminUsers
        #
        #  Add the entry to /etc/sudoers.
        #
-        open( SUDOERS, ">>", "/etc/sudoers" ) or warn "Failed to add user to sudoers file : $user - $!";
+        open( SUDOERS, ">>", "/etc/sudoers" )
-        print SUDOERS "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
+          or warn "Failed to add user to sudoers file : $user - $!";
-        close( SUDOERS );
+        print SUDOERS
          "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
        close(SUDOERS);
    }
 }
@@ -461,7 +469,8 @@ sub setupAdminUsers
 sub createNewConfigurationFile
 {
-    die "Template file missing: $CONFIG{'template'}" unless( -e $CONFIG{'template'} );
+    die "Template file missing: $CONFIG{'template'}"
      unless ( -e $CONFIG{'template'} );
    #
    #  Load the template.
@@ -469,7 +478,7 @@ sub createNewConfigurationFile
    my $template = new Text::Template( TYPE   => 'FILE',
                                       SOURCE => $CONFIG{'template'} );
-    my $result   = $template->fill_in( HASH => \%CONFIG );
+    my $result = $template->fill_in( HASH => \%CONFIG );
    #
    #  The file we'll write to.
@@ -481,5 +490,5 @@ sub createNewConfigurationFile
    #
    open( FILE, ">", $file ) or die "Failed to write to $file - $!";
    print FILE $result;
-    close( FILE );
+    close(FILE);
 }
--- a/bin/xen-delete-image
+++ b/bin/xen-delete-image
@@ -169,8 +169,7 @@ my %CONFIG;
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
@@ -179,7 +178,7 @@ my $RELEASE = '3.9';
 #
 if ( -e "/etc/xen-tools/xen-tools.conf" )
 {
-    readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+    readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 }
@@ -199,7 +198,7 @@ checkArguments();
 #
 #  Abort if non-root user.
 #
-if ( (!$CONFIG{'test'}) && ( $EFFECTIVE_USER_ID != 0 ) )
+if ( ( !$CONFIG{'test'} ) && ( $EFFECTIVE_USER_ID != 0 ) )
 {
    print <<E_O_ROOT;
@@ -217,11 +216,11 @@ E_O_ROOT
 #  Loop over the supplied arguments, and attempt to delete each
 # image.
 #
-while( my $name = shift )
+while ( my $name = shift )
 {
-    if ( !xenRunning( $name ) )
+    if ( !xenRunning($name) )
    {
-        deleteXenImage( $name );
+        deleteXenImage($name);
    }
    else
    {
@@ -233,11 +232,11 @@ while( my $name = shift )
 #  Also delete any which were specified using the --hostname flag
 #
 my $hosts = $CONFIG{'hostname'};
-foreach my $name ( @$hosts )
+foreach my $name (@$hosts)
 {
-    if ( !xenRunning( $name ) )
+    if ( !xenRunning($name) )
    {
-        deleteXenImage( $name );
+        deleteXenImage($name);
    }
    else
    {
@@ -252,7 +251,6 @@ exit 0;
 =begin doc
  Read the configuration file specified.
@@ -263,16 +261,16 @@ exit 0;
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    my $line       = "";
+    my $line = "";
-    while (defined($line = <FILE>) )
+    while ( defined( $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -282,7 +280,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -305,6 +303,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -312,23 +311,22 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
 =begin doc
  Parse the arguments specified upon the command line.
@@ -346,32 +344,32 @@ sub parseCommandLineArguments
    #  Parse options.
    #
    GetOptions(
-              "dir=s",       \$CONFIG{'dir'},
+                "dir=s",       \$CONFIG{'dir'},
-              "lvm=s",       \$CONFIG{'lvm'},
+                "lvm=s",       \$CONFIG{'lvm'},
-              "evms=s",      \$CONFIG{'evms'},
+                "evms=s",      \$CONFIG{'evms'},
-              "hostname=s@", \$CONFIG{'hostname'},
+                "hostname=s@", \$CONFIG{'hostname'},
-              "test",        \$CONFIG{'test'},
+                "test",        \$CONFIG{'test'},
-              "verbose",     \$CONFIG{'verbose'},
+                "verbose",     \$CONFIG{'verbose'},
-              "help",        \$HELP,
+                "help",        \$HELP,
-              "manual",      \$MANUAL,
+                "manual",      \$MANUAL,
-              "version",     \$VERSION
+                "version",     \$VERSION
-             );
+    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-       my $REVISION      = '$Revision: 1.41 $';
+        my $REVISION = '$Revision: 1.41 $';
-       if ( $REVISION =~ /1.([0-9.]+) / )
+        if ( $REVISION =~ /1.([0-9.]+) / )
-       {
+        {
-           $REVISION = $1;
+            $REVISION = $1;
-       }
+        }
-       print "xen-delete-image release $RELEASE - CVS: $REVISION\n";
+        print "xen-delete-image release $RELEASE - CVS: $REVISION\n";
-       exit;
+        exit;
    }
 }
@@ -388,6 +386,7 @@ sub parseCommandLineArguments
 sub checkArguments
 {
    #
    #  When testing we only care about loopback images, not disk images.
    #
@@ -401,7 +400,7 @@ sub checkArguments
    #  Make sure we got one and only one installation method.
    #
    my $count = 0;
-    foreach my $type ( qw/dir lvm evms/ )
+    foreach my $type (qw/dir lvm evms/)
    {
        $count += 1 if defined( $CONFIG{$type} );
    }
@@ -412,17 +411,16 @@ sub checkArguments
    #
    if ( $count != 1 )
    {
-       print "Please select one and only one of the installation methods:\n";
+        print "Please select one and only one of the installation methods:\n";
-       print " --dir\n";
+        print " --dir\n";
-       print " --evms\n";
+        print " --evms\n";
-       print " --lvm\n";
+        print " --lvm\n";
-       exit;
+        exit;
    }
 }
 =begin doc
  Test to see if the given instance is running.
@@ -433,20 +431,20 @@ sub checkArguments
 sub xenRunning
 {
-    my( $hostname ) =  (@_ );
+    my ($hostname) = (@_);
    my $running = 0;
-    open( CMD, "xm list $hostname 2>/dev/null |")
+    open( CMD, "xm list $hostname 2>/dev/null |" )
      or die "Failed to run 'xm list $hostname'";
-    while( <CMD> )
+    while (<CMD>)
    {
        my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
    }
-    close( CMD );
+    close(CMD);
-    return( $running );
+    return ($running);
 }
@@ -461,7 +459,7 @@ sub xenRunning
 sub deleteXenImage
 {
-    my ($hostname) = ( @_ );
+    my ($hostname) = (@_);
    #
    #  Collect the names of files to delete.
@@ -487,12 +485,12 @@ sub deleteXenImage
    #
    #  If we're working on disk images remove them.
    #
-    foreach my $file ( @delete )
+    foreach my $file (@delete)
    {
        if ( -e $file )
        {
            print "Deleting: $file\n";
-            unlink( $file );
+            unlink($file);
        }
        else
        {
@@ -503,69 +501,71 @@ sub deleteXenImage
    if ( defined( $CONFIG{'dir'} ) )
    {
-       my $prefix = $CONFIG{'dir'} . "/domains/";
+        my $prefix = $CONFIG{'dir'} . "/domains/";
-       #
+        #
-       #  Now remove the directory.
+        #  Now remove the directory.
-       #
+        #
-       if ( -d $prefix . $hostname )
+        if ( -d $prefix . $hostname )
-       {
+        {
-           print "Removing: " . $prefix . $hostname . "\n";
+            print "Removing: " . $prefix . $hostname . "\n";
-           rmdir ( $prefix . $hostname );
+            rmdir( $prefix . $hostname );
-       }
+        }
    }
    elsif ( defined( $CONFIG{'lvm'} ) )
    {
       #
       #  LVM volumes
       #
       #
       #  TODO: Check we're not mounted.
       #
-       if ( -e "/dev/$CONFIG{'lvm'}/$hostname-swap" )
+        #
-       {
+        #  LVM volumes
-           print "Removing swap volume\n";
+        #
-           runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force" );
+        #
-       }
+        #  TODO: Check we're not mounted.
        #
-       if ( -e "/dev/$CONFIG{'lvm'}/$hostname-disk" )
+        if ( -e "/dev/$CONFIG{'lvm'}/$hostname-swap" )
-       {
+        {
-           print "Removing LVM disk volume\n";
+            print "Removing swap volume\n";
-           runCommand( "lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force" );
+            runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-swap --force");
-       }
+        }
        if ( -e "/dev/$CONFIG{'lvm'}/$hostname-disk" )
        {
            print "Removing LVM disk volume\n";
            runCommand("lvremove /dev/$CONFIG{'lvm'}/$hostname-disk --force");
        }
    }
    elsif ( defined( $CONFIG{'evms'} ) )
    {
       #
       #  EVMS volumes
       #
       #
       #  TODO: Check we're not mounted.
       #
-       if ( -e "/dev/evms/$hostname-swap" )
+        #
-       {
+        #  EVMS volumes
-           print "Removing EVMS swap volume\n";
+        #
-           runCommand( "echo Delete : /dev/evms/$hostname-swap | evms" );
+        #
-           runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-swap | evms" );
+        #  TODO: Check we're not mounted.
-       }
+        #
-       if ( -e "/dev/evms/$hostname-disk" )
+        if ( -e "/dev/evms/$hostname-swap" )
-       {
+        {
-           print "Removing EVMS disk volume\n";
+            print "Removing EVMS swap volume\n";
-           runCommand( "echo Delete : /dev/evms/$hostname-disk | evms" );
+            runCommand("echo Delete : /dev/evms/$hostname-swap | evms");
-           runCommand( "echo Delete : $CONFIG{'evms'}/$hostname-disk | evms" );
+            runCommand("echo Delete : $CONFIG{'evms'}/$hostname-swap | evms");
-       }
+        }
        if ( -e "/dev/evms/$hostname-disk" )
        {
            print "Removing EVMS disk volume\n";
            runCommand("echo Delete : /dev/evms/$hostname-disk | evms");
            runCommand("echo Delete : $CONFIG{'evms'}/$hostname-disk | evms");
        }
    }
    else
    {
-       print "Error:  No installation type specified\n";
+        print "Error:  No installation type specified\n";
-       print "Can't happen!\n";
+        print "Can't happen!\n";
-       print "Hostname : $hostname\n";
+        print "Hostname : $hostname\n";
-       exit 127;
+        exit 127;
    }
 }
@@ -584,7 +584,7 @@ sub deleteXenImage
 sub runCommand
 {
-    my ( $cmd ) = (@_ );
+    my ($cmd) = (@_);
    #
    #  Header.
@@ -596,14 +596,15 @@ sub runCommand
    #
    if ( $CONFIG{'verbose'} )
    {
-       #
+
-       #  Copy stderr to stdout, so we can see it.
+        #
-       #
+        #  Copy stderr to stdout, so we can see it.
-       $cmd .= " 2>&1";
+        #
        $cmd .= " 2>&1";
    }
    else
    {
-       $cmd .= " >/dev/null 2>/dev/null" ;
+        $cmd .= " >/dev/null 2>/dev/null";
    }
@@ -614,9 +615,9 @@ sub runCommand
    if ( $? != 0 )
    {
-       print "Running command '$cmd' failed.\n";
+        print "Running command '$cmd' failed.\n";
-       print "Aborting\n";
+        print "Aborting\n";
-       exit;
+        exit;
    }
@@ -628,5 +629,5 @@ sub runCommand
    $CONFIG{'verbose'} && print $output . "\n";
    $CONFIG{'verbose'} && print "Finished : $cmd\n";
-    return( $output );
+    return ($output);
 }
--- a/bin/xen-list-images
+++ b/bin/xen-list-images
@@ -102,14 +102,14 @@ $CONFIG{'prefix'} = "/etc/xen";
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
 #
 #  Read the global configuration file if it exists.
 #
-readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 #
@@ -129,11 +129,11 @@ my @instances = findXenInstances();
 #  Now process each instance.
 #
 my $count = 0;
-foreach my $instance ( @instances )
+foreach my $instance (@instances)
 {
-    if ( $count ) { print "\n"; }
+    if ($count) { print "\n"; }
-    displayInstance( $instance );
+    displayInstance($instance);
    $count += 1;
 }
@@ -155,18 +155,18 @@ exit;
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    # Don't read the file if it doesn't exist.
-    return if ( ! -e $file );
+    return if ( !-e $file );
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    while (defined(my $line = <FILE>) )
+    while ( defined( my $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -176,7 +176,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -199,6 +199,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -206,22 +207,21 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
 =begin doc
  Parse the arguments specified upon the command line.
@@ -234,24 +234,20 @@ sub parseCommandLineArguments
 {
    my $HELP    = 0;
    my $MANUAL  = 0;
-    my $VERSION        = 0;
+    my $VERSION = 0;
    #  Parse options.
    #
-    GetOptions(
+    GetOptions( "test=s", \$CONFIG{'prefix'}, "help", \$HELP, "manual",
-               "test=s",     \$CONFIG{'prefix'},
+                \$MANUAL, "version", \$VERSION );
               "help",       \$HELP,
               "manual",     \$MANUAL,
               "version",    \$VERSION
             );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        my $REVISION      = '$Revision: 1.30 $';
+        my $REVISION = '$Revision: 1.30 $';
        if ( $REVISION =~ /1.([0-9.]+) / )
        {
            $REVISION = $1;
@@ -282,7 +278,7 @@ sub findXenInstances
        push @found, $file if ( -e $file );
    }
-    return( @found );
+    return (@found);
 }
@@ -298,14 +294,14 @@ sub findXenInstances
 sub displayInstance
 {
-    my ( $file ) = ( @_ );
+    my ($file) = (@_);
    #
    #  Read each line.
    #
    open( FILY, "<", $file );
    my @LINES = <FILY>;
-    close( FILY );
+    close(FILY);
    #
    #  Is it dynamic?
@@ -316,7 +312,7 @@ sub displayInstance
    my $name = '';
    my $mem  = 0;
-    foreach my $line ( @LINES )
+    foreach my $line (@LINES)
    {
        if ( $line =~ /^\s*dhcp\s*=\s*"dhcp\"/i )
        {
@@ -342,7 +338,7 @@ sub displayInstance
    print "Name: $name\n";
    print "Memory: $mem\n";
-    print "IP: "  . $ip . $mac . "\n" if length( $ip );
+    print "IP: " . $ip . $mac . "\n" if length($ip);
    print "DHCP" . $mac . "\n" if $dhcp;
 }
--- a/bin/xen-resize-guest
+++ b/bin/xen-resize-guest
@@ -107,8 +107,6 @@ use Text::Template;
 #
 #  Configuration values read from the command line, or configuration file.
 #
@@ -118,14 +116,14 @@ my %CONFIG;
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
 #
 #  Read the global configuration file.
 #
-readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 #
@@ -147,11 +145,12 @@ my $path = undef;
 if ( $CONFIG{'dir'} )
 {
    #
    #  Make sure we can find the disk
    #
    $path = $CONFIG{'dir'} . "/domains/" . $CONFIG{'hostname'} . "/disk.img";
-    if ( ! -e $path )
+    if ( !-e $path )
    {
        print <<EOF;
@@ -201,15 +200,16 @@ EOF
    print "DO NOT INTERRUPT\n";
    my $cmd = "dd if=/dev/zero bs=1M count=$CONFIG{'add'}k >> $path";
-    system( $cmd );
+    system($cmd );
 }
 elsif ( $CONFIG{'lvm'} )
 {
    #
    #  Make sure we can find the disk
    #
    $path = "/dev/" . $CONFIG{'lvm'} . "/" . $CONFIG{'hostname'} . "-disk";
-    if ( ! -e $path )
+    if ( !-e $path )
    {
        print <<EOF;
@@ -258,7 +258,7 @@ EOF
    print "DO NOT INTERRUPT\n";
    my $cmd = "lvextend -L+$CONFIG{'add'}M $path";
-    system( $cmd );
+    system($cmd );
 }
 else
 {
@@ -271,13 +271,13 @@ else
 #  Check filesystem.
 #
 print "Checking filesystem\n";
-system( "fsck.ext3 -f $path" );
+system("fsck.ext3 -f $path");
 #
 #  Run ext3resize.
 #
 print "Resizing in place\n";
-system( "resize2fs $path" );
+system("resize2fs $path");
 #
@@ -298,16 +298,16 @@ exit 0;
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    my $line       = "";
+    my $line = "";
-    while (defined($line = <FILE>) )
+    while ( defined( $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -317,7 +317,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -340,6 +340,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -347,18 +348,18 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
@@ -387,27 +388,27 @@ sub parseCommandLineArguments
    #
    GetOptions(
-               # Misc. options
+        # Misc. options
-               "add=s",        \$CONFIG{'add'},
+        "add=s",      \$CONFIG{'add'},
-               "dir=s",        \$install{'dir'},
+        "dir=s",      \$install{'dir'},
-               "lvm=s",        \$install{'lvm'},
+        "lvm=s",      \$install{'lvm'},
-               "hostname=s",   \$CONFIG{'hostname'},
+        "hostname=s", \$CONFIG{'hostname'},
-               "force",        \$CONFIG{'force'},
+        "force",      \$CONFIG{'force'},
-               # Help options
+        # Help options
-               "help",         \$HELP,
+        "help",    \$HELP,
-               "manual",       \$MANUAL,
+        "manual",  \$MANUAL,
-               "verbose",      \$CONFIG{'verbose'},
+        "verbose", \$CONFIG{'verbose'},
-               "version",      \$VERSION
+        "version", \$VERSION
-              );
+    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        print( "xen-resize-guest release $RELEASE\n" );
+        print("xen-resize-guest release $RELEASE\n");
        exit 1;
    }
@@ -442,6 +443,7 @@ sub parseCommandLineArguments
 sub testArguments
 {
    #
    #  Make sure we received a hostname.
    #
@@ -486,8 +488,8 @@ EOF
    #  We should either have LVM *or* directory - not neither or both.
    #
    my $options = 0;
-    $options += 1if ( defined($CONFIG{'lvm'}) && length( $CONFIG{'lvm'} ) );
+    $options += 1 if ( defined( $CONFIG{'lvm'} ) && length( $CONFIG{'lvm'} ) );
-    $options += 1if ( defined($CONFIG{'dir'}) && length( $CONFIG{'dir'} ) );
+    $options += 1 if ( defined( $CONFIG{'dir'} ) && length( $CONFIG{'dir'} ) );
    #
    #  Report
@@ -528,18 +530,18 @@ EOF
 sub xenRunning
 {
-    my( $hostname ) =  (@_ );
+    my ($hostname) = (@_);
    my $running = 0;
-    open( CMD, "xm list $hostname 2>/dev/null |")
+    open( CMD, "xm list $hostname 2>/dev/null |" )
      or die "Failed to run 'xm list $hostname'";
-    while( <CMD> )
+    while (<CMD>)
    {
        my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
    }
-    close( CMD );
+    close(CMD);
-    return( $running );
+    return ($running);
 }
--- a/bin/xen-update-image
+++ b/bin/xen-update-image
@@ -120,7 +120,7 @@ my %CONFIG;
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
 #
@@ -128,7 +128,7 @@ my $RELEASE = '3.9';
 #
 if ( -e "/etc/xen-tools/xen-tools.conf" )
 {
-    readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+    readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 }
@@ -166,11 +166,11 @@ E_O_ROOT
 #
 #  Loop over the supplied arguments, and attempt to update each image.
 #
-while( my $name = shift )
+while ( my $name = shift )
 {
-    if ( !xenRunning( $name ) )
+    if ( !xenRunning($name) )
    {
-        updateXenImage( $name );
+        updateXenImage($name);
    }
    else
    {
@@ -196,7 +196,7 @@ exit;
 sub updateXenImage
 {
-    my ( $name ) = ( @_ );
+    my ($name) = (@_);
    #
    #  Create a temporary directory, and prepare to mount the
@@ -212,10 +212,11 @@ sub updateXenImage
    #
    if ( $CONFIG{'dir'} )
    {
        # The loopback image.
        $img =  $CONFIG{'dir'} . "/domains/" . $name . "/disk.img";
-        if ( ! -e $img )
+        # The loopback image.
        $img = $CONFIG{'dir'} . "/domains/" . $name . "/disk.img";
        if ( !-e $img )
        {
            print "Disk image '$img' for host '$name' not found\n";
            return;
@@ -225,11 +226,12 @@ sub updateXenImage
    }
    elsif ( $CONFIG{'lvm'} )
    {
        # The LVM volume
        $img = "/dev/" . $CONFIG{'lvm'} . "/$name-disk";
        # make sure it exists.
-        if ( ! -e $img )
+        if ( !-e $img )
        {
            print "Logical volume '$img' for host '$name' not found\n";
            return;
@@ -239,23 +241,24 @@ sub updateXenImage
    }
    elsif ( $CONFIG{'evms'} )
    {
        # The EVMS volume  -- note, unlike LVM, you don't need the $CONFIG{'evms'}
        # to see it and mount the volume. $CONFIG{'evms'} is only used for manipulating
        # the underlying object.  Still, I don't want to mess with the parse code and
        # make it confusing - otherwise --evms takes an argument everywhere but here,
        # which will confuse users.  The better solution is to make it so that --evms can
        # take a following container, but doesn't require it.  For the moment, it is
        # better to leave it as it is, take a container, and then ignore it.
-        # The best way to do it is to just read it out of the configuration file,
+# The EVMS volume  -- note, unlike LVM, you don't need the $CONFIG{'evms'}
-        # tell the user what you got and where you got it from, and not bother the user
+# to see it and mount the volume. $CONFIG{'evms'} is only used for manipulating
-        # with picking --dir or --lvm or --evms at all, but infer it from the config
+# the underlying object.  Still, I don't want to mess with the parse code and
-        # file's disk = parameter.  xen-delete-image might work the same way, but
+# make it confusing - otherwise --evms takes an argument everywhere but here,
-        # it could be *slightly* more dangerous in the context of deleting.
+# which will confuse users.  The better solution is to make it so that --evms can
 # take a following container, but doesn't require it.  For the moment, it is
 # better to leave it as it is, take a container, and then ignore it.
 # The best way to do it is to just read it out of the configuration file,
 # tell the user what you got and where you got it from, and not bother the user
 # with picking --dir or --lvm or --evms at all, but infer it from the config
 # file's disk = parameter.  xen-delete-image might work the same way, but
 # it could be *slightly* more dangerous in the context of deleting.
        $img = "/dev/evms/$name-disk";
        # make sure it exists.
-        if ( ! -e $img )
+        if ( !-e $img )
        {
            print "EVMS volume '$img' for host '$name' not found\n";
            return;
@@ -276,23 +279,26 @@ sub updateXenImage
    #
    #  Make sure this is a Debian image.
    #
-    if ( ( -e $tmp . "/usr/bin/apt-get" ) &&
+    if (    ( -e $tmp . "/usr/bin/apt-get" )
-         ( -x $tmp . "/usr/bin/apt-get" ) )
+         && ( -x $tmp . "/usr/bin/apt-get" ) )
    {
-       #
+
-       #  Now run the update command.
+        #
-       #
+        #  Now run the update command.
-       system( "chroot $tmp /usr/bin/apt-get update" );
+        #
        system("chroot $tmp /usr/bin/apt-get update");
-       #
+        #
-       #  Now upgrade
+        #  Now upgrade
-       #
+        #
-       system( "DEBIAN_FRONTEND=noninteractive  chroot $tmp /usr/bin/apt-get upgrade --yes --force-yes" );
+        system(
 "DEBIAN_FRONTEND=noninteractive  chroot $tmp /usr/bin/apt-get upgrade --yes --force-yes"
        );
    }
    else
    {
-       print "Xen image $name is not a Debian GNU/Linux image.  Skipping\n";
+        print "Xen image $name is not a Debian GNU/Linux image.  Skipping\n";
    }
@@ -306,8 +312,6 @@ sub updateXenImage
 =begin doc
  Test to see if the given instance is running.
@@ -318,25 +322,24 @@ sub updateXenImage
 sub xenRunning
 {
-    my( $hostname ) =  (@_ );
+    my ($hostname) = (@_);
    my $running = 0;
-    open( CMD, "xm list 2>/dev/null |")
+    open( CMD, "xm list 2>/dev/null |" )
      or die "Failed to run 'xm list $hostname'";
-    while( <CMD> )
+    while (<CMD>)
    {
        my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
    }
-    close( CMD );
+    close(CMD);
-    return( $running );
+    return ($running);
 }
 =begin doc
  Read the configuration file specified.
@@ -347,16 +350,16 @@ sub xenRunning
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    my $line       = "";
+    my $line = "";
-    while (defined($line = <FILE>) )
+    while ( defined( $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -366,7 +369,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -389,6 +392,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -396,23 +400,22 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
 =begin doc
  Parse the arguments specified upon the command line.
@@ -430,20 +433,17 @@ sub parseCommandLineArguments
    #  Parse options.
    #
    GetOptions(
-              "dir=s",      \$CONFIG{'dir'},
+                "dir=s",  \$CONFIG{'dir'},  "lvm=s",   \$CONFIG{'lvm'},
-              "lvm=s",      \$CONFIG{'lvm'},
+                "evms=s", \$CONFIG{'evms'}, "help",    \$HELP,
-              "evms=s",     \$CONFIG{'evms'},
+                "manual", \$MANUAL,         "version", \$VERSION
-              "help",       \$HELP,
+    );
              "manual",     \$MANUAL,
              "version",    \$VERSION
             );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        my $REVISION      = '$Revision: 1.29 $';
+        my $REVISION = '$Revision: 1.29 $';
        if ( $REVISION =~ /1.([0-9.]+) / )
        {
@@ -468,11 +468,12 @@ sub parseCommandLineArguments
 sub checkArguments
 {
    #
    #  Make sure we got one and only one installation method.
    #
    my $count = 0;
-    foreach my $type ( qw/dir lvm evms/ )
+    foreach my $type (qw/dir lvm evms/)
    {
        $count += 1 if defined( $CONFIG{$type} );
    }
@@ -483,10 +484,10 @@ sub checkArguments
    #
    if ( $count != 1 )
    {
-       print "Please select one and only one of the installation methods:\n";
+        print "Please select one and only one of the installation methods:\n";
-       print " --dir\n";
+        print " --dir\n";
-       print " --evms\n";
+        print " --evms\n";
-       print " --lvm\n";
+        print " --lvm\n";
-       exit;
+        exit;
    }
 }
--- a/bin/xt-create-xen-config
+++ b/bin/xt-create-xen-config
@@ -156,8 +156,7 @@ $CONFIG{'template'} = '/etc/xen-tools/xm.tmpl';
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
@@ -189,9 +188,6 @@ createXenConfig();
 #
 #  Exit cleanly - any errors which have already occurred will result
 # in "exit 1".
@@ -200,9 +196,6 @@ exit 0;
 =begin doc
  Parse the command line arguments this script was given.
@@ -221,23 +214,23 @@ sub parseCommandLineArguments
    #  Parse options.
    #
    GetOptions(
-               "admins=s",   \$ENV{'admins'},
+                "admins=s",    \$ENV{'admins'},
-               "output=s",   \$CONFIG{'output'},
+                "output=s",    \$CONFIG{'output'},
-               "extension=s",\$CONFIG{'extension'},
+                "extension=s", \$CONFIG{'extension'},
-               "template=s", \$CONFIG{'template'},
+                "template=s",  \$CONFIG{'template'},
-               "verbose",    \$CONFIG{'verbose'},
+                "verbose",     \$CONFIG{'verbose'},
-               "help",       \$HELP,
+                "help",        \$HELP,
-               "manual",     \$MANUAL,
+                "manual",      \$MANUAL,
-               "version",    \$VERSION
+                "version",     \$VERSION
-              );
+    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        my $REVISION      = '$Revision: 1.47 $';
+        my $REVISION = '$Revision: 1.47 $';
        if ( $REVISION =~ /1.([0-9.]+) / )
        {
            $REVISION = $1;
@@ -260,10 +253,11 @@ sub parseCommandLineArguments
 sub checkArguments
 {
    #
    #  We require an output location.
    #
-    if ( ! defined( $CONFIG{'output'} ) )
+    if ( !defined( $CONFIG{'output'} ) )
    {
        print "The '--output' argument is mandatory\n";
        exit 1;
@@ -272,9 +266,10 @@ sub checkArguments
    #
    #  The output location should be a directory which exists.
    #
-    if ( ! -d $CONFIG{'output'} )
+    if ( !-d $CONFIG{'output'} )
    {
-        print "The output directory we've been given, $CONFIG{'output'}, doesnt exist\n";
+        print
 "The output directory we've been given, $CONFIG{'output'}, doesnt exist\n";
        print "Aborting\n";
        exit 1;
    }
@@ -284,9 +279,10 @@ sub checkArguments
    #
    if ( defined( $CONFIG{'template'} ) )
    {
-        if ( ! -e $CONFIG{'template'} )
+        if ( !-e $CONFIG{'template'} )
        {
-            print "The specified template file, $CONFIG{'template'} does not exist.\n";
+            print
 "The specified template file, $CONFIG{'template'} does not exist.\n";
            exit 1;
        }
    }
@@ -310,19 +306,20 @@ sub importPartitionsFromEnvironment
 {
    @PARTITIONS = ();
-    for (my $i=1; $i <= $ENV{'NUMPARTITIONS'}; $i++)
+    for ( my $i = 1 ; $i <= $ENV{'NUMPARTITIONS'} ; $i++ )
    {
-        my @parts = split(/:/, $ENV{'PARTITION' . $i}, 7);
+        my @parts = split( /:/, $ENV{'PARTITION' . $i}, 7 );
-        push( @PARTITIONS,
+        push(
-            {
+              @PARTITIONS,
-                'name'       => $parts[0],
+              {
-                'size'       => $parts[1],
+               'name'       => $parts[0],
-                'type'       => $parts[2],
+               'size'       => $parts[1],
-                'mountpoint' => $parts[3],
+               'type'       => $parts[2],
-                'options'    => $parts[4],
+               'mountpoint' => $parts[3],
-                'imagetype'  => $parts[5],
+               'options'    => $parts[4],
-                'image'      => $parts[6]
+               'imagetype'  => $parts[5],
-            }
+               'image'      => $parts[6]
              }
        );
    }
 }
@@ -341,6 +338,7 @@ sub importPartitionsFromEnvironment
 sub createXenConfig
 {
    #
    #  The output file we're going to process.
    #
@@ -416,7 +414,7 @@ sub createXenConfig
        }
        else
        {
-            $ENV{'swap_vbd'}  = undef;
+            $ENV{'swap_vbd'} = undef;
        }
    }
    else
@@ -438,7 +436,7 @@ sub createXenConfig
    # made available to our template file.
    #
    my %vars;
-    foreach my $key (sort keys %ENV )
+    foreach my $key ( sort keys %ENV )
    {
        $vars{$key} = $ENV{$key};
    }
@@ -457,9 +455,9 @@ sub createXenConfig
    #
    #  Write the output of processing the template file, if it succeeds.
    #
-    if (defined $result)
+    if ( defined $result )
    {
-        print FILE $result ;
+        print FILE $result;
    }
    else
    {
@@ -469,13 +467,12 @@ sub createXenConfig
    #
    #  Close the output file.
    #
-    close( FILE );
+    close(FILE);
 }
 =begin doc
  This routine is designed to ensure that any users specified with
@@ -487,6 +484,7 @@ sub createXenConfig
 sub setupAdminUsers
 {
    #
    #  If we're not root we can't modify users.
    #
@@ -495,16 +493,17 @@ sub setupAdminUsers
    #
    #  If we don't have a sudoers file then we'll also ignore this.
    #
-    return if ( ! -e "/etc/sudoers" );
+    return if ( !-e "/etc/sudoers" );
    #
    #  Find the path to the xen-login-shell
    #
    my $shell = undef;
    $shell = "/usr/bin/xen-login-shell" if ( -x "/usr/bin/xen-login-shell" );
-    $shell = "/usr/local/bin/xen-login-shell" if ( -x "/usr/bin/local/xen-login-shell" );
+    $shell = "/usr/local/bin/xen-login-shell"
      if ( -x "/usr/bin/local/xen-login-shell" );
-    return if ( !defined( $shell ) );
+    return if ( !defined($shell) );
    #
@@ -513,6 +512,7 @@ sub setupAdminUsers
    #
    foreach my $user ( split( /,/, $ENV{'admins'} ) )
    {
        # Strip leading and trailing whitespace.
        $user =~ s/^\s+//;
        $user =~ s/\s+$//;
@@ -523,12 +523,14 @@ sub setupAdminUsers
        # Does the user exist?
        if ( getpwnam($user) )
        {
            # Change shell.
            $CONFIG{'verbose'} && print "Changing shell for $user: $shell\n";
            system( "chsh", "-s", $shell, $user );
        }
        else
        {
            # Add a new user.
            $CONFIG{'verbose'} && print "Adding new user: $user\n";
            system( "useradd", "-s", $shell, $user );
@@ -537,9 +539,11 @@ sub setupAdminUsers
        #
        #  Add the entry to /etc/sudoers.
        #
-        open( SUDOERS, ">>", "/etc/sudoers" ) or warn "Failed to add user to sudoers file : $user - $!";
+        open( SUDOERS, ">>", "/etc/sudoers" )
-        print SUDOERS "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
+          or warn "Failed to add user to sudoers file : $user - $!";
-        close( SUDOERS );
+        print SUDOERS
          "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
        close(SUDOERS);
    }
 }
--- a/bin/xt-customize-image
+++ b/bin/xt-customize-image
@@ -97,8 +97,7 @@ my %CONFIG;
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
@@ -128,9 +127,6 @@ exit 0;
 =begin doc
  Parse the command line arguments this script was given.
@@ -149,28 +145,28 @@ sub parseCommandLineArguments
    #  Parse options.
    #
    GetOptions(
-               "location=s", \$CONFIG{'location'},
+                "location=s", \$CONFIG{'location'},
-               "dist=s",     \$CONFIG{'dist'},
+                "dist=s",     \$CONFIG{'dist'},
-               "verbose",    \$CONFIG{'verbose'},
+                "verbose",    \$CONFIG{'verbose'},
-               "help",       \$HELP,
+                "help",       \$HELP,
-               "manual",     \$MANUAL,
+                "manual",     \$MANUAL,
-               "version",    \$VERSION
+                "version",    \$VERSION
-             );
+    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-       my $REVISION      = '$Revision: 1.33 $';
+        my $REVISION = '$Revision: 1.33 $';
-       if ( $REVISION =~ /1.([0-9.]+) / )
+        if ( $REVISION =~ /1.([0-9.]+) / )
-       {
+        {
-           $REVISION = $1;
+            $REVISION = $1;
-       }
+        }
-       print "xt-customize-image release $RELEASE - CVS: $REVISION\n";
+        print "xt-customize-image release $RELEASE - CVS: $REVISION\n";
-       exit;
+        exit;
    }
 }
@@ -186,10 +182,11 @@ sub parseCommandLineArguments
 sub checkArguments
 {
    #
    #  We require a location.
    #
-    if ( ! defined( $CONFIG{'location'} ) )
+    if ( !defined( $CONFIG{'location'} ) )
    {
        print "The '--location' argument is mandatory\n";
        exit 1;
@@ -199,7 +196,7 @@ sub checkArguments
    #
    #  Test that the location we've been given exists
    #
-    if ( ! -d $CONFIG{'location'} )
+    if ( !-d $CONFIG{'location'} )
    {
        print "The installation directory we've been given doesn't exist\n";
        print "We tried to use : $CONFIG{'location'}\n";
@@ -210,7 +207,7 @@ sub checkArguments
    #
    #  We require a distribution name.
    #
-    if ( ! defined( $CONFIG{'dist'} ) )
+    if ( !defined( $CONFIG{'dist'} ) )
    {
        print "The '--dist' argument is mandatory\n";
        exit 1;
@@ -224,9 +221,9 @@ sub checkArguments
    #  If there are no scripts then we clearly cannot
    # customise it!
    #
-    my $dir = "/usr/lib/xen-tools/"  . $CONFIG{'dist'} .  ".d";
+    my $dir = "/usr/lib/xen-tools/" . $CONFIG{'dist'} . ".d";
-    if ( ! -d $dir )
+    if ( !-d $dir )
    {
        print <<E_OR;
@@ -262,10 +259,11 @@ E_OR
 sub runDistributionHooks
 {
    #
    #  Hook directory.
    #
-    my $hooks = "/usr/lib/xen-tools/"  . $CONFIG{'dist'} .  ".d/";
+    my $hooks = "/usr/lib/xen-tools/" . $CONFIG{'dist'} . ".d/";
    #
    #  Installation prefix
@@ -290,6 +288,7 @@ sub runDistributionHooks
    #
    foreach my $file ( sort( glob( $hooks . "*" ) ) )
    {
        # skip files that end with .dpkg-new, .dpkg-old or '~'
        next if ( $file =~ /\.dpkg-(new|old)/ );
        next if ( $file =~ /~$/ );
@@ -299,6 +298,7 @@ sub runDistributionHooks
        #
        if ( ( -x $file ) && ( -f $file ) )
        {
            #
            # Just display the name - no need to see the full path.
            #
@@ -321,14 +321,14 @@ sub runDistributionHooks
            {
                print "Running hook $name ['$cmd']\n";
                print "--\n";
-                system( $cmd );
+                system($cmd );
                print "--\n";
                print "Done\n\n";
            }
            else
            {
                print "Running hook $name\n";
-                system( $cmd );
+                system($cmd );
                print "hook $name: done.\n";
            }
        }
--- a/bin/xt-install-image
+++ b/bin/xt-install-image
@@ -113,7 +113,7 @@ my %CONFIG;
 #
 # Release number.
 #
-my $RELEASE = '3.9';
+my $RELEASE = '4.1';
 #
@@ -127,50 +127,41 @@ my $RELEASE = '3.9';
 #  needDirectory Defined if we need an install-source directory specified.
 #
 #
-my %dispatch =
+my %dispatch = (
-  (
+                 "copy" => {
-   "copy" =>
+                            sub           => \&do_copy,
-     {
+                            needBinary    => "/bin/cp",
-               sub    => \&do_copy,
+                            needDirectory => 1,
-        needBinary    => "/bin/cp",
+                 },
-        needDirectory => 1,
+                 "debootstrap" => {
-     },
+                                   sub        => \&do_debootstrap,
-   "debootstrap" =>
+                                   needBinary => "/usr/sbin/debootstrap",
-     {
+                 },
-               sub => \&do_debootstrap,
+                 "image-server" => {
-        needBinary => "/usr/sbin/debootstrap",
+                                    sub     => \&do_image_server,
-     },
+                                    needURL => 1,
-   "image-server" =>
+                 },
-     {
+                 "rinse" => {
-               sub => \&do_image_server,
+                             sub        => \&do_rinse,
-           needURL => 1,
+                             needBinary => "/usr/bin/rinse",
-     },
+                 },
-   "rinse" =>
+                 "rpmstrap" => {
-     {
+                                sub        => \&do_rpmstrap,
-               sub => \&do_rinse,
+                                needBinary => "/usr/bin/rpmstrap",
-        needBinary => "/usr/bin/rinse",
+                 },
-     },
+                 "tar" => {
-   "rpmstrap" =>
+                           sub        => \&do_tar,
-     {
+                           needBinary => "/bin/tar",
-               sub => \&do_rpmstrap,
+                           needFile   => 1,
-        needBinary => "/usr/bin/rpmstrap",
+                 }
     },
   "tar" =>
     {
               sub => \&do_tar,
        needBinary => "/bin/tar",
          needFile => 1,
     }
 );
 #
 #  Read the global configuration file.
 #
-readConfigurationFile( "/etc/xen-tools/xen-tools.conf" );
+readConfigurationFile("/etc/xen-tools/xen-tools.conf");
 #
@@ -193,7 +184,7 @@ if ( $CONFIG{'config'} )
    }
    # Read the file, if it exists.
-    readConfigurationFile( $path ) if ( -e $path );
+    readConfigurationFile($path) if ( -e $path );
 }
@@ -206,59 +197,65 @@ checkArguments();
 #
 #  Now lookup our installation type and dispatch control to it.
 #
-if ( defined( $CONFIG{'install-method'} ) &&
+if ( defined( $CONFIG{'install-method'} )
-      length( $CONFIG{'install-method'} ) )
+     && length( $CONFIG{'install-method'} ) )
 {
    #
    #  Get the entry from the dispatch table.
    #
-    my $installer = $dispatch{ lc($CONFIG{'install-method'}) };
+    my $installer = $dispatch{lc( $CONFIG{'install-method'} )};
-    if ( defined( $installer ) )
+    if ( defined($installer) )
    {
        #
        #  If we found it.
        #
        # Do we need to test for a binary.
-        if  ( ( $installer->{'needBinary'} ) &&
+        if (    ( $installer->{'needBinary'} )
-              ( ! -x $installer->{'needBinary'} ) )
+             && ( !-x $installer->{'needBinary'} ) )
        {
-            print "The following required binary for the installation was not found\n";
+            print
 "The following required binary for the installation was not found\n";
            print "\t" . $installer->{'needBinary'} . "\n";
            exit 1;
        }
        # Do we need a directory specified as the installation source?
-        if ( ( $installer->{'needDirectory'} ) &&
+        if (   ( $installer->{'needDirectory'} )
-             ( ! $CONFIG{'install-source'} || ! -d $CONFIG{'install-source'} ) )
+            && ( !$CONFIG{'install-source'} || !-d $CONFIG{'install-source'} ) )
        {
            print "Please specify the source directory with --install-source\n";
            if ( $CONFIG{'install-source'} )
            {
-                print "The specified directory $CONFIG{'install-source'} does not exist.\n";
+                print
 "The specified directory $CONFIG{'install-source'} does not exist.\n";
            }
            exit 1;
        }
        # Do we need a file specified as the installation source?
-        if ( ( $installer->{'needFile'} ) &&
+        if (   ( $installer->{'needFile'} )
-             ( ! $CONFIG{'install-source'} || ! -e $CONFIG{'install-source'} ) )
+            && ( !$CONFIG{'install-source'} || !-e $CONFIG{'install-source'} ) )
        {
            print "Please specify the source file with --install-source\n";
            if ( $CONFIG{'install-source'} )
            {
-                print "The specified file $CONFIG{'install-source'} does not exist.\n";
+                print
 "The specified file $CONFIG{'install-source'} does not exist.\n";
            }
            exit 1;
        }
        # Do we need an URL specified as the installation source?
-        if ( ( $installer->{'needURL'} ) &&
+        if (
-             ( ! $CONFIG{'install-source'} ||
+             ( $installer->{'needURL'} )
-               ( $CONFIG{'install-source'} !~ /^http/i ) ) )
+             && ( !$CONFIG{'install-source'}
                  || ( $CONFIG{'install-source'} !~ /^http/i ) )
          )
        {
            print "Please specify the image server URL with --install-source\n";
            exit 1;
@@ -276,9 +273,9 @@ if ( defined( $CONFIG{'install-method'} ) &&
        #
        #  Test that we have some "standard" files present.
        #
-        foreach my $file ( qw( /bin/ls /bin/cp ) )
+        foreach my $file (qw( /bin/ls /bin/cp ))
        {
-            if ( ! -x $CONFIG{'location'} . $file )
+            if ( !-x $CONFIG{'location'} . $file )
            {
                print "The installation of the new system has failed.\n";
                print "\n";
@@ -306,10 +303,6 @@ else
 =begin doc
  Read the specified configuration file, and update our global configuration
@@ -321,20 +314,20 @@ else
 sub readConfigurationFile
 {
-    my ($file) = ( @_ );
+    my ($file) = (@_);
    # Don't read the file if it doesn't exist.
-    return if ( ! -e $file );
+    return if ( !-e $file );
    my $line = "";
    open( FILE, "<", $file ) or die "Cannot read file '$file' - $!";
-    while (defined($line = <FILE>) )
+    while ( defined( $line = <FILE> ) )
    {
        chomp $line;
-        if ($line =~ s/\\$//)
+        if ( $line =~ s/\\$// )
        {
            $line .= <FILE>;
            redo unless eof(FILE);
@@ -344,7 +337,7 @@ sub readConfigurationFile
        next if ( $line =~ /^([ \t]*)\#/ );
        # Skip blank lines
-        next if ( length( $line ) < 1 );
+        next if ( length($line) < 1 );
        # Strip trailing comments.
        if ( $line =~ /(.*)\#(.*)/ )
@@ -367,6 +360,7 @@ sub readConfigurationFile
            # command expansion?
            if ( $val =~ /(.*)`([^`]+)`(.*)/ )
            {
                # store
                my $pre  = $1;
                my $cmd  = $2;
@@ -374,18 +368,18 @@ sub readConfigurationFile
                # get output
                my $output = `$cmd`;
-                chomp( $output );
+                chomp($output);
                # build up replacement.
                $val = $pre . $output . $post;
            }
            # Store value.
-            $CONFIG{ $key } = $val;
+            $CONFIG{$key} = $val;
        }
    }
-    close( FILE );
+    close(FILE);
 }
@@ -408,35 +402,36 @@ sub parseCommandLineArguments
    #  Parse options.
    #
    GetOptions(
               # Mandatory
               "location=s",     \$CONFIG{'location'},
               "dist=s",         \$CONFIG{'dist'},
               "hostname=s",     \$CONFIG{'hostname'},
-               # Installation method
+        # Mandatory
-               "install-method=s",  \$CONFIG{'install-method'},
+        "location=s", \$CONFIG{'location'},
-               "install-source=s",  \$CONFIG{'install-source'},
+        "dist=s",     \$CONFIG{'dist'},
        "hostname=s", \$CONFIG{'hostname'},
-               # Misc
+        # Installation method
-               "arch=s",         \$CONFIG{'arch'},
+        "install-method=s", \$CONFIG{'install-method'},
-               "cache=s",        \$CONFIG{'cache'},
+        "install-source=s", \$CONFIG{'install-source'},
               "config=s",       \$CONFIG{'config'},
               "mirror=s",       \$CONFIG{'mirror'},
-               # Help.
+        # Misc
-               "verbose",        \$CONFIG{'verbose'},
+        "arch=s",   \$CONFIG{'arch'},
-               "help",           \$HELP,
+        "cache=s",  \$CONFIG{'cache'},
-               "manual",         \$MANUAL,
+        "config=s", \$CONFIG{'config'},
-               "version",        \$VERSION
+        "mirror=s", \$CONFIG{'mirror'},
-             );
+
        # Help.
        "verbose", \$CONFIG{'verbose'},
        "help",    \$HELP,
        "manual",  \$MANUAL,
        "version", \$VERSION
    );
    pod2usage(1) if $HELP;
-    pod2usage(-verbose => 2 ) if $MANUAL;
+    pod2usage( -verbose => 2 ) if $MANUAL;
-    if ( $VERSION )
+    if ($VERSION)
    {
-        my $REVISION      = '$Revision: 1.65 $';
+        my $REVISION = '$Revision: 1.65 $';
        if ( $REVISION =~ /1.([0-9.]+) / )
        {
            $REVISION = $1;
@@ -459,10 +454,11 @@ sub parseCommandLineArguments
 sub checkArguments
 {
    #
    #  We require a location.
    #
-    if ( ! defined( $CONFIG{'location'} ) )
+    if ( !defined( $CONFIG{'location'} ) )
    {
        print "The '--location' argument is mandatory\n";
        exit 1;
@@ -472,7 +468,7 @@ sub checkArguments
    #
    #  Test that the location we've been given exists
    #
-    if ( ! -d $CONFIG{'location'} )
+    if ( !-d $CONFIG{'location'} )
    {
        print "The installation directory we've been given doesn't exist\n";
        print "We tried to use : $CONFIG{'location'}\n";
@@ -483,7 +479,7 @@ sub checkArguments
    #
    #  We require a distribution name.
    #
-    if ( ! defined( $CONFIG{'dist'} ) )
+    if ( !defined( $CONFIG{'dist'} ) )
    {
        print "The '--dist' argument is mandatory\n";
        exit 1;
@@ -497,9 +493,9 @@ sub checkArguments
    #  If there are no scripts then we clearly cannot
    # customise it!
    #
-    my $dir = "/usr/lib/xen-tools/"  . $CONFIG{'dist'} .  ".d";
+    my $dir = "/usr/lib/xen-tools/" . $CONFIG{'dist'} . ".d";
-    if ( ! -d $dir )
+    if ( !-d $dir )
    {
        print <<E_OR;
@@ -524,7 +520,8 @@ E_OR
    {
        foreach my $recognised ( keys %dispatch )
        {
-            $valid = 1 if ( lc($CONFIG{'install-method'}) eq lc($recognised) );
+            $valid = 1
              if ( lc( $CONFIG{'install-method'} ) eq lc($recognised) );
        }
    }
    else
@@ -552,7 +549,6 @@ EOF
 =begin doc
  A utility method to run a system command.  We will capture the return
@@ -566,7 +562,7 @@ EOF
 sub runCommand
 {
-    my ( $cmd ) = (@_ );
+    my ($cmd) = (@_);
    #
    #  Command start.
@@ -595,12 +591,11 @@ sub runCommand
    #
    $CONFIG{'verbose'} && print "Finished : $cmd\n";
-    return( $output );
+    return ($output);
 }
 =begin doc
  This function will copy all the .deb files from one directory
@@ -613,7 +608,7 @@ sub runCommand
 sub copyDebFiles
 {
-    my ( $source, $dest ) = ( @_ );
+    my ( $source, $dest ) = (@_);
    print "Copying files from $source -> $dest\n";
@@ -631,7 +626,7 @@ sub copyDebFiles
        #
        #  Only copy if the file doesn't already exist.
        #
-        if ( ! ( -e $dest . "/" . $name ) )
+        if ( !( -e $dest . "/" . $name ) )
        {
            File::Copy::cp( $file, $dest );
        }
@@ -642,8 +637,6 @@ sub copyDebFiles
 ###
 #
 #  Installation functions follow.
@@ -652,7 +645,6 @@ sub copyDebFiles
 =begin doc
  Install a new image of a distribution using `cp`.
@@ -663,14 +655,15 @@ sub copyDebFiles
 sub do_copy
 {
    #
    #  Find the copy command to run from the configuration file.
    #
-    my $cmd = $CONFIG{'copy-cmd'} ;
+    my $cmd = $CONFIG{'copy-cmd'};
-    if ( !defined( $cmd ) )
+    if ( !defined($cmd) )
    {
        print "Falling back to default copy command\n";
-        $cmd = '/bin/cp -a $src/* $dest';   # Note: single quotes.
+        $cmd = '/bin/cp -a $src/* $dest';    # Note: single quotes.
    }
    #
@@ -682,12 +675,11 @@ sub do_copy
    #
    #  Run the copy command.
    #
-    runCommand( $cmd );
+    runCommand($cmd);
 }
 =begin doc
  Install a new image of Debian using 'debootstrap'.
@@ -698,12 +690,13 @@ sub do_copy
 sub do_debootstrap
 {
    #
    #  The command is a little configurable - mostly to allow you
    # to use cdebootstrap.
    #
-    my $cmd = $CONFIG{'debootstrap-cmd'} ;
+    my $cmd = $CONFIG{'debootstrap-cmd'};
-    if ( !defined( $cmd ) )
+    if ( !defined($cmd) )
    {
        print "Falling back to default debootstrap command\n";
        $cmd = '/usr/sbin/debootstrap';
@@ -717,9 +710,10 @@ sub do_debootstrap
    if ( $CONFIG{'cache'} eq "yes" )
    {
        print "\nCopying files from host to image.\n";
-        runCommand( "mkdir -p $CONFIG{'location'}/var/cache/apt/archives" );
+        runCommand("mkdir -p $CONFIG{'location'}/var/cache/apt/archives");
-        copyDebFiles( "/var/cache/apt/archives", "$CONFIG{'location'}/var/cache/apt/archives" );
+        copyDebFiles( "/var/cache/apt/archives",
-        print( "Done\n" );
+                      "$CONFIG{'location'}/var/cache/apt/archives" );
        print("Done\n");
    }
    #
@@ -736,19 +730,20 @@ sub do_debootstrap
    #
    if ( $CONFIG{'arch'} )
    {
-        $EXTRA .= " --arch $CONFIG{'arch'}"
+        $EXTRA .= " --arch $CONFIG{'arch'}";
    }
    #
    #  This is the command we'll run
    #
-    my $command = "$cmd $EXTRA $CONFIG{'dist'} $CONFIG{'location'} $CONFIG{'mirror'}";
+    my $command =
      "$cmd $EXTRA $CONFIG{'dist'} $CONFIG{'location'} $CONFIG{'mirror'}";
    #
    #  Run the command.
    #
-    runCommand( $command );
+    runCommand($command);
    #
@@ -760,7 +755,7 @@ sub do_debootstrap
        print "\nCopying files from new installation to host.\n";
        copyDebFiles( "$CONFIG{'location'}/var/cache/apt/archives",
                      "/var/cache/apt/archives" );
-        print( "Done\n" );
+        print("Done\n");
    }
@@ -768,7 +763,6 @@ sub do_debootstrap
 =begin doc
  Install a system using the image-server.
@@ -781,6 +775,7 @@ sub do_debootstrap
 sub do_image_server
 {
    #
    #  Load the modules we require.
    #
@@ -793,8 +788,8 @@ sub do_image_server
    # which users will not require for the typical installation
    # method(s).
    #
-    eval( $test );
+    eval($test);
-    if ( $@ )
+    if ($@)
    {
        die "The module LDP::UserAgent wasn't found...\n";
    }
@@ -818,15 +813,16 @@ sub do_image_server
    #
    $request .= "&arch=amd64";
    $request .= "&root_device=/dev/sda";
-    $request .= "&ip1="      . $ENV{'ip1'};
+    $request .= "&ip1=" . $ENV{'ip1'};
-    $request .= "&dist="     . CGI::escapeHTML( $CONFIG{'dist'} );
+    $request .= "&dist=" . CGI::escapeHTML( $CONFIG{'dist'} );
    $request .= "&hostname=" . CGI::escapeHTML( $CONFIG{'hostname'} );
    #
    #  We only care about some keys
    #
-    foreach my $k ( qw/ dhcp broadcast gateway netmask  / )
+    foreach my $k (qw/ dhcp broadcast gateway netmask  /)
    {
        # Skip values which aren't defined.
        next unless defined $ENV{$k};
@@ -848,8 +844,8 @@ sub do_image_server
    #
    #  Do the creation step
    #
-    my $response = $ua->get( $request );
+    my $response = $ua->get($request);
-    if ($response->is_success)
+    if ( $response->is_success )
    {
        my $content = $response->content;
@@ -857,70 +853,74 @@ sub do_image_server
        {
            my $session = $1;
            my $new     = $CONFIG{'install-source'};
-            $new       .= "/fetch.cgi?session=$session";
+            $new .= "/fetch.cgi?session=$session";
            my $attempt = 1;
            # Make sure we don't wait indefinitely.
-            while( $attempt < $attempts )
+            while ( $attempt < $attempts )
            {
                $CONFIG{'verbose'} && print "Request: [$attempt/$attempts]\n";
                #
                #  Make a request to see if our tar file is ready yet.
                #
-                $response = $ua->head( $new );
+                $response = $ua->head($new);
                if ( $response->is_success )
                {
                    #
                    #  Get the headers
                    #
-                    my $header  = $response->headers();
+                    my $header = $response->headers();
-                    my $type    = $header->{'content-type'};
+                    my $type   = $header->{'content-type'};
                    #
                    # OK our file is correct.
                    #
                    if ( $type =~ /tar/ )
                    {
                        #
                        #  Download it to the installation root.
                        #
                        $ua->get( $new,
-                                  ":content_file" => $CONFIG{'location'} . "/$session.tar"
+                                      ":content_file" => $CONFIG{'location'}
-                                );
+                                    . "/$session.tar" );
                        #
                        #  If it worked .. then untar, remove, and return.
                        #
-                        system( "cd $CONFIG{'location'} && tar --numeric-owner -xf $session.tar && rm -f $CONFIG{'location'}/$session.tar" );
+                        system(
 "cd $CONFIG{'location'} && tar --numeric-owner -xf $session.tar && rm -f $CONFIG{'location'}/$session.tar"
                        );
                        return 1;
                    }
                }
-                sleep( $sleep );
+                sleep($sleep);
                $attempt += 1;
            }
-            print ( "ERROR:  Timeout waiting for image to be ready." );
+            print("ERROR:  Timeout waiting for image to be ready.");
            return 0;
        }
        else
        {
-            print( "ERROR:  Failed to find session.  Received this:\n$content\n" );
+            print(
                 "ERROR:  Failed to find session.  Received this:\n$content\n");
            return 0;
        }
    }
    else
    {
-        print( "ERROR: Submitting the image create request failed:\n" . $response->status_line );
+        print( "ERROR: Submitting the image create request failed:\n"
               . $response->status_line );
        return 0;
    }
 }
 =begin doc
  Install a new distribution of GNU/Linux using the rpmstrap tool.
@@ -931,17 +931,19 @@ sub do_image_server
 sub do_rinse
 {
    #
    #  The command we're going to run.
    #
-    my $command = "rinse --distribution=$CONFIG{'dist'} --directory=$CONFIG{'location'}";
+    my $command =
      "rinse --distribution=$CONFIG{'dist'} --directory=$CONFIG{'location'}";
    #
    #  Propogate the --arch argument
    #
    if ( $CONFIG{'arch'} )
    {
-        $command .= " --arch $CONFIG{'arch'}"
+        $command .= " --arch $CONFIG{'arch'}";
    }
@@ -953,7 +955,7 @@ sub do_rinse
        $command .= " --verbose";
    }
-    runCommand( $command );
+    runCommand($command);
 }
@@ -972,7 +974,7 @@ sub do_rpmstrap
    #
    #  Propogate the verbosity setting.
    #
-    my $EXTRA='';
+    my $EXTRA = '';
    if ( $CONFIG{'verbose'} )
    {
        $EXTRA .= " --verbose";
@@ -990,18 +992,17 @@ sub do_rpmstrap
    #  Setup mirror if present.
    #
    my $mirror = "";
-    $mirror    = $CONFIG{'mirror'} if ( $CONFIG{'mirror'} );
+    $mirror = $CONFIG{'mirror'} if ( $CONFIG{'mirror'} );
    #
    #  The command we're going to run.
    #
    my $command = "rpmstrap $EXTRA $CONFIG{'dist'} $CONFIG{'location'} $mirror";
-    runCommand( $command );
+    runCommand($command);
 }
 =begin doc
  Install a new image of a distribution using `tar`.
@@ -1012,14 +1013,15 @@ sub do_rpmstrap
 sub do_tar
 {
    #
    #  Find the tar command to run from the configuration file.
    #
-    my $cmd = $CONFIG{'tar-cmd'} ;
+    my $cmd = $CONFIG{'tar-cmd'};
-    if ( !defined( $cmd ) )
+    if ( !defined($cmd) )
    {
        print "Falling back to default tar command\n";
-        $cmd = '/bin/tar --numeric-owner -xvf $src';  # Note: single quotes.
+        $cmd = '/bin/tar --numeric-owner -xvf $src';    # Note: single quotes.
    }
    #
@@ -1030,5 +1032,5 @@ sub do_tar
    #
    #  Run a command to copy an installed system into the new root.
    #
-    runCommand( "cd $CONFIG{'location'} && $cmd" );
+    runCommand("cd $CONFIG{'location'} && $cmd");
 }
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,62 @@
 xen-tools (4.1-1) unstable; urgency=low
  - New command line argument '--no-hosts' to avoid touching /etc/hosts
    on dom0
  - New command line argument '--pygrub' to setup a guest for pygrub use.
  - Generated configuration file should work for --image-dev + --swap-dev
    again.
  - Always use /dev/pts for new images.
 -- Steve Kemp <skx@debian.org>  Sun, 23 Nov 2008 13:06:01 +0000
 xen-tools (3.9-6) unstable; urgency=low
  - Allow command line flags to be unset.
    Thanks to Ruud Koolen for the patch.
    (Closes: #484338)
 -- Steve Kemp <skx@debian.org>  Tue, 14 Oct 2008 22:00:22 +0000
 xen-tools (3.9-5) unstable; urgency=medium
  - Record the ARCH for RPM-based distros.
    (Closes: #475125)
  - Abort if the generated configuration file already exists.
    (Closes: #499475)
 -- Steve Kemp <skx@debian.org>  Mon, 13 Oct 2008 19:20:21 +0000
 xen-tools (3.9-4) unstable; urgency=high
  * Changed two defaults in xen-tools.conf to conform
    to the defaults used by the xen packages:
      + serial_device: tty1 -> hvc0
      + disk_device:   sda  -> xvda
  * Priority High because of RC bug. (closes: #499282)
 -- Radu Spineanu <radu@debian.org>  Tue, 30 Sep 2008 02:02:21 +0300
 xen-tools (3.9-3) unstable; urgency=medium
  - Ensure that Fedora guests get /dev/pts mounted.
    Thanks to  Giovanni Biscuolo (Closes: #474919)
  - Add the new hostnames to /etc/hosts on the dom0 in the correct order.
    Thanks to Wolfgang Karall (Closes: #477775)
  - Ensure that packages are remoed non-interactively for scripted stuff.
    Thanks to Wolfgang Karall (Closes: #477629)
  - Correctly handle custom partitioning systems.
    Thanks to Stéphane AICARDI (Closes: #477334)
 -- Steve Kemp <skx@debian.org>  Wed, 20 Feb 2007 21:22:23 +0000
 xen-tools (3.9-2) unstable; urgency=high
  - Ensure that the hook scripts which setup networking details for
    Debian & Ubuntu guests will correctly setup teh broadcast address.
 -- Steve Kemp <skx@debian.org>  Wed, 20 Feb 2007 21:22:23 +0000
 xen-tools (3.9-1) unstable; urgency=low
  - general:
@@ -37,9 +96,9 @@ xen-tools (3.8-1) unstable; urgency=low
    (Closes: #439233)
  * Use 'apt-get remove' rather than 'dpkg --purge' when removing packages
    in hooks.  (Closes: #441981)
- 
+
  [ Radu Spineanu ]
-  * debian/control: Roland Stigge and I switched maintainer places. 
+  * debian/control: Roland Stigge and I switched maintainer places.
  * debian/control: Added Steve Kemp to Uploaders.
 -- Radu Spineanu <radu@debian.org>  Wed, 03 Oct 2007 00:39:58 +0300
@@ -149,8 +208,8 @@ xen-tools (3.0-1) unstable; urgency=low
 xen-tools (3.0~beta1-2) unstable; urgency=low
-  * Remove old symlinks and directories during preinst. (closes: #401834) 
+  * Remove old symlinks and directories during preinst. (closes: #401834)
-  
+
 -- Radu Spineanu <radu@debian.org>  Wed,  6 Dec 2006 15:58:44 +0200
 xen-tools (3.0~beta1-1) unstable; urgency=low
@@ -158,7 +217,7 @@ xen-tools (3.0~beta1-1) unstable; urgency=low
  * Development snapshot
  * Mention the --mac option in the man page.
    (closes: #399708)
-  * Set the locale version to 'C' to avoid perl warnings. 
+  * Set the locale version to 'C' to avoid perl warnings.
    (closes: #399778)
 -- Radu Spineanu <radu@debian.org>  Mon,  4 Dec 2006 16:55:31 +0200
@@ -181,7 +240,7 @@ xen-tools (2.8-2) unstable; urgency=low
 xen-tools (2.8-1) unstable; urgency=low
-  * New upstream release 
+  * New upstream release
 -- Radu Spineanu <radu@debian.org>  Wed,  8 Nov 2006 00:35:40 +0200
@@ -203,13 +262,13 @@ xen-tools (2.7-3) unstable; urgency=low
 xen-tools (2.7-2) unstable; urgency=low
-  * Fixed 2.6-2 changelog entry. 
+  * Fixed 2.6-2 changelog entry.
 -- Radu Spineanu <radu@debian.org>  Sat, 14 Oct 2006 02:21:25 +0300
 xen-tools (2.7-1) unstable; urgency=low
-  * New upstream release 
+  * New upstream release
 -- Radu Spineanu <radu@debian.org>  Sat, 14 Oct 2006 02:16:20 +0300
@@ -270,7 +329,7 @@ xen-tools (2.3-1) unstable; urgency=high
    using a specific version of debootstrap.
    - Updated manpages to avoid word-wrapping.
    - Updated --noswap option such that a LVM swap volume isn't created.
-    - Reverted the usage of '--keep-debootstrap-dir' since that is a 
+    - Reverted the usage of '--keep-debootstrap-dir' since that is a
      "recent" thing.  Will switch to keeping a global logfile for error
      purposes.
      (Closes: #383589)
@@ -312,7 +371,7 @@ xen-tools (2.2-2) unstable; urgency=low
 xen-tools (2.2-1) unstable; urgency=high
  * New upstream release, fixes several important bugs hence urgency=high.
-    - /etc/fstab creation generated correctly for reiserfs 
+    - /etc/fstab creation generated correctly for reiserfs
      (Closes: #379023) (Closes: #379096)
    - --force works with xfs filesystems.
      (Closes: #377684)
@@ -363,7 +422,7 @@ xen-tools (2.0-1) unstable; urgency=low
    (Closes: #373800)
 -- Steve Kemp <skx@debian.org>  Tue, 20 Jun 2006 09:57:45 +0000
-  
+
 xen-tools (1.6-1) unstable; urgency=low
  * New upstream release (closes: #368983)
@@ -406,26 +465,26 @@ xen-tools (1.4-1) unstable; urgency=low
     (Closes: #363070)
  *  Added new option --initrd to specify the initial ramdisk.
     (Closes: #365500)
-  
+
 -- Steve Kemp <skx@debian.org>  Sun, 7 May 2006 14:43:43 +0000
 xen-tools (1.3-1) unstable; urgency=low
  * New upstream release
-     + Ignore .dpkg-(new|old) files in the hooks directory 
+     + Ignore .dpkg-(new|old) files in the hooks directory
       (closes: #357716)
 -- Radu Spineanu <radu@debian.org>  Sat, 15 Apr 2006 13:44:36 +0300
 xen-tools (1.1-1) unstable; urgency=low
-  * New upstream release 
+  * New upstream release
-     + Disk devices are no longer created one unit bigger than asked 
+     + Disk devices are no longer created one unit bigger than asked
       (closes: #353155)
     + Populate /dev on the virtual server (closes: #352942)
     + Added --use-ide flag in case people want ide style device names
       (closes: #352937)
-     + xen.cfg is no longer broken when using LVM 
+     + xen.cfg is no longer broken when using LVM
 -- Radu Spineanu <radu@debian.org>  Tue, 21 Feb 2006 01:28:28 +0200
--- a/debian/control
+++ b/debian/control
@@ -4,7 +4,7 @@ Priority: extra
 Maintainer: Roland Stigge <stigge@antcom.de>
 Uploaders: Radu Spineanu <radu@debian.org>, Steve Kemp <skx@debian.org>
 Build-Depends: debhelper (>= 4.0.0), libtest-pod-perl, libtext-template-perl
-Standards-Version: 3.7.3
+Standards-Version: 3.8.0
 Homepage: http://xen-tools.org/software/xen-tools
 Package: xen-tools
--- a/etc/xen-tools.conf
+++ b/etc/xen-tools.conf
@@ -248,17 +248,17 @@ reiser_options = defaults
 #
-#  If you're using a newer version of the Xen guest kernel you will
+#  If you're using the lenny or later version of the Xen guest kernel you will
-# need to make sure that you use 'xvc0' for the guest serial device,
+# need to make sure that you use 'hvc0' for the guest serial device,
 # and 'xvdX' instead of 'sdX' for serial devices.
 #
 #  You may specify the things to use here:
 #
-# serial_device = tty1 #default
+# serial_device = hvc0 #default
-# serial_device = xvc0
+# serial_device = tty1
 #
-# disk_device = sda  #default
+# disk_device = xvda #default
-# disk_device = xvda
+# disk_device = sda
 #
--- a/etc/xm.tmpl
+++ b/etc/xm.tmpl
@@ -6,37 +6,76 @@
 #
 #  Kernel + memory size
 #
-{ if ( $kernel )
+{ if ( ( $kernel ) && ( !defined($pygrub)) )
  {
    $OUT.= "kernel      = '$kernel'";
  }
 }
-{ if ( $initrd )
+{ if ( ( $initrd ) && ( !defined($pygrub)) )
  {
    $OUT.= "ramdisk     = '$initrd'";
  }
 }
 {
  if ( $pygrub )
  {
    $OUT .= "bootloader = '/usr/bin/pygrub'\n";
  }
 }
 memory      = '{$memory}'
 #
 #  Disk device(s).
 #
-{ 
+{
-  for ( my $i = 0; $i <= $#PARTITIONS; $i++ )
+  if ( !defined($image_vbd ) )
  {
    for ( my $i = $#PARTITIONS; $i >= 0 ; $i-- )
    {
      if ( $PARTITIONS[$i]{'mountpoint'} eq '/' )
      {
          $OUT .= "root        = '/dev/$device" . ($i + 1) . " ro'\n";
      }
-  }
+    }
-  $OUT .= "disk        = [\n";
+    $OUT .= "disk        = [\n";
-  for ( my $i = 0; $i <= $#PARTITIONS; $i++ )
+    for ( my $i = $#PARTITIONS; $i >= 0 ; $i-- )
-  {
+    {
      $OUT .= "                  '$PARTITIONS[$i]{'imagetype'}$PARTITIONS[$i]{'image'},$device" . ( $i + 1 ) .",w',\n";
    }
    $OUT .= "              ]\n";
  }
  $OUT .= "              ]\n";
 }
 #
 #  Physical volumes
 #
 {
    if ( ( $swap_vbd ) && ( $image_vbd ) )
    {
    $OUT .= "root  = '/dev/$device" . "2 ro'\n";
    $OUT .= "disk  = [ ";
    if ( $image_vbd )
    {
         $OUT .= "'$image_vbd," . $device . "2,w'";
    }
    if ( $swap_vbd )
    {
         if ( $image_vbd )
         {
            $OUT .= ",";
         }
         $OUT .= "'$swap_vbd," . $device . "1,w'";
    }
    $OUT .= " ]\n";
    }
 }
 #
 #  Hostname
 #
@@ -52,12 +91,12 @@ name        = '{$hostname}'
    # Setup the mac address, if present.
    my $m = '';
    if ( $mac )
-    { 
+    {
      $m = "mac=$mac"
    }
    $OUT .= "vif         = [ '$m' ]";
-  }    
+  }
  else
  {
    #
@@ -65,12 +104,20 @@ name        = '{$hostname}'
    #
    my $m = '';
    if ( $mac )
-    { 
+    {
      $m = ",mac=$mac"
    }
-    $OUT .= "vif         = [ 'ip=$ip1"; 
+    my $vn = '';
-    $OUT .= "$m' ]";
+    if ( $vifname )
    {
      $vn = ",vifname=$vifname";
    }
    $OUT .= "vif         = [ 'ip=$ip1";
    $OUT .= "$m";
    $OUT .= "$vn";
    $OUT .= "' ]";
  }
 }
--- a/hooks/centos-4/15-setup-arch
+++ b/hooks/centos-4/15-setup-arch
@@ -0,0 +1,44 @@
 #!/bin/sh
 prefix=$1
 #
 #  Source our common functions
 #
 if [ -e /usr/lib/xen-tools/common.sh ]; then
    . /usr/lib/xen-tools/common.sh
 else
    . ./hooks/common.sh
 fi
 #
 # Log our start
 #
 logMessage Script $0 starting
 #
 #  Record arch, if present.
 #
 if [ -d $prefix/etc/rpm ]; then
    logMessage Found /etc/rpm
    #
    #  If i386 then record this
    #
    if [ "$arch" = "i386" ]; then
        echo "i386-fedora-linux-gnu" >> $prefix/etc/rpm/platform
    fi
 else
    logMessage Failed to find /etc/rpm
 fi
 #
 #  Log our finish
 #
 logMessage Script $0 finished
--- a/hooks/centos-4/50-setup-hostname
+++ b/hooks/centos-4/50-setup-hostname
@@ -89,23 +89,27 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
        #
        #  If we've updated the /etc/hosts file on the host machine
        # and there is an installation of dnsmasq installed then
        # reload it.
        #
        #  This will let the local LAN clients lookup the new address.
        #
        if [ -x /usr/sbin/dnsmasq ] ; then
            if [ -e /var/run/dnsmasq.pid ]; then
-                logMessage Allowing DNSMasq to restart.
+            #
-                kill -HUP `cat /var/run/dnsmasq.pid`
+            #  If we've updated the /etc/hosts file on the host machine
            # and there is an installation of dnsmasq installed then
            # reload it.
            #
            #  This will let the local LAN clients lookup the new address.
            #
            if [ -x /usr/sbin/dnsmasq ] ; then
                if [ -e /var/run/dnsmasq.pid ]; then
                    logMessage Allowing DNSMasq to restart.
                    kill -HUP `cat /var/run/dnsmasq.pid`
                fi
            fi
        fi
    fi
--- a/hooks/centos-4/90-make-fstab
+++ b/hooks/centos-4/90-make-fstab
@@ -64,6 +64,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620 0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -75,7 +76,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -84,7 +85,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/hooks/centos-5/15-setup-arch
+++ b/hooks/centos-5/15-setup-arch
@@ -0,0 +1,44 @@
 #!/bin/sh
 prefix=$1
 #
 #  Source our common functions
 #
 if [ -e /usr/lib/xen-tools/common.sh ]; then
    . /usr/lib/xen-tools/common.sh
 else
    . ./hooks/common.sh
 fi
 #
 # Log our start
 #
 logMessage Script $0 starting
 #
 #  Record arch, if present.
 #
 if [ -d $prefix/etc/rpm ]; then
    logMessage Found /etc/rpm
    #
    #  If i386 then record this
    #
    if [ "$arch" = "i386" ]; then
        echo "i386-fedora-linux-gnu" >> $prefix/etc/rpm/platform
    fi
 else
    logMessage Failed to find /etc/rpm
 fi
 #
 #  Log our finish
 #
 logMessage Script $0 finished
--- a/hooks/centos-5/50-setup-hostname
+++ b/hooks/centos-5/50-setup-hostname
@@ -89,23 +89,24 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
           #
           #  If we've updated the /etc/hosts file on the host machine
           # and there is an installation of dnsmasq installed then
           # reload it.
           #
           #  This will let the local LAN clients lookup the new address.
           #
            if [ -x /usr/sbin/dnsmasq ] ; then
                if [ -e /var/run/dnsmasq.pid ]; then
-        #
+                    logMessage Allowing DNSMasq to restart.
-        #  If we've updated the /etc/hosts file on the host machine
+                    kill -HUP `cat /var/run/dnsmasq.pid`
-        # and there is an installation of dnsmasq installed then
+                fi
        # reload it.
        #
        #  This will let the local LAN clients lookup the new address.
        #
        if [ -x /usr/sbin/dnsmasq ] ; then
            if [ -e /var/run/dnsmasq.pid ]; then
                logMessage Allowing DNSMasq to restart.
                kill -HUP `cat /var/run/dnsmasq.pid`
            fi
        fi
    fi
--- a/hooks/common.sh
+++ b/hooks/common.sh
@@ -12,7 +12,7 @@
 # might develop.
 #
 # Steve
-# -- 
+# --
 #
@@ -130,7 +130,7 @@ disableStartStopDaemon ()
   chmod 755 "${daemonfile}"
   logMessage "start-stop-daemon disabled / made a stub."
 }
- 
+
 #
@@ -151,7 +151,7 @@ enableStartStopDaemon ()
   fi
 }
- 
+
 #
@@ -182,7 +182,7 @@ removeDebianPackage ()
    #
    # Purge the packages we've been given.
    #
-    chroot ${prefix} /usr/bin/apt-get remove --purge "$@"
+    chroot ${prefix} /usr/bin/apt-get remove --yes --purge "$@"
 }
@@ -232,7 +232,7 @@ installGentooPackage ()
    # Log our options
    #
    logMessage "Installing Gentoo package ${package} to prefix ${prefix}"
-    
+
    logMessage "NOTE: Not doing anything - this is a stub - FIXME"
 }
--- a/hooks/dapper/50-setup-hostname
+++ b/hooks/dapper/50-setup-hostname
@@ -89,24 +89,25 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-        #
+            #
-        #  If we've updated the /etc/hosts file on the host machine
+            #  If we've updated the /etc/hosts file on the host machine
-        # and there is an installation of dnsmasq installed then
+            # and there is an installation of dnsmasq installed then
-        # reload it.
+            # reload it.
-        #
+            #
-        #  This will let the local LAN clients lookup the new address.
+            #  This will let the local LAN clients lookup the new address.
-        #
+             #
-        if [ -x /usr/sbin/dnsmasq ] ; then
+            if [ -x /usr/sbin/dnsmasq ] ; then
-            if [ -e /var/run/dnsmasq.pid ]; then
+                if [ -e /var/run/dnsmasq.pid ]; then
                logMessage Allowing DNSMasq to restart.
                kill -HUP `cat /var/run/dnsmasq.pid`
                fi
            fi
        fi
    fi
--- a/hooks/dapper/90-make-fstab
+++ b/hooks/dapper/90-make-fstab
@@ -61,6 +61,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620 0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -72,7 +73,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -81,7 +82,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/hooks/debian/40-setup-networking
+++ b/hooks/debian/40-setup-networking
@@ -82,7 +82,7 @@ setupStaticNetworking ()
    #
    bcast='';
    if [ ! -z "${broadcast}" ]; then
-      bcast=' broadcast ${broadcast}'
+      bcast=" broadcast ${broadcast}"
    fi
    #
--- a/hooks/debian/50-setup-hostname
+++ b/hooks/debian/50-setup-hostname
@@ -89,23 +89,24 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-        #
+            #
-        #  If we've updated the /etc/hosts file on the host machine
+            #  If we've updated the /etc/hosts file on the host machine
-        # and there is an installation of dnsmasq installed then
+            # and there is an installation of dnsmasq installed then
-        # reload it.
+            # reload it.
-        #
+            #
-        #  This will let the local LAN clients lookup the new address.
+            #  This will let the local LAN clients lookup the new address.
-        #
+            #
-        if [ -x /usr/sbin/dnsmasq ] ; then
+            if [ -x /usr/sbin/dnsmasq ] ; then
-            if [ -e /var/run/dnsmasq.pid ]; then
+                if [ -e /var/run/dnsmasq.pid ]; then
-                logMessage Allowing DNSMasq to restart.
+                    logMessage Allowing DNSMasq to restart.
-
+                    kill -HUP `cat /var/run/dnsmasq.pid`
-                kill -HUP `cat /var/run/dnsmasq.pid`
+                fi
            fi
        fi
    fi
--- a/hooks/debian/90-make-fstab
+++ b/hooks/debian/90-make-fstab
@@ -60,6 +60,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620 0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -71,7 +72,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -80,7 +81,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/hooks/edgy/20-setup-apt
+++ b/hooks/edgy/20-setup-apt
@@ -41,7 +41,8 @@ cp /etc/resolv.conf ${prefix}/etc
 #
 #  Process any of the present apt-conf setup lines.
 #
-for i in /etc/apt/apt.conf /etc/apt/apt.conf.d/* ; do 
+for i in /etc/apt/apt.conf $(run-parts --list /etc/apt/apt.conf.d) ; do
    #
    # If the file exists.  (Need this in case the literal glob fails.)
@@ -52,7 +53,8 @@ for i in /etc/apt/apt.conf /etc/apt/apt.conf.d/* ; do
        # Save the matching line(s) to the proxy guess file.
        #
        logMessage The use of a proxy detected.
-        grep -i HTTP::Proxy $i >> ${prefix}/etc/apt/apt.conf.d/proxy-guess
+
        grep -v '^//' $i | grep -i HTTP::Proxy >>${prefix}/etc/apt/apt.conf.d/proxy-guess
    fi
 done
--- a/hooks/edgy/30-disable-gettys
+++ b/hooks/edgy/30-disable-gettys
@@ -42,7 +42,10 @@ if [ ! -z "${serial_device}" ]; then
    # replace existing device.
    mv ${prefix}/etc/event.d/tty1  ${prefix}/etc/event.d/${serial_device}
-    sed -i -e s/tty1/${serial_device}/ ${prefix}/etc/inittab
+    sed -i -e s/tty1/${serial_device}/ ${prefix}/etc/event.d/${serial_device}
    [ -f ${prefix}/etc/inittab ] && sed -i -e s/tty1/${serial_device}/ ${prefix}/etc/inittab
    # make sure that it is allowed to login.
    echo $serial_device >> ${prefix}/etc/securetty
--- a/hooks/edgy/40-setup-networking
+++ b/hooks/edgy/40-setup-networking
@@ -72,7 +72,7 @@ setupStaticNetworking ()
    #
    bcast='';
    if [ ! -z "${broadcast}" ]; then
-      bcast=' broadcast ${broadcast}'
+      bcast=" broadcast ${broadcast}"
    fi
    #
--- a/hooks/edgy/50-setup-hostname
+++ b/hooks/edgy/50-setup-hostname
@@ -88,23 +88,24 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-        #
+            #
-        #  If we've updated the /etc/hosts file on the host machine
+            #  If we've updated the /etc/hosts file on the host machine
-        # and there is an installation of dnsmasq installed then
+            # and there is an installation of dnsmasq installed then
-        # reload it.
+            # reload it.
-        #
+            #
-        #  This will let the local LAN clients lookup the new address.
+            #  This will let the local LAN clients lookup the new address.
-        #
+            #
-        if [ -x /usr/sbin/dnsmasq ] ; then
+            if [ -x /usr/sbin/dnsmasq ] ; then
-            if [ -e /var/run/dnsmasq.pid ]; then
+                if [ -e /var/run/dnsmasq.pid ]; then
-                logMessage Allowing DNSMasq to restart.
+                    logMessage Allowing DNSMasq to restart.
-
+                    kill -HUP `cat /var/run/dnsmasq.pid`
-                kill -HUP `cat /var/run/dnsmasq.pid`
+                fi
            fi
        fi
    fi
--- a/hooks/edgy/90-make-fstab
+++ b/hooks/edgy/90-make-fstab
@@ -61,6 +61,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620 0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -72,7 +73,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -81,7 +82,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/hooks/fedora-core-6/15-setup-arch
+++ b/hooks/fedora-core-6/15-setup-arch
@@ -0,0 +1,44 @@
 #!/bin/sh
 prefix=$1
 #
 #  Source our common functions
 #
 if [ -e /usr/lib/xen-tools/common.sh ]; then
    . /usr/lib/xen-tools/common.sh
 else
    . ./hooks/common.sh
 fi
 #
 # Log our start
 #
 logMessage Script $0 starting
 #
 #  Record arch, if present.
 #
 if [ -d $prefix/etc/rpm ]; then
    logMessage Found /etc/rpm
    #
    #  If i386 then record this
    #
    if [ "$arch" = "i386" ]; then
        echo "i386-fedora-linux-gnu" >> $prefix/etc/rpm/platform
    fi
 else
    logMessage Failed to find /etc/rpm
 fi
 #
 #  Log our finish
 #
 logMessage Script $0 finished
--- a/hooks/fedora-core-6/50-setup-hostname
+++ b/hooks/fedora-core-6/50-setup-hostname
@@ -89,23 +89,25 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-        #
+            #
-        #  If we've updated the /etc/hosts file on the host machine
+            #  If we've updated the /etc/hosts file on the host machine
-        # and there is an installation of dnsmasq installed then
+            # and there is an installation of dnsmasq installed then
-        # reload it.
+            # reload it.
-        #
+            #
-        #  This will let the local LAN clients lookup the new address.
+            #  This will let the local LAN clients lookup the new address.
-        #
+            #
-        if [ -x /usr/sbin/dnsmasq ] ; then
+            if [ -x /usr/sbin/dnsmasq ] ; then
-            if [ -e /var/run/dnsmasq.pid ]; then
+                if [ -e /var/run/dnsmasq.pid ]; then
-                logMessage Allowing DNSMasq to restart.
+                    logMessage Allowing DNSMasq to restart.
-                kill -HUP `cat /var/run/dnsmasq.pid`
+                    kill -HUP `cat /var/run/dnsmasq.pid`
                fi
            fi
        fi
    fi
--- a/hooks/fedora-core-6/90-make-fstab
+++ b/hooks/fedora-core-6/90-make-fstab
@@ -64,6 +64,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620	0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -75,7 +76,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -84,7 +85,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/hooks/gentoo/50-setup-hostname
+++ b/hooks/gentoo/50-setup-hostname
@@ -96,23 +96,24 @@ if [ -z "${dhcp}" ]; then
        #
        name=`echo ${hostname} | awk -F. '{print $1}'`
-        logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
+        if [ -z "${nohosts}" ]; then
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+            logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
            echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-        #
+            #
-        #  If we've updated the /etc/hosts file on the host machine
+            #  If we've updated the /etc/hosts file on the host machine
-        # and there is an installation of dnsmasq installed then
+            # and there is an installation of dnsmasq installed then
-        # reload it.
+            # reload it.
-        #
+            #
-        #  This will let the local LAN clients lookup the new address.
+            #  This will let the local LAN clients lookup the new address.
-        #
+            #
-        if [ -x /usr/sbin/dnsmasq ] ; then
+            if [ -x /usr/sbin/dnsmasq ] ; then
-            if [ -e /var/run/dnsmasq.pid ]; then
+                if [ -e /var/run/dnsmasq.pid ]; then
-                logMessage Allowing DNSMasq to restart.
+                    logMessage Allowing DNSMasq to restart.
-
+                    kill -HUP `cat /var/run/dnsmasq.pid`
-                kill -HUP `cat /var/run/dnsmasq.pid`
+                fi
            fi
        fi
    fi
--- a/hooks/gentoo/90-make-fstab
+++ b/hooks/gentoo/90-make-fstab
@@ -61,6 +61,7 @@ cat <<E_O_FSTAB > ${prefix}/etc/fstab
 #
 # <file system> <mount point>   <type>  <options>       <dump>  <pass>
 proc            /proc           proc    defaults        0       0
 devpts          /dev/pts        devpts  rw,noexec,nosuid,gid=5,mode=620 0  0
 E_O_FSTAB
 for part in `seq 1 ${NUMPARTITIONS}`; do
    eval "PARTITION=\"\${PARTITION${part}}\""
@@ -72,7 +73,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
        x=$(( $x+1 ))
    done
    IFS="${OLDIFS}"
-    
+
    case "${partdata2}" in
        xfs)
            has_xfs=1
@@ -81,7 +82,7 @@ for part in `seq 1 ${NUMPARTITIONS}`; do
            has_reiserfs=1
            ;;
    esac
-    
+
    if [ "${partdata2}" = "swap" ]; then
        echo "/dev/${device}${part} none swap sw 0 0" >> ${prefix}/etc/fstab
    else
--- a/roles/puppet
+++ b/roles/puppet
@@ -0,0 +1,41 @@
 #!/bin/sh
 #
 #  This role installs Puppet upon the new guest system.
 #
 #  It must make sure that the server is not running before it exits
 # otherwise the temporary mounted directory will not be unmountable.
 #
 prefix=$1
 #
 #  Source our common functions - this will let us install a Debian package.
 #
 if [ -e /usr/lib/xen-tools/common.sh ]; then
    . /usr/lib/xen-tools/common.sh
 else
    echo "Installation problem"
 fi
 #
 # Log our start
 #
 logMessage Script $0 starting
 #
 #  Install ssh
 #
 installDebianPackage ${prefix} puppet
 #
 #  Make sure sshd isn't running, this will cause our unmounting of the
 # disk image to fail..
 #
 chroot ${prefix} /etc/init.d/puppet stop
 #
 #  Log our finish
 #
 logMessage Script $0 finished
--- a/t/modules.sh
+++ b/t/modules.sh
@@ -25,7 +25,7 @@ use Test::More qw( no_plan );
 EOF
-for i in `rgrep '^use ' .. | grep -v Expect | grep -v Xen:: | grep -v Moose | awk '{print $2}' | tr -d 
+for i in `rgrep '^use ' .. | grep -v Expect | grep -v POSIX | grep -v Xen:: | grep -v Moose | awk '{print $2}' | tr -d 
 \;\(\) | sort | uniq`; \
    do \
     echo "BEGIN{ use_ok( '$i' ); }"; \
--- a/t/modules.t
+++ b/t/modules.t
@@ -58,10 +58,6 @@ BEGIN{ use_ok( 'Pod::Usage' ); }
 require_ok( 'Pod::Usage' );
 BEGIN{ use_ok( 'POSIX' ); }
 require_ok( 'POSIX' );
 BEGIN{ use_ok( 'strict' ); }
 require_ok( 'strict' );
--- a/t/quoted-strings.t
+++ b/t/quoted-strings.t
@@ -0,0 +1,78 @@
 #!/usr/bin/perl -w
 #
 #  Test that every bash script using variables uses " not '.
 #
 # Steve
 # --
 #
 use strict;
 use File::Find;
 use Test::More qw( no_plan );
 #
 #  Find all the files beneath the current directory,
 # and call 'checkFile' with the name.
 #
 my $dir = undef;
 $dir = "../hooks" if ( -d "../hooks" );
 $dir = "./hooks"  if ( -d "./hooks" );
 ok( defined( $dir ), "Found hook directory" );
 find( { wanted => \&checkFile, no_chdir => 1 }, $dir );
 #
 #  Check a file; if it is a shell script.
 #
 sub checkFile
 {
    # The file.
    my $file = $File::Find::name;
    # We don't care about directories
    return if ( ! -f $file );
    # Finally mercurial files are fine.
    return if ( $file =~ /\.hg\// );
    # See if it is a shell script.
    my $isShell = 0;
    # Read the file.
    open( INPUT, "<", $file );
    foreach my $line ( <INPUT> )
    {
        if ( ( $line =~ /\/bin\/sh/ ) ||
             ( $line =~ /\/bin\/bash/ ) )
        {
            $isShell = 1;
        }
    }
    close( INPUT );
    #
    #  Return if it wasn't a perl file.
    #
    return if ( ! $isShell );
    #
    #  Now read the file.
    #
    open( FILE, "<", $file ) or die "Failed to open file: $file - $!";
    ok( *FILE, "Opened file: $file" );
    foreach my $line (<FILE> )
    {
        chomp( $line );
        next if (!length( $line ) );
        next if ( $line =~ /grep|sed|echo|awk|find|policy-rc.d|chroot|logMessage/ );
        if ( $line =~ /\$/ )
        {
            ok( $line !~ /\'/, "Non-masked line '$line'" );
        }
    }
    close( FILE );
 }
Author	SHA1	Message	Date
Steve Kemp	f968c9dd76	Added tag release-4. for changeset d75c787add2a	2009-01-11 23:22:44 +00:00
Steve Kemp	5ed66652ad	Use perltidy with no args	2009-01-11 23:22:03 +00:00
Steve Kemp	7b29ec1bdf	Fixed tab vs. space	2009-01-11 23:21:25 +00:00
Steve Kemp	31719505f6	Updated.	2009-01-06 21:01:51 +00:00
Steve Kemp	6338ba62c4	Added.	2009-01-06 20:59:55 +00:00
Steve Kemp	3c4e0160ae	Updated.	2008-12-10 21:39:59 +00:00
Steve Kemp	84ee1658d1	Another fixup	2008-12-10 21:35:35 +00:00
Steve Kemp	a28bced5e3	Last juggle.	2008-12-09 14:02:04 +00:00
Steve Kemp	8965988439	Hardy + Intrepid now work	2008-12-08 22:56:55 +00:00
Steve Kemp	1d6771c719	Reverse order.	2008-12-08 22:56:28 +00:00
Steve Kemp	3cb87c09e9	Updated.	2008-12-08 20:35:13 +00:00
Steve Kemp	a95d576a4e	1. Work with partitions. 2. Allow pygrub	2008-11-24 14:37:34 +00:00
Steve Kemp	9d061fe5a6	Always make /dev/pts available	2008-11-24 14:37:14 +00:00
Steve Kemp	22a4774cfe	Updated to work with partitions	2008-11-23 21:12:42 +00:00
Steve Kemp	1b6d3dbdeb	Delete the file if it exists	2008-11-23 21:12:36 +00:00
Steve Kemp	996e7d7e1f	Don't abort if the file exists	2008-11-23 21:11:43 +00:00
Steve Kemp	97d01456a3	Attempt to fixup image-dev	2008-11-23 13:13:38 +00:00
Steve Kemp	aa7a2c4c5e	New command line argument --no-hosts	2008-11-23 13:06:24 +00:00
Steve Kemp	3522a919ce	Allow command line flags to be unset.	2008-10-14 22:04:40 +01:00
Steve Kemp	ef3a15c16c	Updated standards version	2008-10-13 19:24:01 +01:00
Steve Kemp	c85144de0f	Sync	2008-10-13 19:23:15 +01:00
Steve Kemp	455c16cefe	Abort if the generated configuration file already exists. (Closes: #499475)	2008-10-13 19:18:05 +01:00
Steve Kemp	290a30b1b1	Record the arch for rpm-based distros. Closes: 475125	2008-10-13 19:14:47 +01:00
Steve Kemp	8e2f1236fb	Don't test for the POSIX module; per http://www.perlmonks.org/?node_id=689911	2008-06-03 21:49:44 +01:00
Steve Kemp	15436cc018	Correctly sort custom partitions. #477334	2008-04-30 19:06:36 +01:00
Steve Kemp	3717d0cc15	Correctly force purging of packages in the role script(s). #477629	2008-04-30 19:05:54 +01:00
Steve Kemp	5d11b820b7	Add the hostname to dom0's /etc/hosts in the correct order. #477775	2008-04-30 19:05:21 +01:00
Steve Kemp	161ee94632	Add /dev/pts to the fedora guests. #474919	2008-04-30 19:04:04 +01:00
Steve Kemp	9ff14a400e	Updated with the debian release	2008-04-30 19:02:51 +01:00
Steve Kemp	cb77db18b9	added perltidy rule	2008-04-01 20:52:15 +01:00
Steve Kemp	8be8f39add	Ran through perltidy	2008-04-01 20:52:08 +01:00
Steve Kemp	be30692061	Only show the install source if there is one.	2008-03-14 12:12:28 +00:00
Steve Kemp	7a6c7f17c9	Fixed bug where quote characters prevented interpolation. Added naive test case to catch the error next time round..	2008-02-20 11:55:32 +00:00
		`@@ -0,0 +1 @@`
							`d75c787add2a7ceb19b30b018d4d16b7317c772d release-4.`