Changeset 1109 in ProjectBuilder for devel/pb

Timestamp:

Nov 17, 2010, 12:40:28 PM (15 years ago)

Author:

Bruno Cornec

Message:

r4041@localhost: bruno | 2010-11-17 11:40:41 +0100

• Adds new configuration parameters (oschkcmd, oschkopt) to externalize package checking command
• Adds new configuration parameters (pbinstalltype, pbpkg) to start allowing installation of pb in VM/VE with packages or files (this last is only needed by upstream)
• Remove dependency on Mail::Sendmail to where it's really needed (part of Log, not used yet, and annouce). In particular this removes one non std dep for VE/VM build.

File:

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

devel/pb/bin/pb

@@ -1148 +1148 @@
         }
     }
+    # Find the appropriate check cmd/opts
+    my ($oschkcmd,$oschkopt) = pb_conf_get_if("oschkcmd","oschkopt");
+    my $chkcmd .= pb_distro_get_param($ddir,$dver,$arch,$oschkcmd,$dtype,$dfam,$dos);
+    my $chkopt .= pb_distro_get_param($ddir,$dver,$arch,$oschkopt,$dtype,$dfam,$dos);
+
     # Packages check if needed
     if ($dtype eq "rpm") {
-        if (-f "/usr/bin/rpmlint") {
-            pb_system("rpmlint $made","Checking validity of rpms with rpmlint","verbose");
+        if (-x $chkcmd) {
+            pb_system("$chkcmd $chkopt $made","Checking validity of rpms with $chkcmd","verbose");
         }
         my $rpms ="";
@@ -1166 +1171 @@
             $made2 .= "../$f " if ($f =~ /\.changes$/);
         }
-        if (-f "/usr/bin/lintian") {
-            pb_system("lintian $made2","Checking validity of debs with lintian","verbose");
+        if (-x $chkcmd) {
+            pb_system("$chkcmd $chkopt $made2","Checking validity of debs with $chkcmd","verbose");
         } else {
             pb_log(0,"deb packages generated: $made2\n");
@@ -2560 +2565 @@
     print SCRIPT << 'EOF';
     
-    my ($ospkgdep,$osperldep,$osperlver) = pb_conf_get_if("ospkgdep","osperldep","osperlver");
-    
-    # First install all required packages
-    pb_system("yum clean all","Cleaning yum env") if (($ddir eq "fedora") || ($ddir eq "asianux") || ($ddir eq "rhel"));
-    my $pkgdep = pb_distro_get_param($ddir,$dver,$darch,$ospkgdep,$dfam,$dtype,$dos);
-    pb_distro_installdeps(undef,$dtype,$pbupd,pb_distro_only_deps_needed($dtype,join(' ',split(/,/,$pkgdep))));
-
-    # Then install manually the missing perl modules
-    my $perldep = pb_distro_get_param($ddir,$dver,$darch,$osperldep,$dfam,$dtype,$dos);
-    foreach my $m (split(/,/,$perldep)) {
-        # Skip empty deps
-        next if ($m =~ /^\s*$/);
-        my $dir = $m;
-        $dir =~ s/-.*//;
-        pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz | tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" | bash" ,"Installing perl module $m-$osperlver->{$m}");
-    }
-
 # Suse wants sudoers as 640
 if ((($ddir eq "sles") && (($dver =~ /10/) || ($dver =~ /9/))) || (($ddir eq "opensuse") && ($dver =~ /10.[012]/))) {
@@ -2582 +2570 @@
 }
 
+# First install all required packages
+pb_system("yum clean all","Cleaning yum env") if (($ddir eq "fedora") || ($ddir eq "asianux") || ($ddir eq "rhel"));
+my ($ospkgdep) = pb_conf_get_if("ospkgdep");
+    
+my $pkgdep = pb_distro_get_param($ddir,$dver,$darch,$ospkgdep,$dfam,$dtype,$dos);
+pb_distro_installdeps(undef,$dtype,$pbupd,pb_distro_only_deps_needed($dtype,join(' ',split(/,/,$pkgdep))));
+
+EOF
+    my $itype = pb_conf_get("pbinstalltype");
+    if ($itype->{$ENV{'PBPROJ'}} =~ /^file/) {
+        print SCRIPT << 'EOF';
+# Then install manually the missing perl modules
+my ($osperldep,$osperlver) = pb_conf_get_if("osperldep","osperlver");
+    
+my $perldep = pb_distro_get_param($ddir,$dver,$darch,$osperldep,$dfam,$dtype,$dos);
+foreach my $m (split(/,/,$perldep)) {
+    # Skip empty deps
+    next if ($m =~ /^\s*$/);
+    my $dir = $m;
+    $dir =~ s/-.*//;
+    pb_system("echo \"rm -rf $m* ; wget http://search.cpan.org/CPAN/modules/by-module/$dir/$m-$osperlver->{$m}.tar.gz ; gzip -cd $m-$osperlver->{$m}.tar.gz | tar xf - ; cd $m* ; if [ -f Build.PL ]; then perl Build.PL; ./Build ; ./Build install ; else perl Makefile.PL; make ; make install ; fi; cd .. ; rm -rf $m*\" | bash" ,"Installing perl module $m-$osperlver->{$m}");
+}
+
 pb_system("rm -rf ProjectBuilder-* ; wget --passive-ftp ftp://ftp.mondorescue.org/src/ProjectBuilder-latest.tar.gz ; gzip -cd ProjectBuilder-latest.tar.gz | tar xf - ; cd ProjectBuilder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf ProjectBuilder-* ; rm -rf project-builder-* ; wget --passive-ftp ftp://ftp.mondorescue.org/src/project-builder-latest.tar.gz ; gzip -cd project-builder-latest.tar.gz | tar xf - ; cd project-builder-* ; perl Makefile.PL ; make ; make install ; cd .. ; rm -rf project-builder-* ;","Building Project-Builder");
+EOF
+    } elsif ($itype->{$ENV{'PBPROJ'}} =~ /^pkg/) {
+        # pkg based install. We need to point to the project-builder.org repository
+        print SCRIPT << 'EOF';
+my ($pbpkg) = pb_conf_get_if("pbpkg");
+
+my $pkgforpb = pb_distro_get_param($ddir,$dver,$darch,$pbpkg,$dfam,$dtype,$depdos);
+pb_distro_setuprepo($ddir,$dver,$darch,$dtype);
+pb_distro_installdeps(undef,$dtype,$pbupd,pb_distro_only_deps_needed($dtype,join(' ',split(/,/,$pkgforpb))));
+EOF
+    } else {
+        # Unknown install type
+        die("Unknown install type $itype->{$ENV{'PBPROJ'}} for param pbinstalltype");
+    }
+    print SCRIPT << 'EOF';
 pb_system("pb 2>&1 | head -5",undef,"verbose");
 EOF
@@ -2877 +2903 @@
     
     # Preparation of headers
+    require Mail::Sendmail;
 
     my %mail = (    
@@ -2887 +2914 @@
             
     # Send mail
-    sendmail(%mail) or die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
+    if (! sendmail(%mail)) {
+        if ((defined $Mail::Sendmail::error) and (defined $Mail::Sendmail::log)) {
+            die "Unable to send mail ($Mail::Sendmail::error): $Mail::Sendmail::log";
+        }
+    }
 }