/[cvs]/nfo/perl/libs/Data/Rap/Engine.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Rap/Engine.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by joko, Thu Feb 20 19:46:33 2003 UTC revision 1.4 by joko, Sat Feb 22 16:51:21 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ----------------------------------------------------------------------  ## ----------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.4  2003/02/22 16:51:21  joko
6    ##  + enhanced run_executable
7    ##  modified logging output
8    ##
9    ##  Revision 1.3  2003/02/21 01:46:17  joko
10    ##  renamed core function
11    ##
12  ##  Revision 1.2  2003/02/20 19:46:33  joko  ##  Revision 1.2  2003/02/20 19:46:33  joko
13  ##  renamed and revamped some of modules  ##  renamed and revamped some of modules
14  ##  renamed methods  ##  renamed methods
# Line 38  sub perform_target { Line 45  sub perform_target {
45    my $self = shift;    my $self = shift;
46    my $targetname = shift;    my $targetname = shift;
47    
48    $self->log("Performing Target '$targetname'.", 'notice');    my $header = ("- " x 12) . "   " . $targetname . "   " . ("- " x 6);
49      
50      #$self->log("- " x 35, 'notice');
51      #$self->log("Performing Target '$targetname'.", 'notice');
52    
53      $self->log($header, 'notice');
54    
55    #exit;    #exit;
56    
# Line 99  sub perform_command { Line 111  sub perform_command {
111    my $command = shift;    my $command = shift;
112    
113    if (!$command) {    if (!$command) {
114      $self->log("Command was empty!", 'warning');      $self->log("Command was empty!", 'debug');
115      return;      return;
116    }    }
117    
# Line 155  sub merge_properties { Line 167  sub merge_properties {
167      #print "DATA NEE! - MERGE!", "\n";      #print "DATA NEE! - MERGE!", "\n";
168      #print Dumper($data_new);      #print Dumper($data_new);
169      #exit;      #exit;
170      #hash2object($self, $data_new);      #merge_to($self, $data_new);
171      $self->set_property( { name => $name, value => $data_new } );      $self->set_property( { name => $name, value => $data_new } );
172            
173    } else {    } else {
# Line 287  sub run_executable { Line 299  sub run_executable {
299      my @buf;      my @buf;
300      foreach (keys %$opts) {      foreach (keys %$opts) {
301        my $value = $opts->{$_};        my $value = $opts->{$_};
302          if (m/^_/) {
303            if ($_ eq '_switches') {
304              my @switches = split(/,\s|,/, $value);
305              foreach my $switch (@switches) {
306                push @buf, '--' . $switch;
307              }
308            }
309            next;
310          }
311          
312        if ($value =~ /\s/) {        if ($value =~ /\s/) {
313          $value = "\"$value\"";          $value = "\"$value\"";
314        }        }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed