Changeset 3674

Show
Ignore:
Timestamp:
12/28/07 11:22:59 (5 years ago)
Author:
tokuhirom
Message:

r3602@mnk (orig r252): tokuhiro | 2007-02-12 23:03:57 -0800
merge the mizzy's works.
http://mizzy.org/program/archer00.html


Location:
lang/perl/Archer
Files:
9 added
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Archer/MANIFEST

    r3667 r3674  
    1 .cvsignore 
    21Build.PL 
    32Changes 

  • lang/perl/Archer/lib/Archer/Plugin.pm

    r3667 r3674  
    2727        l_project => $self->l_project, 
    2828        work_dir => Archer->context->{config}->{global}->{work_dir}, 
     29        dest_dir => Archer->context->{config}->{global}->{dest_dir}, 
    2930        server => $self->{server}, 
    3031    }; 

  • lang/perl/Archer/lib/Archer/Plugin/Exec/Local.pm

    r3667 r3674  
    77    my ($self, $cmd, $args) = @_; 
    88 
    9     my $real_command = "sudo -u $self->{config}->{user} $cmd"; 
     9    my $user = $self->{config}->{user}; 
     10    my $real_command = $user ? "sudo -u $user $cmd " : $cmd; 
    1011    $self->log(debug => "real execute: $real_command"); 
    1112