Changeset 427 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

May 7, 2008, 5:20:25 PM (16 years ago)

Author:

Bruno Cornec

Message:

Improve setupv to use pb functions and setup the pb account ssh env correctly now when reusing the VMs

File:

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

devel/pb/bin/pb

@@ -1329 +1329 @@
 use File::Copy;
 
+our $debug;
+our $LOG;
+our $synmsg = "pbscript";
+pb_log_init($debug, $LOG);
+pb_temp_init();
+
 EOF
     if ($vtype eq "vm") {
@@ -1370 +1376 @@
 if ( $found == 0 ) {
     if ( ! -d "/home" ) {
-        mkdir "/home";
+        pb_mkdir("/home");
     }
 EOF
     print SCRIPT << "EOF";
-system "groupadd $pbac->{$ENV{'PBPROJ'}}";
-system "useradd $pbac->{$ENV{'PBPROJ'}} -g $pbac->{$ENV{'PBPROJ'}} -m -d /home/$pbac->{$ENV{'PBPROJ'}}";
+pb_system("groupadd $pbac->{$ENV{'PBPROJ'}}","Adding group $pbac->{$ENV{'PBPROJ'}}");
+pb_system("useradd $pbac->{$ENV{'PBPROJ'}} -g $pbac->{$ENV{'PBPROJ'}} -m -d /home/$pbac->{$ENV{'PBPROJ'}}","Adding user $pbac->{$ENV{'PBPROJ'}} (group $pbac->{$ENV{'PBPROJ'}} - home /home/$pbac->{$ENV{'PBPROJ'}}");
+}
 
 # allow ssh entry to build
 #
-chdir "/home/$pbac->{$ENV{'PBPROJ'}}";
-mkdir ".ssh",0700;
+mkdir "/home/$pbac->{$ENV{'PBPROJ'}}/.ssh",0700;
 # Allow those accessing root to access the build account
-copy("\$ENV{'HOME'}/.ssh/authorized_keys",".ssh/authorized_keys");
+copy("\$ENV{'HOME'}/.ssh/authorized_keys","/home/$pbac->{$ENV{'PBPROJ'}}/.ssh/authorized_keys");
 chmod 0600,".ssh/authorized_keys";
-system 'chown -R $pbac->{$ENV{'PBPROJ'}}:$pbac->{$ENV{'PBPROJ'}} .ssh';
+pb_system("chown -R $pbac->{$ENV{'PBPROJ'}}:$pbac->{$ENV{'PBPROJ'}} /home/$pbac->{$ENV{'PBPROJ'}}/.ssh","Finish setting up the SSH env for $pbac->{$ENV{'PBPROJ'}}");
 
 EOF
     print SCRIPT << 'EOF';
-}
-
 # No passwd for build account only keys
 $file="/etc/shadow";
@@ -1449 +1453 @@
 #system "/usr/sbin/ntpdate ntp.pool.org";
 
-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-* ;";
+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
     if ((! $vmexist) && ($vtype eq "vm")) {
         print SCRIPT << 'EOF';
-system "sudo /sbin/halt -p";
+pb_system("sudo /sbin/halt -p","Halting the $vtype");
 EOF
     }
@@ -1465 +1469 @@
                 open(PBD,"$f") || die "Unable to open $f";
                 while (<PBD>) {
-                    next if (/^package/);
-                    next if (/^use Exporter/);
-                    next if (/^use ProjectBuilder::Base/);
-                    next if (/^our \@/);
+                        next if (/^package/);
+                        next if (/^use Exporter/);
+                        next if (/^use ProjectBuilder::/);
+                        next if (/^our /);
                     print SCRIPT $_;
                 }
@@ -1500 +1504 @@
 my $insfm = "rm -rf File-MimeInfo* ; wget http://search.cpan.org/CPAN/authors/id/P/PA/PARDUS/File-MimeInfo/File-MimeInfo-0.15.tar.gz ; tar xvfz File-MimeInfo-0.15.tar.gz ; cd File-MimeInfo* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf File-MimeInfo*";
 my $insfb = "rm -rf File-Basedir* ; wget http://search.cpan.org/CPAN/authors/id/P/PA/PARDUS/File-BaseDir-0.03.tar.gz ; tar xvfz File-BaseDir-0.03.tar.gz ; cd File-BaseDir* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf File-BaseDir*";
+my $cmtdm = "Installing Date-Manip perl module";
+my $cmtmb = "Installing Module-Build perl module";
+my $cmtfm = "Installing File-MimeInfo perl module";
+my $cmtfb = "Installing File-Basedir perl module";
+my $cmtall = "Installing required modules";
 
 if ( $ddir eq "fedora" ) {
-    system "yum clean all";
+    pb_system("yum clean all","Cleaning yum env");
     #system "yum update -y";
     my $arch=`uname -m`;
@@ -1511 +1520 @@
     }
 
