From 2b75b5315e452e01803d9ac719d6f52dcc204ad5 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Sun, 25 Nov 2012 22:26:15 +0000 Subject: Allow setting ulri log file --- lib/Youri/Submit/Action/Ulri.pm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lib/Youri/Submit/Action/Ulri.pm b/lib/Youri/Submit/Action/Ulri.pm index 221676a..ea4de23 100644 --- a/lib/Youri/Submit/Action/Ulri.pm +++ b/lib/Youri/Submit/Action/Ulri.pm @@ -22,13 +22,14 @@ sub _init { uphost => '', user => '', ssh_key => '', + logfile => '', verbose => '', @_ ); croak "undefined upload host" unless $options{uphost}; croak "undefined ssh key" unless $options{ssh_key}; - foreach my $var ('user', 'uphost', 'ssh_key', 'verbose') { + foreach my $var ('user', 'uphost', 'ssh_key', 'logfile', 'verbose') { $self->{"_$var"} = $options{$var}; } @@ -39,7 +40,11 @@ sub run { my ($self, $package, $repository, $target, $define) = @_; croak "Not a class method" unless ref $self; - my $cmd = "ssh -i $self->{_ssh_key} $self->{_user}\@$self->{_uphost} ulri"; + my $remotecmd = "ulri"; + if ($self->{_logfile}) { + $remotecmd = "ULRI_LOG_FILE=$self->{_logfile} " . $remotecmd; + } + my $cmd = "ssh -i $self->{_ssh_key} $self->{_user}\@$self->{_uphost} $remotecmd"; print "Submit::Action::Ulri: doing $cmd\n" if $self->{_verbose}; } =head1 COPYRIGHT AND LICENSE -- cgit v1.2.1