Document state of Debian package 3.9-6

Document state of Debian package 3.9-5
Document state of Debian package 3.9-4
2026-04-28 05:04:57 +00:00 · 2010-08-31 23:11:56 +02:00 · 2010-08-31 23:08:22 +02:00 · 2010-08-31 22:56:33 +02:00 · 2010-08-31 22:40:01 +02:00 · 2010-08-31 22:28:34 +02:00
34 changed files with 1498 additions and 1074 deletions
--- a/.hgignore
+++ b/.hgignore
@@ -1,4 +0,0 @@
-(^|/)CVS($|/)
-(^|/)\.hg($|/)
-(^|/)\.hgtags($|/)
-ChangeLog
--- a/13
+++ b/13
@@ -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.
 #
--- a/bin/xen-create-image
+++ b/bin/xen-create-image
--- a/bin/xen-create-nfs
+++ b/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 - $!";
-        print SUDOERS "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
+        open( SUDOERS, ">>", "/etc/sudoers" )
+          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.
--- a/bin/xen-delete-image
+++ b/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.
        #
--- a/bin/xen-list-images
+++ b/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(
-               "test=s",     \$CONFIG{'prefix'},
-               "help",       \$HELP,
-               "manual",     \$MANUAL,
-               "version",    \$VERSION
-             );
+    GetOptions( "test=s", \$CONFIG{'prefix'}, "help", \$HELP, "manual",
+                \$MANUAL, "version", \$VERSION );

    pod2usage(1) if $HELP;
    pod2usage( -verbose => 2 ) if $MANUAL;
--- 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.
 #
@@ -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);

--- a/bin/xen-update-image
+++ b/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" ) &&
-         ( -x $tmp . "/usr/bin/apt-get" ) )
+    if (    ( -e $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'},
-              "lvm=s",      \$CONFIG{'lvm'},
-              "evms=s",     \$CONFIG{'evms'},
-              "help",       \$HELP,
-              "manual",     \$MANUAL,
-              "version",    \$VERSION
+                "dir=s",  \$CONFIG{'dir'},  "lvm=s",   \$CONFIG{'lvm'},
+                "evms=s", \$CONFIG{'evms'}, "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.
    #
--- a/bin/xt-create-xen-config
+++ b/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 - $!";
-        print SUDOERS "$user ALL = NOPASSWD: /usr/sbin/xm, /usr/bin/xen-create-image\n";
+        open( SUDOERS, ">>", "/etc/sudoers" )
+          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);

    }
--- a/bin/xt-customize-image
+++ b/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.
            #
--- a/bin/xt-install-image
+++ b/bin/xt-install-image
@@ -127,36 +127,29 @@ my $RELEASE = '3.9';
 #  needDirectory Defined if we need an install-source directory specified.
 #
 #
-my %dispatch =
-  (
-   "copy" =>
-     {
+my %dispatch = (
+                 "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'} ) &&
-      length( $CONFIG{'install-method'} ) )
+if ( defined( $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'} ) &&
-              ( ! -x $installer->{'needBinary'} ) )
+        if (    ( $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'} ) &&
-             ( ! $CONFIG{'install-source'} || ! -d $CONFIG{'install-source'} ) )
+        if (   ( $installer->{'needDirectory'} )
+            && ( !$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'} ) &&
-             ( ! $CONFIG{'install-source'} || ! -e $CONFIG{'install-source'} ) )
+        if (   ( $installer->{'needFile'} )
+            && ( !$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'} ) &&
-             ( ! $CONFIG{'install-source'} ||
-               ( $CONFIG{'install-source'} !~ /^http/i ) ) )
+        if (
+             ( $installer->{'needURL'} )
+             && ( !$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.
    #
--- a/debian/changelog
+++ b/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:
--- 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/debian/examples/setup-kernel-initrd
+++ b/debian/examples/setup-kernel-initrd
--- a/debian/examples/update-modules
+++ b/debian/examples/update-modules
--- a/debian/preinst
+++ b/debian/preinst
--- 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
-# need to make sure that you use 'xvc0' for the guest serial device,
+#  If you're using the lenny or later version of the Xen guest kernel you will
+# 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 = xvc0
+# serial_device = hvc0 #default
+# serial_device = tty1
 #
-# disk_device = sda  #default
-# disk_device = xvda
+# disk_device = xvda #default
+# disk_device = sda
 #


--- 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
@@ -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


        #
--- 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
@@ -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
--- a/hooks/common.sh
+++ b/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 "$@"

 }

--- a/hooks/dapper/50-setup-hostname
+++ b/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


        #
--- 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
@@ -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
--- 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
@@ -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
--- 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
@@ -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


        #
--- 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}}\""
--- a/hooks/gentoo/50-setup-hostname
+++ b/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
--- 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	85846b480d	Document state of Debian package 3.9-6	2010-08-31 23:11:56 +02:00
Steve Kemp	f73eb76b1e	Document state of Debian package 3.9-5	2010-08-31 23:08:22 +02:00
Radu Spineanu	f56ebbaf68	Document state of Debian package 3.9-4	2010-08-31 22:56:33 +02:00
Steve Kemp	09bf1cd84d	Document state of Debian package 3.9-3	2010-08-31 22:40:01 +02:00
Steve Kemp	7d9b9b9881	Document state of Debian package 3.9-2	2010-08-31 22:28:34 +02:00
Steve Kemp	aba8e1b411	Document state of Debian package 3.9-1	2010-08-31 22:19:29 +02:00