Document state of Debian package 3.9-6

.hgignore

@@ -1,4 +0,0 @@
-(^|/)CVS($|/)
-(^|/)\.hg($|/)
-(^|/)\.hgtags($|/)
-ChangeLog

Makefile

@@ -200,7 +200,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 +228,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 -b -nt -bt=2 -sbt=1 -bl  -mbl=3 -sbl -bbs -bbb -anl  -lp $$i \
+	; done \
+	; fi
+
 #
 #  Uninstall the software, completely.
 #

bin/xen-create-nfs

@@ -243,6 +243,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -344,6 +345,7 @@ sub parseCommandLineArguments
 
 sub testArguments
 {
+
     #
     #  Hostname is mandatory
     #
@@ -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.
     #
@@ -408,7 +410,8 @@ sub setupAdminUsers
     #
     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) );
 
@@ -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,8 +449,10 @@ 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 - $!";
+        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.

bin/xen-delete-image

@@ -173,7 +173,6 @@ my $RELEASE = '3.9';
 
 
 
-
 #
 # Read the global configuration file if it exists.
 #
@@ -252,7 +251,6 @@ exit 0;
 
 
 
-
 =begin doc
 
   Read the configuration file specified.
@@ -305,6 +303,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -328,7 +327,6 @@ sub readConfigurationFile
 
 
 
-
 =begin doc
 
   Parse the arguments specified upon the command line.
