Changeset 517

Timestamp:

08/07/08 14:34:22 (5 years ago)

Author:

bruno

Message:

• Fix for fedora VM setups
• Support for ntp server added to avoid time sync issues in VMs

File:

• devel/pb/bin/pb (modified) (6 diffs)

devel/pb/bin/pb

@@ -1553 +1553 @@
         my $keyfile = pb_ssh_get(1);
         
-        my ($vmhost,$vmport) = pb_conf_get("vmhost","vmport");
+        my ($vmhost,$vmport,$vmntp) = pb_conf_get("vmhost","vmport","vmntp");
         my $nport = $vmport->{$ENV{'PBPROJ'}};
         $nport = "$pbport" if (defined $pbport);
@@ -1583 +1583 @@
 use strict;
 use File::Copy;
+
+# We should not need in this script more functions than what is provided 
+# by Base and Distribution to avoid problems at exec time.
+# They are appended at the end.
 
 our $pbdebug;
@@ -1602 +1606 @@
 my $count = 0;
 while (<PBFILE>) {
+
 EOF
         print SCRIPT << "EOF";
@@ -1613 +1618 @@
 rename("\$file1.new",\$file1);
 chmod 0600,\$file1;
+
+# Sync date
+pb_system("/usr/sbin/ntpdate \$vmntp->{'PBPRROJ'}","Syncing date to \$vmntp{'PBPRROJ'}");
+
 EOF
     }
@@ -1722 +1731 @@
 }
 
-# Sync date
-#system "/usr/sbin/ntpdate ntp.pool.org";
-
 pb_system("rm -rf perl-ProjectBuilder-* ; wget --passive-ftp ftp://ftp.mondorescue.org/src/perl-ProjectBuilder-latest.tar.gz ; tar xvfz perl-ProjectBuilder-latest.tar.gz ; cd perl-ProjectBuilder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf perl-ProjectBuilder-* ; rm -rf project-builder-* ; wget --passive-ftp ftp://ftp.mondorescue.org/src/project-builder-latest.tar.gz ; tar xvfz project-builder-latest.tar.gz ; cd project-builder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf project-builder-* ;","Building Project-Builder");
 system "pb 2>&1 | head -5";
 EOF
-    # Adds pb_distro_init from ProjectBuilder::Distribution
+    # Adds pb_distro_init from ProjectBuilder::Distribution and Base
     foreach my $d (@INC) {
         my @f = ("$d/ProjectBuilder/Base.pm","$d/ProjectBuilder/Distribution.pm");
@@ -1797 +1803 @@
     }
 
-    pb_system("yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-File-MimeInfo perl-ExtUtils-MakeMaker perl-Mail-Sendmail perl-Locale-gettext",$cmtall);
     if ($dver eq 4) {
+        pb_system("yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-ExtUtils-MakeMaker",$cmtall);
         pb_system("$insmb","$cmtmb");
         pb_system("$insfm","$cmtfm");
         pb_system("$insfb","$cmtfb");
+        pb_system("$insms","$cmtms");
+        pb_system("$inslg","$cmtlg");
+    } else {
+        pb_system("yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-ExtUtils-MakeMaker perl-File-MimeInfo perl-Mail-Sendmail",$cmtall);
         pb_system("$inslg","$cmtlg");
     }