view release on metacpan or  search on metacpan

bin/boot_stem  view on Meta::CPAN

	my $env = $boot->{'env'} || {} ;
	my $stem_env = $boot->{'stem_env'} || {} ;

	local( %ENV ) = ( %ENV, %{$env} ) ;

	my $cmd_env = join ' ', map( "$_='$stem_env->{$_}'", keys %$stem_env ) ;

	$cmd =~ s/run_stem/run_stem $cmd_env/ ;

	my $system;
	$system = "su - $user;" if $user && getpwuid($<) ne $user;
	$system .= qq|$wrap "cd $cd ; $cmd" &| ;

	print "$system\n" if $opts{'v'} ;

	system $system ;

	my $delay = $boot->{'delay'} || 3 ;

	print "waiting $delay seconds\n" if $opts{'v'};

bin/run_stem  view on Meta::CPAN

	my $is_win32 = $^O =~ /Win32/i ;

# get the site env and home env files

	my @env_files = "$stem_lib_dir/env" ;

	unless ( $is_win32 ) {

		push @env_files, ( $ENV{HOME} ||
				   $ENV{LOGDIR} ||
				   (getpwuid($>))[7] ) . '/.stem_env' ;
	}

	foreach my $env_file ( @env_files ) {

		next unless -r $env_file ;

# shut up a dumb warning
		use vars '*ARGVOUT' ;
		$env_text .= 
			do { local( @ARGV, $/ ) = $env_file ; <> } ;

lib/Stem/Boot.pm  view on Meta::CPAN

sub run_cmd {

	my( $self ) = @_ ;

#print Store $self ;

	my $cmd ;

	if ( my $user = $self->{'user'} ) {

		if ( getpwuid($<) ne $user ) {

			$cmd .= "su - $user ; " ;
		}
	}

	if ( my $wrap = $self->{'wrap'} ) {

		$cmd .= qq{$wrap "} ;
		$self->{'wrap_end'} ||= '"' ;
	}