<< Index

Package TrUtil

File: modules/TrUtil.pm Version: 1.81;

TrUtil ...   TrUtil.pm   Utilities for JETtransp

Use: Err
TrEnv
TrLock
TrStat
Util
strict

Routine Comment Arguments

DirNm         Returns directory names..
07Sep2010   TSD0 - use MPI_name variable

Eval        Evaluate an expression

Eval1 Eval one term ..

ExpFile       Export - files loop
Eg
my $err = ExpFile( $run, $TWD, $TSD_, $ix, $stat, $tarlnm );
File options
Ex     Im
ix=        1   2   3   4   5
    - file n/a at this time      y       .
c - copy file to/fr TSD          y
e - export file to TSD     y
l - link TWD file to TSD     y
d - delete TSD file              y
i - import file from TSD      y
m - mkdir ( under TSD )          y
n - unlink TWD file frm TSD      y
r - restore backup in TWD
t - include this file in tgz     y
u - unpack this file from tgz            y
x - exclude this file                    y
     export = copy file to $TSD, & link copy from $TWD
if $stat != 0, convert uc values to lc; ie the uc options are
active only for runs with problems..
EEIII

Export         Export transp files to processor
3.03 11Mar2009 jconboy@jet.uk
3.03  11Mar2009
Add <runid>_pserv.tmp to export list
3.02  22Aug2007
Add <runid>.target to export list
3.01  16Apr2007
BUG - unpack xf, yf.pln if crash or no .cdf
3.00  12Feb2007
REWRITE -
Use tar, retain files by df after a crash
2.22  06Oct2003
TrUtil 1.35 - Export TF.PLN
2.21  14Sep2001
Remove @TSD & RS files from TWD for Reset
2.20  12Sep2001
Add +RS files, & UC options active for status != 0
2.10  10Sep2001
Use File::Do, remove local file routine
2.01  16May2001  jconboy@jet.uk
Dont delete TSD link after import
Delete all TSD after reset
2.00  14May2001  jconboy@jet.uk
Rewrite of 1.10
1.10  10Apr2001  jconboy@jet.uk
Add opt to return files,
add option ( copy/move etc ) to file names..
1.01  06Apr2001  jconboy@jet.uk
Workaround - make links to /jachome, not /localhome my( $run, $TWD, $TSD, $opt, $stat ) = @_;

FindCDF      List Transp netCDF files ...

FixTarget      Remove dup name in target file

GetFGMLog          Fetch the FGM log page

GetRun       Extract Transp run from file name

GetTGMLog          Fetch the Transp Grid monitor log page

IsRun       Return T if arg is a valid transp run..

Logit     record problems.. my ( $log, $msg ) = @_ ;

MatchName       Match Username, Database name my( $name1, $name2 ) = @_ ;

MergOpt        resolve option string

Name         Returns file names my( $name, $run ) = @_ ;

ParseFGMLog        Get selected row from FGM logfile my ( $file, $run, $href ) = @_ ;

ParseTGMLog        Get selected row from FGM logfile my ( $file, $run, $href ) = @_ ;

PreStat        Check status info before picking next step

Procs      Return list of ( remote, mpi ) processes

Report       Print report - run date, version..

RmStat        Run status, from remote host

Run       Execute a command..

RunArg        Interpret Arguments in command string ;
+Name =>  Name Val

StdOpt        Interpret standard arguments
1.41  25Nov2003   Check BinOpt for /Info flag

Test         Testbed for TrUtil

TestExport           Test "Exp" option of export..
Run this from the TSD

TestHelp       like it says..

TestUpDAT        Testbed for TR.DAT manipulation  $SR/ModTest U UpDAT 50621 M00
chdir $Transp::TWD or Err::Die( " Cant cd to TWD " );

TokName       extract tokamak name from input string
20Jun2002   Added MAST

Tokyy         Get tok.yy string.. my ( $run, $tok ) = @_ ;

V Print version number

Wait       Wait for a file

hashup       make a hash of .. my ( $h, $k, $v ) = @_ ;

pserv       Write pserv file.. ( PTRANSP not supported.. ) my( $nbi, $tor ) = @_ ;

