<< Index

Package TrEnv

File: modules/TrEnv.pm Version: 1.48

TrEnv ...   TrEnv.pm   Utilities for JETtransp
use Runpr 1.20 ;

Use: Err
File
Step
TrArg
TrUtil
html
strict

Routine Comment Arguments

Bad_Home       Pick up bad home directory, where firefox wont run

Ccode       Return step code

DBck         return T if run exists
        return T if run owned by user my( $shot, $seq, $user ) = @_ ;

Date       return date, use shell version

Env       Set transp environment from shell variables

Exists       Does file exist ?

FGMstat          Return status of FGM job my ($run,$updtime) = @_ ;

File_exists       Does file exist ?

Get_SetID       Get PID of process which ran settrn2

GridStat       Return status of grid job

Home       return the user home directory

Host       return the host name

IP     return IP address

IsJAC       Locked by JAC node ??
Arg[0] is lock file name

IsLL       Is this a load leveller job ??

IsRsh        Remote shell ??
NB RSH is set in ~/ll/csh, if
a) HOST not TRANSP_MASTER
b) REMOTEHOST variable is set

IsRunning      returns command if ( local or remote ) process is running, else "" my( $node, $proc ) = @_ ;

JobVars        Set variables related to batch & MPI

LL_status       Print llq output

MDS_tree       Does a tree exist ? my( $tree, $mid ) = @_ ;

MPI_nodes       Extract list of hosts for this job
File entry fmt is
batch-045 1 batch-045@batch-045 <NULL>
where col 2 is the number of processes on the machine

NoTTY       tty assigned to process ?        DOESNT WORK YET

OpSys       What version are we on ??

PPF_seq       Does a PPF exist ? Return its seq #
( Uses ~pshare/JETutil/pdsearch
1.36 - Add (optional ) UID arg

Qblk        does a status block exist ?

Qv        does variable exits ?

R_SS       Run > (Shot, Seq)
Mods
07Oct2009   jec   add 00nnnnnamm form

RunVn        Return Transp version ( associated with a run )

RunX         Return flag to enable multi-window operation

ShellVars       ShellVars - extract Transp env variables for Perl

ShowVars        display $Transp variables

Stat        Store status information for step
d  TrStat::Dump();

SwapLibPath        Toggle to/from STD_LIBRARY_PATH

TGMstat          Return status of FGM job

ThisVn        Return Transp version ( active version )

TrData       does trdata tree exist ?

UID        Return ID to access data

User       return the User ( Acct ) name

UserName       return name of User associated with an acct

V Print version number

Xgeom        return preferred Xterm geometry

date        Return date - built in

df        monitor disk space..

gl_status        return status of a Globus job..

llq       Return T if entry found in llq my ( $entry, $prtflag ) = @_ ;

pppl_vn       Return target version at pppl

pwd       where the *** are we ??
14Sep2001  1.15   Use system("pwd") ; $ENV gives wrong answer
running under rsh
10Sep2001  1.12   Translate /u/ to /home/
my $here = $ENV{ "PWD" } ;

time        Return time ( of day )

vval        evaluate a variable, passed as a string..

Routine	Comment	Arguments
TrEnv	... TrEnv.pm Utilities for JETtransp use Runpr 1.20 ;
Use:	Err File Step TrArg TrUtil html strict
Bad_Home	Pick up bad home directory, where firefox wont run
Ccode	Return step code
DBck	return T if run exists return T if run owned by user	my( $shot, $seq, $user ) = @_ ;
Date	return date, use shell version
Env	Set transp environment from shell variables
Exists	Does file exist ?
FGMstat	Return status of FGM job	my ($run,$updtime) = @_ ;
File_exists	Does file exist ?
Get_SetID	Get PID of process which ran settrn2
GridStat	Return status of grid job
Home	return the user home directory
Host	return the host name
IP	return IP address
IsJAC	Locked by JAC node ?? Arg[0] is lock file name
IsLL	Is this a load leveller job ??
IsRsh	Remote shell ?? NB RSH is set in ~/ll/csh, if a) HOST not TRANSP_MASTER b) REMOTEHOST variable is set
IsRunning	returns command if ( local or remote ) process is running, else ""	my( $node, $proc ) = @_ ;
JobVars	Set variables related to batch & MPI
LL_status	Print llq output
MDS_tree	Does a tree exist ?	my( $tree, $mid ) = @_ ;
MPI_nodes	Extract list of hosts for this job File entry fmt is batch-045 1 batch-045@batch-045 <NULL> where col 2 is the number of processes on the machine
NoTTY	tty assigned to process ? DOESNT WORK YET
OpSys	What version are we on ??
PPF_seq	Does a PPF exist ? Return its seq # ( Uses ~pshare/JETutil/pdsearch 1.36 - Add (optional ) UID arg
Qblk	does a status block exist ?
Qv	does variable exits ?
R_SS	Run > (Shot, Seq) Mods 07Oct2009 jec add 00nnnnnamm form
RunVn	Return Transp version ( associated with a run )
RunX	Return flag to enable multi-window operation
ShellVars	ShellVars - extract Transp env variables for Perl
ShowVars	display $Transp variables
Stat	Store status information for step d TrStat::Dump();
SwapLibPath	Toggle to/from STD_LIBRARY_PATH
TGMstat	Return status of FGM job
ThisVn	Return Transp version ( active version )
TrData	does trdata tree exist ?
UID	Return ID to access data
User	return the User ( Acct ) name
UserName	return name of User associated with an acct
V	Print version number
Xgeom	return preferred Xterm geometry
date	Return date - built in
df	monitor disk space..
gl_status	return status of a Globus job..
llq	Return T if entry found in llq	my ( $entry, $prtflag ) = @_ ;
pppl_vn	Return target version at pppl
pwd	where the *** are we ?? 14Sep2001 1.15 Use system("pwd") ; $ENV gives wrong answer running under rsh 10Sep2001 1.12 Translate /u/ to /home/ my $here = $ENV{ "PWD" } ;
time	Return time ( of day )
vval	evaluate a variable, passed as a string..