Changeset 1153 in ProjectBuilder for devel/pb-modules

Timestamp:

Jan 12, 2011, 2:42:12 AM (14 years ago)

Author:

Bruno Cornec

Message:

• Avoid File::MimeInfo hard requirement. Only abort if not found when needed.
• Improve report when a perl module is missing
• Kill an existing crashed VM using an SSH port needed for another VM (should avoid crashed VM to stay when building for all VMs)
• Use a new parameter vmbuildtm as a timeout before killing the VM (shoudl correspond to build + transfer time)
• use twice the number of VMs for ports in the range for SSH communication to allow for VMs to finish in an unordered way.
• Fix a bug in test modules when using Test simple only
• Mail::Sendmail is now optional for Log module as well, even if not used yet
• Update pb.conf doc with info for vmbuildtm and vmmem
• Ready for 0.10.1

Location:

devel/pb-modules

Files:

• etc/pb.conf.pod (modified) (3 diffs)
• lib/ProjectBuilder/Log.pm (modified) (1 diff)
• t/Base.t (modified) (1 diff)
• t/Log.t (modified) (1 diff)

devel/pb-modules/etc/pb.conf.pod

@@ -491 +491 @@
  Example: vertype default = chroot
 
+=item B<vmbuildtm>
+
+ Nature: Optional
+ Key: OS (could be from the most generic up to the most specific from ostype, osfamily, os, os-ver, os-ver-arch). Default value is set to vmtmout
+ Value: Time in seconds to wait before killing the VM if SSH port already used. This should corresponds to the time to send files, build the project and get packages in the VM.
+ Conffile: project
+ Example: vmbuildtm default = 600,vmbuildtm mandriva-2009.0-x86_64 = 1200
+
 =item B<vmcmd>
 
@@ -524 +532 @@
  Example: vmlogin default = pb
 
+=item B<vmmem>
+
+ Nature: Optional
+ Key: project (as defined in the -p option or PBPROJ environment variable)
+ Value: Memory size in MB to allocate to the VM.
+ Conffile: vm
+ Example: vmmem default = 512
+
 =item B<vmmonport>
 
@@ -592 +608 @@
  Nature: Optional
  Key: OS (could be from the most generic up to the most specific from ostype, osfamily, os, os-ver, os-ver-arch). NB: a default value is highly interesting here.
- Value: Time in seconds to way beofre interacting with the VM. This should corresponds to the time the VM takes to boot.
+ Value: Time in seconds to wait before interacting with the VM. This should correspond to the time the VM takes to boot.
  Conffile: vm
  Example: vmtmout default = 180,vmtmout mandriva-2009.0-x86_64 = 500

devel/pb-modules/lib/ProjectBuilder/Log.pm

@@ -227 +227 @@
 # mails the summary to $to
 sub mailSummary {
-    require Mail::Sendmail;
-    my $self = shift;
-    my $to = shift || "";
-
-    if ($to eq "") {
-        pb_log(0,"Please give a To: address\n");
-        return;
-    }
-    my %mail = (    
-        To => $to,
-        From => "pb\@localhost",
-        Message => $self->summary()
-    );
-    if (! sendmail(%mail)) { 
-        if (defined $Mail::Sendmail::error) {
-            return $Mail::Sendmail::error;
-        } else {
-            return "Unkown error";
-        }
-    }
-    pb_log(0,"Mail send to ". $to ."\n");
+    eval
+    {
+        require Mail::Sendmail;
+        Mail::Sendmail->import();
+    };
+    if ($@) {
+        # Mail::Sendmail not found not sending mail !
+        pb_log(0,"No Mail::Sendmail module found so not sending any mail !\n");
+    } else {
+        my $self = shift;
+        my $to = shift || "";
+
+        if ($to eq "") {
+            pb_log(0,"Please give a To: address\n");
+            return;
+        }
+        my %mail = (    
+            To => $to,
+            From => "pb\@localhost",
+            Message => $self->summary()
+        );
+        if (! sendmail(%mail)) { 
+            if (defined $Mail::Sendmail::error) {
+                return $Mail::Sendmail::error;
+            } else {
+                return "Unkown error";
+            }
+        }
+        pb_log(0,"Mail send to ". $to ."\n");
+    }
 }
 

devel/pb-modules/t/Base.t

@@ -19 +19 @@
 if ($@) {
     require Test;
+    Test->import();
     plan(tests => 1);
     print "# Faking tests as Test::More is not available in an appropriate version\n";

devel/pb-modules/t/Log.t

@@ -19 +19 @@
 if ($@) {
     require Test;
+    Test->import();
     plan(tests => 1);
     print "# Faking tests as test::More is not available in an appropriate version\n";