wgetrc       Create .wgetrc

xTtl       Set Xwindow title

Routine	Comment	Arguments
TrUtil	... TrUtil.pm Utilities for JETtransp
Use:	Err TrEnv TrLock TrStat Util strict
DirNm	Returns directory names.. 07Sep2010 TSD0 - use MPI_name variable
Eval	Evaluate an expression
Eval1	Eval one term ..
ExpFile	Export - files loop Eg my $err = ExpFile( $run, $TWD, $TSD_, $ix, $stat, $tarlnm ); File options Ex Im ix= 1 2 3 4 5 - file n/a at this time y . c - copy file to/fr TSD y e - export file to TSD y l - link TWD file to TSD y d - delete TSD file y i - import file from TSD y m - mkdir ( under TSD ) y n - unlink TWD file frm TSD y r - restore backup in TWD t - include this file in tgz y u - unpack this file from tgz y x - exclude this file y export = copy file to $TSD, & link copy from $TWD if $stat != 0, convert uc values to lc; ie the uc options are active only for runs with problems.. EEIII
Export	Export transp files to processor 3.03 11Mar2009 jconboy@jet.uk 3.03 11Mar2009 Add <runid>_pserv.tmp to export list 3.02 22Aug2007 Add <runid>.target to export list 3.01 16Apr2007 BUG - unpack xf, yf.pln if crash or no .cdf 3.00 12Feb2007 REWRITE - Use tar, retain files by df after a crash 2.22 06Oct2003 TrUtil 1.35 - Export TF.PLN 2.21 14Sep2001 Remove @TSD & RS files from TWD for Reset 2.20 12Sep2001 Add +RS files, & UC options active for status != 0 2.10 10Sep2001 Use File::Do, remove local file routine 2.01 16May2001 jconboy@jet.uk Dont delete TSD link after import Delete all TSD after reset 2.00 14May2001 jconboy@jet.uk Rewrite of 1.10 1.10 10Apr2001 jconboy@jet.uk Add opt to return files, add option ( copy/move etc ) to file names.. 1.01 06Apr2001 jconboy@jet.uk Workaround - make links to /jachome, not /localhome	my( $run, $TWD, $TSD, $opt, $stat ) = @_;
FindCDF	List Transp netCDF files ...
FixTarget	Remove dup name in target file
GetFGMLog	Fetch the FGM log page
GetRun	Extract Transp run from file name
GetTGMLog	Fetch the Transp Grid monitor log page
IsRun	Return T if arg is a valid transp run..
Logit	record problems..	my ( $log, $msg ) = @_ ;
MatchName	Match Username, Database name	my( $name1, $name2 ) = @_ ;
MergOpt	resolve option string
Name	Returns file names	my( $name, $run ) = @_ ;
ParseFGMLog	Get selected row from FGM logfile	my ( $file, $run, $href ) = @_ ;
ParseTGMLog	Get selected row from FGM logfile	my ( $file, $run, $href ) = @_ ;
PreStat	Check status info before picking next step
Procs	Return list of ( remote, mpi ) processes
Report	Print report - run date, version..
RmStat	Run status, from remote host
Run	Execute a command..
RunArg	Interpret Arguments in command string ; +Name => Name Val
StdOpt	Interpret standard arguments 1.41 25Nov2003 Check BinOpt for /Info flag
Test	Testbed for TrUtil
TestExport	Test "Exp" option of export.. Run this from the TSD
TestHelp	like it says..
TestUpDAT	Testbed for TR.DAT manipulation $SR/ModTest U UpDAT 50621 M00 chdir $Transp::TWD or Err::Die( " Cant cd to TWD " );
TokName	extract tokamak name from input string 20Jun2002 Added MAST
Tokyy	Get tok.yy string..	my ( $run, $tok ) = @_ ;
V	Print version number
Wait	Wait for a file
hashup	make a hash of ..	my ( $h, $k, $v ) = @_ ;
pserv	Write pserv file.. ( PTRANSP not supported.. )	my( $nbi, $tor ) = @_ ;
wgetrc	Create .wgetrc
xTtl	Set Xwindow title