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

Timestamp:

Feb 23, 2010, 8:21:51 AM (14 years ago)

Author:

Bruno Cornec

Message:

r3703@localhost: bruno | 2010-02-21 07:08:00 +0100

• verebuild non mandatory, cleanup + doc
• vepkglist => vemindep
• pb.conf doc again continued

File:

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

devel/pb/bin/pb

@@ -1157 +1157 @@
     my $port = "sshport";
     my $conf = "sshconf";
-    my $rebuild = "sshrebuild";
     my $tmout = undef;
     my $path = undef;
@@ -1163 +1162 @@
         $login = "vmlogin";
         $dir = "pbdefdir";
-        $rebuild = "vmrebuild";
         # Specific VM
         $tmout = "vmtmout";
@@ -1175 +1173 @@
         $path = "vepath";
         $conf = "rbsconf";
-        $rebuild = "verebuild";
     } elsif ($cmt eq "Web") {
         $host = "websshhost";
@@ -1249 +1246 @@
 
     pb_log(0,"Sources handled ($cmt): $src\n");
-    pb_log(2,"values: ".Dumper(($host,$login,$dir,$port,$tmout,$rebuild,$path,$conf))."\n");
+    pb_log(2,"values: ".Dumper(($host,$login,$dir,$port,$tmout,$path,$conf))."\n");
     my ($sshhost,$sshlogin,$sshdir,$sshport) = pb_conf_get($host,$login,$dir,$port);
     # Not mandatory...
-    my ($vrebuild,$rbsconf,$testver) = pb_conf_get_if($rebuild,$conf,"testver");
+    my ($rbsconf,$testver) = pb_conf_get_if($conf,"testver");
     my ($vtmout,$vepath);
     # ...Except those in virtual context
@@ -1261 +1258 @@
         ($vtmout) = pb_conf_get($tmout);
     }
-    pb_log(2,"ssh: ".Dumper(($sshhost,$sshlogin,$sshdir,$sshport,$vtmout,$vrebuild,$vepath,$rbsconf))."\n");
+    pb_log(2,"ssh: ".Dumper(($sshhost,$sshlogin,$sshdir,$sshport,$vtmout,$vepath,$rbsconf))."\n");
 
     my $mac;
@@ -1742 +1739 @@
 
         # Get VE context
-        my ($ptr,$vetmout,$vepath,$verebuild,$rbsconf) = pb_conf_get("vetype","vetmout","vepath","verebuild","rbsconf");
+        my ($ptr,$vetmout,$vepath,$rbsconf) = pb_conf_get("vetype","vetmout","vepath","rbsconf");
         my $vetype = $ptr->{$ENV{'PBPROJ'}};
 
         # We can probably only get those params now we have the distro context
-        my ($rbsb4pi,$rbspi,$vesnap,$oscodename,$vepkglist,$osmindep) = pb_conf_get_if("rbsb4pi","rbspi","vesnap","oscodename","vepkglist","osmindep");
+        my ($rbsb4pi,$rbspi,$vesnap,$oscodename,$osmindep,$verebuild) = pb_conf_get_if("rbsb4pi","rbspi","vesnap","oscodename","osmindep","verebuild");
 
         if (($vetype eq "chroot") || ($vetype eq "schroot")) {
@@ -1755 +1752 @@
 
             my ($verpmtype,$vedebtype) = pb_conf_get("verpmtype","vedebtype");
-            if (($create != 0) || ($verebuild->{$ENV{'PBPROJ'}} =~ /true/i) || ($pbforce == 1)) {
+            if (($create != 0) || ((defined $verebuild) && ($verebuild->{$ENV{'PBPROJ'}} =~ /true/i)) || ($pbforce == 1)) {
                 # We have to rebuild the chroot
                 if ($dtype eq "rpm") {
@@ -1775 +1772 @@
                         $postparam = "";
                         $postparam .= pb_distro_get_param($ddir,$dver,$darch,$osmindep);
-                        $postparam .= ",";
-                        $postparam .= pb_distro_get_param($ddir,$dver,$darch,$vepkglist);
-                        if ($postparam eq ",") {
+                        if ($postparam eq "") {
                             $addpkgs = "";
                         } else {
@@ -1810 +1805 @@
                     my $addpkgs;
                     $postparam .= pb_distro_get_param($ddir,$dver,$darch,$osmindep);
-                    $postparam .= ",";
-                    $postparam .= pb_distro_get_param($ddir,$dver,$darch,$vepkglist);
-                    if ($postparam eq ",") {
+                    if ($postparam eq "") {
                         $addpkgs = "";
                     } else {
@@ -2225 +2218 @@
         # once this is done, we can do what we want on the VM remotely
     } elsif ($vtype eq "ve") {
-        # We need to finish the setup of packages needed in the VE if needed
+        # We need to finish the setup of packages needed in the VE
         # rinse/debootstrap at least needs it
-        my ($vepkglist,$osmindep) = pb_conf_get_if("vepkglist","osmindep");
+        my ($vemindep) = pb_conf_get_if("vemindep");
 
         my $postparam = "";
-        if (defined $osmindep) {
-            $postparam .= pb_distro_get_param($ddir,$dver,$darch,$osmindep);
-        }
-        if (defined $vepkglist) {
-            $postparam .= " ".pb_distro_get_param($ddir,$dver,$darch,$vepkglist);
+        if (defined $vemindep) {
+            $postparam .= " ".pb_distro_get_param($ddir,$dver,$darch,$vemindep);
         }
         # Change the list of pkg in to a space separated list