mirror of
https://github.com/nasa/trick.git
synced 2024-12-19 05:07:54 +00:00
22 lines
514 B
Perl
Executable File
22 lines
514 B
Perl
Executable File
#! /usr/bin/perl
|
|
# install_user tells users to add Trick's bin to their path.
|
|
|
|
# $Id: install_user 3792 2015-02-03 21:51:57Z alin $
|
|
use File::Basename ;
|
|
use Cwd 'abs_path';
|
|
|
|
$trick_bin = dirname(abs_path($0)) ;
|
|
$trick_home = dirname($trick_bin) ;
|
|
|
|
$shell = (getpwent())[8] ;
|
|
|
|
print "Add this line to the end of your " ;
|
|
if ( $shell =~ /csh/ ) {
|
|
print ".cshrc\n" ;
|
|
print "setenv PATH \"\${PATH}:$trick_home/bin\"\n" ;
|
|
} else {
|
|
print ".bashrc\n" ;
|
|
print "export PATH=\"\${PATH}:$trick_home/bin\"\n" ;
|
|
}
|
|
|