@@ -388,6 +386,7 @@ sub parseCommandLineArguments
 
 sub checkArguments
 {
+
     #
     #  When testing we only care about loopback images, not disk images.
     #
@@ -422,7 +421,6 @@ sub checkArguments
 
 
 
-
 =begin doc
 
   Test to see if the given instance is running.
@@ -442,7 +440,7 @@ sub xenRunning
     while (<CMD>)
     {
         my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
     }
     close(CMD);
 
@@ -516,6 +514,7 @@ sub deleteXenImage
     }
     elsif ( defined( $CONFIG{'lvm'} ) )
     {
+
         #
         #  LVM volumes
         #
@@ -538,6 +537,7 @@ sub deleteXenImage
     }
     elsif ( defined( $CONFIG{'evms'} ) )
     {
+
         #
         #  EVMS volumes
         #
@@ -596,6 +596,7 @@ sub runCommand
     #
     if ( $CONFIG{'verbose'} )
     {
+
         #
         #  Copy stderr to stdout, so we can see it.
         #

bin/xen-list-images

@@ -199,6 +199,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -221,7 +222,6 @@ sub readConfigurationFile
 
 
 
-
 =begin doc
 
   Parse the arguments specified upon the command line.
@@ -238,12 +238,8 @@ sub parseCommandLineArguments
 
     #  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;

bin/xen-resize-guest

@@ -107,8 +107,6 @@ use Text::Template;
 
 
 
-
-
 #
 #  Configuration values read from the command line, or configuration file.
 #
@@ -147,6 +145,7 @@ my $path = undef;
 
 if ( $CONFIG{'dir'} )
 {
+
     #
     #  Make sure we can find the disk
     #
@@ -205,6 +204,7 @@ EOF
 }
 elsif ( $CONFIG{'lvm'} )
 {
+
     #
     #  Make sure we can find the disk
     #
@@ -340,6 +340,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -442,6 +443,7 @@ sub parseCommandLineArguments
 
 sub testArguments
 {
+
     #
     #  Make sure we received a hostname.
     #
@@ -537,7 +539,7 @@ sub xenRunning
     while (<CMD>)
     {
         my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
     }
     close(CMD);
 

bin/xen-update-image

@@ -212,6 +212,7 @@ sub updateXenImage
     #
     if ( $CONFIG{'dir'} )
     {
+
         # The loopback image.
         $img = $CONFIG{'dir'} . "/domains/" . $name . "/disk.img";
 
@@ -225,6 +226,7 @@ sub updateXenImage
     }
     elsif ( $CONFIG{'lvm'} )
     {
+
         # The LVM volume
         $img = "/dev/" . $CONFIG{'lvm'} . "/$name-disk";
 
@@ -239,6 +241,7 @@ 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
@@ -276,9 +279,10 @@ 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.
         #
@@ -288,7 +292,9 @@ sub updateXenImage
         #
         #  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
     {
@@ -306,8 +312,6 @@ sub updateXenImage
 
 
 
-
-
 =begin doc
 
   Test to see if the given instance is running.
@@ -327,7 +331,7 @@ sub xenRunning
     while (<CMD>)
     {
         my $line = $_;
-        $running = 1 if ( $line =~ /\Q$hostname\E/ )
+        $running = 1 if ( $line =~ /\Q$hostname\E/ );
     }
     close(CMD);
 
@@ -336,7 +340,6 @@ sub xenRunning
 
 
 
-
 =begin doc
 
   Read the configuration file specified.
@@ -389,6 +392,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -412,7 +416,6 @@ sub readConfigurationFile
 
 
 
-
 =begin doc
 
   Parse the arguments specified upon the command line.
@@ -430,12 +433,9 @@ 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;
@@ -468,6 +468,7 @@ sub parseCommandLineArguments
 
 sub checkArguments
 {
+
     #
     #  Make sure we got one and only one installation method.
     #

bin/xt-create-xen-config

@@ -160,7 +160,6 @@ my $RELEASE = '3.9';
 
 
 
-
 #
 #  Parse the command line arguments.
 #
@@ -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.
@@ -260,6 +253,7 @@ sub parseCommandLineArguments
 
 sub checkArguments
 {
+
     #
     #  We require an output location.
     #
@@ -274,7 +268,8 @@ sub checkArguments
     #
     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;
     }
@@ -286,7 +281,8 @@ sub checkArguments
     {
         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;
         }
     }
@@ -313,7 +309,8 @@ sub importPartitionsFromEnvironment
     for ( my $i = 1 ; $i <= $ENV{'NUMPARTITIONS'} ; $i++ )
     {
         my @parts = split( /:/, $ENV{'PARTITION' . $i}, 7 );
-        push( @PARTITIONS,
+        push(
+              @PARTITIONS,
               {
                'name'       => $parts[0],
                'size'       => $parts[1],
@@ -341,6 +338,7 @@ sub importPartitionsFromEnvironment
 
 sub createXenConfig
 {
+
     #
     #  The output file we're going to process.
     #
@@ -475,7 +473,6 @@ sub createXenConfig
 
 
 
-
 =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.
     #
@@ -502,7 +500,8 @@ sub setupAdminUsers
     #
     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) );
 
@@ -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,8 +539,10 @@ 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 - $!";
+        print SUDOERS
+          "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
         close(SUDOERS);
 
     }

bin/xt-customize-image

@@ -101,7 +101,6 @@ my $RELEASE = '3.9';
 
 
 
-
 #
 #  Parse the command line arguments.
 #
@@ -128,9 +127,6 @@ exit 0;
 
 
 
-
-
-
 =begin doc
 
   Parse the command line arguments this script was given.
@@ -186,6 +182,7 @@ sub parseCommandLineArguments
 
 sub checkArguments
 {
+
     #
     #  We require a location.
     #
@@ -262,6 +259,7 @@ E_OR
 
 sub runDistributionHooks
 {
+
     #
     #  Hook directory.
     #
@@ -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.
             #

bin/xt-install-image

@@ -127,36 +127,29 @@ 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",
                             needDirectory => 1,
                  },
-   "debootstrap" =>
+                 "debootstrap" => {
-     {
                                    sub        => \&do_debootstrap,
                                    needBinary => "/usr/sbin/debootstrap",
                  },
-   "image-server" =>
+                 "image-server" => {
-     {
                                     sub     => \&do_image_server,
                                     needURL => 1,
                  },
-   "rinse" =>
+                 "rinse" => {
-     {
                              sub        => \&do_rinse,
                              needBinary => "/usr/bin/rinse",
                  },
-   "rpmstrap" =>
+                 "rpmstrap" => {
-     {
                                 sub        => \&do_rpmstrap,
                                 needBinary => "/usr/bin/rpmstrap",
                  },
-   "tar" =>
+                 "tar" => {
-     {
                            sub        => \&do_tar,
                            needBinary => "/bin/tar",
                            needFile   => 1,
@@ -165,8 +158,6 @@ my %dispatch =
 
 
 
-
-
 #
 #  Read the global configuration file.
 #
@@ -206,8 +197,8 @@ 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'} ) )
 {
 
     #
@@ -217,48 +208,54 @@ if ( defined( $CONFIG{'install-method'} ) &&
 
     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;
@@ -306,10 +303,6 @@ else
 
 
 
-
-
-
-
 =begin doc
 
   Read the specified configuration file, and update our global configuration
@@ -367,6 +360,7 @@ sub readConfigurationFile
             # command expansion?
             if ( $val =~ /(.*)`([^`]+)`(.*)/ )
             {
+
                 # store
                 my $pre  = $1;
                 my $cmd  = $2;
@@ -408,6 +402,7 @@ sub parseCommandLineArguments
     #  Parse options.
     #
     GetOptions(
+
         # Mandatory
         "location=s", \$CONFIG{'location'},
         "dist=s",     \$CONFIG{'dist'},
@@ -459,6 +454,7 @@ sub parseCommandLineArguments
 
 sub checkArguments
 {
+
     #
     #  We require a location.
     #
@@ -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
@@ -600,7 +596,6 @@ sub runCommand
 
 
 
-
 =begin doc
 
   This function will copy all the .deb files from one directory
@@ -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,6 +655,7 @@ sub copyDebFiles
 
 sub do_copy
 {
+
     #
     #  Find the copy command to run from the configuration file.
     #
@@ -687,7 +680,6 @@ sub do_copy
 
 
 
-
 =begin doc
 
   Install a new image of Debian using 'debootstrap'.
@@ -698,6 +690,7 @@ sub do_copy
 
 sub do_debootstrap
 {
+
     #
     #  The command is a little configurable - mostly to allow you
     # to use cdebootstrap.
@@ -718,7 +711,8 @@ sub do_debootstrap
     {
         print "\nCopying files from host to image.\n";
         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",
+                      "$CONFIG{'location'}/var/cache/apt/archives" );
         print("Done\n");
     }
 
@@ -736,14 +730,15 @@ 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.
@@ -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.
     #
@@ -827,6 +822,7 @@ sub do_image_server
     #
     foreach my $k (qw/ dhcp broadcast gateway netmask  /)
     {
+
         # Skip values which aren't defined.
         next unless defined $ENV{$k};
 
@@ -883,17 +879,20 @@ sub do_image_server
                     #
                     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;
                     }
                 }
@@ -907,20 +906,21 @@ sub do_image_server
         }
         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'}";
     }
 
 
@@ -1001,7 +1003,6 @@ sub do_rpmstrap
 
 
 
-
 =begin doc
 
   Install a new image of a distribution using `tar`.
@@ -1012,6 +1013,7 @@ sub do_rpmstrap
 
 sub do_tar
 {
+
     #
     #  Find the tar command to run from the configuration file.
     #

debian/changelog

@@ -1,3 +1,51 @@
+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:

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

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
 #
 
 

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
+

hooks/centos-4/50-setup-hostname

@@ -91,7 +91,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
 
         #

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
+

hooks/centos-5/50-setup-hostname

@@ -91,8 +91,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
-
 
         #
         #  If we've updated the /etc/hosts file on the host machine

hooks/common.sh

@@ -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 "$@"
 
 }
 

hooks/dapper/50-setup-hostname

@@ -91,7 +91,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
 
         #

hooks/debian/40-setup-networking

@@ -82,7 +82,7 @@ setupStaticNetworking ()
     #
     bcast='';
     if [ ! -z "${broadcast}" ]; then
-      bcast=' broadcast ${broadcast}'
+      bcast=" broadcast ${broadcast}"
     fi
 
     #

hooks/debian/50-setup-hostname

@@ -91,7 +91,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
         #
         #  If we've updated the /etc/hosts file on the host machine

hooks/edgy/40-setup-networking

@@ -72,7 +72,7 @@ setupStaticNetworking ()
     #
     bcast='';
     if [ ! -z "${broadcast}" ]; then
-      bcast=' broadcast ${broadcast}'
+      bcast=" broadcast ${broadcast}"
     fi
 
     #

hooks/edgy/50-setup-hostname

@@ -90,7 +90,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
         #
         #  If we've updated the /etc/hosts file on the host machine

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
+

hooks/fedora-core-6/50-setup-hostname

@@ -91,7 +91,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
 
         #

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}}\""

hooks/gentoo/50-setup-hostname

@@ -98,7 +98,7 @@ if [ -z "${dhcp}" ]; then
 
         logMessage Adding ${hostname} and ${name} to /etc/hosts on the host
 
-        echo "${ip1}    ${name}    ${hostname}" >> /etc/hosts
+        echo "${ip1}    ${hostname}    ${name}" >> /etc/hosts
 
         #
         #  If we've updated the /etc/hosts file on the host machine

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' ); }"; \

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' );
 

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 );
+}