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

Timestamp:

Nov 29, 2008, 7:17:54 PM (15 years ago)

Author:

Bruno Cornec

Message:

• change pb_distro_init interface and add a 6th parameter which is the update CLI to use for that distro.

File:

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

devel/pb/bin/pb

@@ -587 +587 @@
                 chomp($arch);
                 my ($ddir, $dver, $dfam);
-                ($ddir, $dver, $dfam, $pb{'dtype'}, $pb{'suf'}) = pb_distro_init($name,$ver);
+                ($ddir, $dver, $dfam, $pb{'dtype'}, $pb{'suf'}, $pb{'upd'}) = pb_distro_init($name,$ver);
                 pb_log(2,"DEBUG: distro tuple: ".Dumper($ddir, $dver, $dfam, $pb{'dtype'}, $pb{'suf'})."\n");
                 pb_log(2,"DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n");
@@ -785 +785 @@
 
     # Get the running distro to build on
-    my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init();
-    pb_log(2,"DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n");
+    my ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd) = pb_distro_init();
+    pb_log(2,"DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd))."\n");
 
     # Get list of packages to build
@@ -1028 +1028 @@
             ($odir,$over,$oarch) = split(/-/,$v);
         }
-        ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init($odir,$over);
+        ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd) = pb_distro_init($odir,$over);
         pb_log(2,"DEBUG: distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n");
 
@@ -1449 +1449 @@
         my ($name,$ver,$darch) = split(/-/,$v);
         chomp($darch);
-        my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init($name,$ver);
+        my ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd) = pb_distro_init($name,$ver);
 
         if ($vetype eq "chroot") {
@@ -1919 +1919 @@
 # We need to have that pb_distro_init function
 # Get it from Project-Builder::Distribution
-my ($ddir, $dver, $dfam, $dtype, $pbsuf) = pb_distro_init(); 
+my ($ddir, $dver, $dfam, $dtype, $pbsuf, $pbupd) = pb_distro_init(); 
 print "distro tuple: ".join(',',($ddir, $dver, $dfam, $dtype, $pbsuf))."\n";
 
@@ -1939 +1939 @@
 if ( $ddir eq "fedora" ) {
     pb_system("yum clean all","Cleaning yum env");
-    #system "yum update -y";
-    my $arch=`uname -m`;
-    my $opt = "";
-    chomp($arch);
-    if ($arch eq "x86_64") {
-        $opt="--exclude=*.i?86";
-    }
-
     if ($dver == 4) {
-        pb_system("yum -y $opt install rpm-build wget patch ntp sudo perl-DateManip perl-ExtUtils-MakeMaker",$cmtall);
+        pb_system("$pbupd rpm-build wget patch ntp sudo perl-DateManip perl-ExtUtils-MakeMaker",$cmtall);
         pb_system("$insmb","$cmtmb");
         pb_system("$insfm","$cmtfm");
@@ -1955 +1947 @@
         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("$pbupd rpm-build wget patch ntp sudo perl-DateManip perl-ExtUtils-MakeMaker perl-File-MimeInfo perl-Mail-Sendmail",$cmtall);
         if ($dver > 9) {
-            pb_system("yum -y $opt install perl-gettext",$cmtall);
+            pb_system("$pbupd perl-gettext",$cmtall);
         } else {
             pb_system("$inslg","$cmtlg");
@@ -1977 +1969 @@
     pb_system("$insfb","$cmtfb");
     pb_system("$insms","$cmtms");
-    pb_system("export TERM=linux ; liste=\"\" ; for i in make wget patch sudo perl-DateManip perl-File-HomeDir perl-Mail-Sendmail ntp; 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");
+    pb_system("export TERM=linux ; liste=\"\" ; for i in make wget patch sudo perl-DateManip perl-File-HomeDir perl-Mail-Sendmail ntp; do rpm -q \$i 1> /dev/null 2> /dev/null ; if [ \$\? != 0 ]; then liste=\"\$liste \$i\"; fi; done; echo \"Liste: \$liste\" ; if [ \"\$liste\" != \"\" ]; then $pbupd \$liste ; fi","$cmtall");
 } elsif ( $dfam eq "md" ) {
-        pb_system("urpmi.update -a ; urpmi --auto rpm-build wget sudo patch ntp-client perl-File-MimeInfo perl-Mail-Sendmail perl-Locale-gettext","$cmtall");
+        pb_system("urpmi.update -a ; $pbupd rpm-build wget sudo patch ntp-client perl-File-MimeInfo perl-Mail-Sendmail perl-Locale-gettext","$cmtall");
         if (($ddir eq "mandrake") && ($dver eq "10.1")) {
             pb_system("$insdm","$cmtdm");
             pb_system("$inslg","$cmtlg");
         } else {
-            pb_system("urpmi --auto perl-DateManip","$cmtdm");
-            pb_system("urpmi --auto perl-Locale-gettext","$cmtdm");
+            pb_system("$pbupd perl-DateManip","$cmtdm");
+            pb_system("$pbupd perl-Locale-gettext","$cmtdm");
         }
 } elsif ( $dfam eq "du" ) {
@@ -1998 +1990 @@
 } elsif ( $dfam eq "gen" ) {
         #system "emerge -u system";
-        pb_system("emerge wget sudo ntp DateManip File-MimeInfo Mail-Sendmail Locale-gettext","$cmtall");
+        pb_system("$pbudp wget sudo ntp DateManip File-MimeInfo Mail-Sendmail Locale-gettext","$cmtall");
 } else {
     pb_log(0,"No pkg to install\n");