[Midnightbsd-cvs] mports [16132] trunk/Tools/lib/Magus/Port.pm: add type

[laffer1 at midnightbsd.org]

Revision: 16132
          http://svnweb.midnightbsd.org/mports/?rev=16132
Author:   laffer1
Date:     2014-04-06 20:34:50 -0400 (Sun, 06 Apr 2014)
Log Message:
-----------
add type

Modified Paths:
--------------
    trunk/Tools/lib/Magus/Port.pm

Modified: trunk/Tools/lib/Magus/Port.pm
===================================================================
--- trunk/Tools/lib/Magus/Port.pm	2014-04-07 00:07:37 UTC (rev 16131)
+++ trunk/Tools/lib/Magus/Port.pm	2014-04-07 00:34:50 UTC (rev 16132)
@@ -149,7 +149,7 @@
 sub set_result_pass {
   my ($self, $msg) = @_;
   
-  $self->_set_result('pass', $msg);
+  $self->_set_result('pass', $msg, 'info');
 }
 
 
@@ -162,7 +162,7 @@
 sub set_result_skip {
   my ($self, $msg) = @_;
   
-  $self->_set_result('skip', $msg);
+  $self->_set_result('skip', $msg, 'skip');
 }
 
 
@@ -175,7 +175,7 @@
 sub set_result_internal {
   my ($self, $msg) = @_;
   
-  $self->_set_result('internal', $msg);
+  $self->_set_result('internal', $msg, 'internal');
 }
 
 
@@ -188,13 +188,13 @@
 sub set_result_fail {
   my ($self, $msg) = @_;
   
-  $self->_set_result('fail', $msg);
+  $self->_set_result('fail', $msg, 'fail');
 }
 
 
 
 sub _set_result {
-  my ($self, $status, $msg) = @_;
+  my ($self, $status, $msg, $type) = @_;
   
   $self->status($status);
   $self->update;
@@ -202,6 +202,7 @@
   $self->add_to_events({
     machine   => $Magus::Machine,
     msg   => $msg,
+    type  => $type,
   });
 }