-    system "yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-File-MimeInfo perl-ExtUtils-MakeMaker";
+    pb_system("yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-File-MimeInfo perl-ExtUtils-MakeMaker",$cmtall);
     if ($dver eq 4) {
-        system "$insmb";
-        system "$insfm";
-        system "$insfb";
+        pb_system("$insmb","$cmtmb");
+        pb_system("$insfm","$cmtfm");
+        pb_system("$insfb","$cmtfb");
     }
 } elsif (( $dfam eq "rh" ) || ($ddir eq "sles") || (($ddir eq "suse") && (($dver eq "10.1") || ($dver eq "10.0"))) || ($ddir eq "slackware")) {
     # Suppose pkg are installed already as no online mirror available
-    system "rpm -e lsb 2>&1 > /dev/null";
-    system "$insdm";
-    system "$insmb";
-    system "$insfm";
-    system "$insfb";
+    pb_system("rpm -e lsb 2>&1 > /dev/null","Removing lsb package");
+    pb_system("$insdm","$cmtdm");
+    pb_system("$insmb","$cmtmb");
+    pb_system("$insfm","$cmtfm");
+    pb_system("$insfb","$cmtfb");
 } elsif ($ddir eq "suse") { 
     # New OpenSuSE
-    system "$insmb";
-    system "$insfm";
-    system "$insfb";
-    system "export TERM=linux ; liste=\"\" ; for i in make wget patch sudo perl-DateManip perl-File-HomeDir xntp; do rpm -q \$i 1> /dev/null 2> /dev/null ; if [ \$\? != 0 ]; then liste=\"\$liste \$i\"; fi; done; echo \"Liste: \$liste\" ; if [ \"\$liste\" != \"\" ]; then yast2 -i \$liste ; fi";
+    pb_system("$insmb","$cmtmb");
+    pb_system("$insfm","$cmtfm");
+    pb_system("$insfb","$cmtfb");
+    pb_system("export TERM=linux ; liste=\"\" ; for i in make wget patch sudo perl-DateManip perl-File-HomeDir xntp; do rpm -q \$i 1> /dev/null 2> /dev/null ; if [ \$\? != 0 ]; then liste=\"\$liste \$i\"; fi; done; echo \"Liste: \$liste\" ; if [ \"\$liste\" != \"\" ]; then yast2 -i \$liste ; fi","$cmtall");
 } elsif ( $dfam eq "md" ) {
-        system "urpmi.update -a ; urpmi --auto rpm-build wget sudo patch ntp-client perl-File-MimeInfo";
+        pb_system("urpmi.update -a ; urpmi --auto rpm-build wget sudo patch ntp-client perl-File-MimeInfo","$cmtall");
         if (($ddir eq "mandrake") && ($dver eq "10.1")) {
-            system "$insdm";
+            pb_system("$insdm","$cmtdm");
         } else {
-            system "urpmi --auto perl-DateManip";
+            pb_system("urpmi --auto perl-DateManip","$cmtdm");
         }
 } elsif ( $dfam eq "du" ) {
     if (( $dver eq "3.1" ) && ($ddir eq "debian")) {
         #system "apt-get update";
-        system "$insfb";
-        system "$insfm";
-        system "apt-get -y install wget patch ssh sudo debian-builder dh-make fakeroot ntpdate libmodule-build-perl libdate-manip-perl";
+        pb_system("$insfb","$cmtfb");
+        pb_system("$insfm","$cmtfm");
+        pb_system("apt-get -y install wget patch ssh sudo debian-builder dh-make fakeroot ntpdate libmodule-build-perl libdate-manip-perl","$cmtall");
     } else  {
-        system "apt-get update; apt-get -y install wget patch openssh-server dpkg-dev sudo debian-builder dh-make fakeroot ntpdate libfile-mimeinfo-perl libmodule-build-perl libdate-manip-perl";
+        pb_system("apt-get update; apt-get -y install wget patch openssh-server dpkg-dev sudo debian-builder dh-make fakeroot ntpdate libfile-mimeinfo-perl libmodule-build-perl libdate-manip-perl","$cmtall");
     }
 } elsif ( $dfam eq "gen" ) {
-        #system "emerge -u system ; emerge wget sudo ntp DateManip File-MimeInfo";
-        system "emerge wget sudo ntp DateManip File-MimeInfo";
+        #system "emerge -u system";
+        pb_system("emerge wget sudo ntp DateManip File-MimeInfo","$cmtall");
 } else {
     print "No pkg to install\n";